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

Форум программистов: 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 сообщение ] 


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

Зарегистрированные пользователи: Google [Bot]


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

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