Записи. Pascal

[Tepp]

Записи. Pascal

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

 

[Tepp]

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

 

[Vladimir_S]

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

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

 

[Tepp]

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

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

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;

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

 

[Vladimir_S]

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

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

 

[Tepp]

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

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

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.