Технический форум - Записи. Pascal

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Записи. Pascal (http://www.tehnari.ru/f41/t42352/)

Записи. Pascal

У администратора железнодорожных касс хранится информация о свободных местах в поездах по всем направлениям на ближайшую неделю. Данная информация представлена в следующем виде: дата выезда, конечный пункт назначения, время отправления, число свободных купейных мест, число свободных плацкартных мест. Оргкомитет международной конференции обратился к администратору с просьбой зарезервировать 50 купейных мест до Берлина на субботy. При этом время отправления поезда должно быть не позднее 10 часов вечера. Выдать на печать время отправления или сообщение о невозможности выполнить заказ в полном объеме.
Помогите пож. :(

Никто не может помочь?:(

Цитата:

Сообщение от Tepp (Сообщение 421627)

Никто не может помочь?:(

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

Цитата:

Сообщение от Vladimir_S (Сообщение 421631)

Да в том то и проблема, что не получается да и не приходит в голову как ее составить грамотно(
Начал вроде, но почему-то сомнения терзают...

Код:

uses crt;

type

data=record

time:0..23;

day:char;

month:1..12;

Year:2000..2100;

end;

pyt=record

napravlenie:char;

end;

poezd=record

kupe:array [1..55] of byte;

plac:array [1..20] of byte;

end;

var

a:data;

b:pyt;

c:poezd;

i,j:byte;

Что-то подсказывает что описал запись я неправильно :(

Цитата:

Сообщение от Tepp (Сообщение 422385)

Что-то подсказывает что описал запись я неправильно

Ну отчего же? Ошибок нет, я проверил. Хотя применение типа "диапазон" (время, месяц, год) несколько странно, ну да наверное можно и так.

Цитата:

Сообщение от Vladimir_S (Сообщение 422403)

Все так было предположение что не так начал делать))
В итоге сделал по-другому)) Вроде нормалек)

Код:

uses crt;

type

bilet=record

den:string;

pynkt:string;

vremya:integer;

kupe:integer;

plac:integer;

end;

var

poezd: array [1..3] of bilet;

i:integer;

begin

for i:=1 to 3 do

begin

writeln('Заполним информацию для поезда №',i);

writeln('Введите день отъезда');

readln(poezd[i].den);

writeln('Введите пункт назначения');

readln(poezd[i].pynkt);

writeln('Введите время отъеда');

readln(poezd[i].vremya);

writeln('Введите количество купейных мест');

readln(poezd[i].kupe);

writeln('Введите количество плацкартных мест');

readln(poezd[i].plac);

end;

for i:=1 to 3 do

if (poezd[i].den='Суббота') and (poezd[i].pynkt='Берлин') and (poezd[i].vremya<=22) and (poezd[i].kupe>50) then

writeln ('Вы можете заказать билеты на поезд №',i) else 

writeln('Извините, мы не можем принять ваш заказ, поскольку поезд №',i, 'не удовлетворяет вашему условию');

end.