21.11.2010, 03:00 | #1 (permalink) |
Member
Регистрация: 13.11.2010
Сообщений: 12
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Записи. Pascal
Помогите пож. |
21.11.2010, 03:00 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Возможно, решение проблемы пойдет заметно быстрее если ознакомиться с аналогичными темами Строки и записи. Записи Паскаль. Записи |
23.11.2010, 14:09 | #3 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Да уж больно задача не то, чтобы сложная, а просто муторная какая-то. Изобретать кучу поездов, времен отправления, направлений, классов мест и т.д и т.п. и проч... А в принципе - ничего сложного. Давайте уж сами. Или, по крайней мере, разработайте все условия. Но лучше, повторяю, поработайте самостоятельно. Ничего сложного. А мы подскажем, поправим, если что.
|
25.11.2010, 04:13 | #4 (permalink) | |
Member
Регистрация: 13.11.2010
Сообщений: 12
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Цитата:
Начал вроде, но почему-то сомнения терзают... Код:
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; |
|
25.11.2010, 09:46 | #5 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
03.12.2010, 02:23 | #6 (permalink) | |
Member
Регистрация: 13.11.2010
Сообщений: 12
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Цитата:
В итоге сделал по-другому)) Вроде нормалек) Код:
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. |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|