→ Для вступления в общество новичков и профессионалов программирования, пожалуйста нажмите здесь ...

Форум программистов: C++, Basic, Delphi, Pascal, JavaScript
Логин: Пароль:
Запомнить?  
@Mail.ru



Начать новую тему Ответить на тему  [ 1 сообщение ] 
Помогите пожалуйста с алгоритмом на записи =*( 
Автор Сообщение
Начинающий

Регистрация: 07.11.2010
Сообщения: 1
Языки:
Специальность:

Репутация: 0 [ ? ]
Сообщение Помогите пожалуйста с алгоритмом на записи =*(
Заданы поля записи, определить их типы данных, написать программу для введения произвольного количества записей через массив, который инициализировать как типизованную константу. Вывести записи согласно с указанным критерием на экран в форме, удобной для просмотра.

2. Судно: длина, ширина, осадка, кол-во пассажиров. Критерий: отношение ширина/ осадка >= 2,5.

Начала делать и застряла, из-за того, что надо определять как типизованную константу, если делать алгоритм с ручным введением, то еще получается, а вот так, что дальше делать с этой константой уже неделю голову ломаю. На лекции это почти не объяснили, вот что пока получается, помогите пожалуйста с продолжением...



program Project2;

uses
SysUtils;

type
Sudno=record
dlina:real;
Shirina:real;
Osadka:real;
KolvoPas:real;
end;
const
S1: Sudno = (dlina:2; Shirina:4; Osadka:9; KolvoPas:1; );
S2: Sudno = (dlina:2; Shirina:4; Osadka:1; KolvoPas:6; );
S3: Sudno = (dlina:2; Shirina:4; Osadka:2; KolvoPas:8; );
Var
krit:real; //критерий
i:integer;
Begin


07.11.2010 23:07
Профиль Отправить email
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ 1 сообщение ] 


Кто сейчас на конференции

Зарегистрированные пользователи: нет зарегистрированных пользователей


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Перейти:  
cron
© 2013 «Форум программистов Украины»