Записи (Records)

[Mardessa]

Заданы поля записи, определить их типы данных, написать программу для введения произвольного количества записей через массив, который инициализировать как типизованную константу. Вывести записи согласно с указанным критерием на экран в форме, удобной для просмотра.

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

[Serge_Bliznykov]

да не нужна Вам константа(константы)
объявляйте массив и обеспечивайте ввод записей туда.

для образца посмотрите мои ответы в этой теме:
http://www.programmersforum.ru/showthread.php?t=120562

массив, который инициализировать как типизованную константу

а, если правильно понял, смотрите пример тут
http://www.programmersforum.ru/showthread.php?t=120561
ответ от Mad_Cat

[Mardessa]

Ну да это я уже сделала, а вот как ее вывести на экран? С критерием я потом уже сама разберусь.

[Serge_Bliznykov]

а вот как ее вывести на экран

"её" - это, прости, что? массив? Так это же вроде как "Он"...
Типизированную константу? Да так же, как и обычную..
Writeln('Длина',S1.dlina:8:3);
Writeln('Ширина',S1.Shirina:8:3);
или, если речь идёт о массиве:

var MyArr : array[1..100] of Sudno;
begin
....
    for i:=1 to KolvoZapisej do
      with MyArr[i] do begin
         Writeln(dlina:8:3,' | ',Shirina:8:3,' | ',Osadka:10:4,' | ',KolvoPas:4);
      end;

кстати, а зачем у Вас количество пассажиров вещественное число?
На судне может быть вместимость 3 с половиной пассажира? или 0.75 ?

[Utkin]

Сообщение от Serge_Bliznykov

кстати, а зачем у Вас количество пассажиров вещественное число?
На судне может быть вместимость 3 с половиной пассажира? или 0.75 ?

Ну да, а как же тогда перевозить голову профессора Доуэля? А всадника без головы ? Их конечно можно укомплектовать вместе как одного пассажира, но возможна психологическая несовместимость...

[Serge_Bliznykov]

Utkin, убедительно! )))