Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 20.07.2017 20:49
- Информатика
- remove_red_eye 6392
- thumb_up 45
Ответы и объяснения 1
Люблю нерешаемые задачи, в них исключения не надо проверять:)
uses
AirplaneAPI;
var
AP: Airplane;
sBuf: string;
begin
AP := new Airplane(Types.Boeing747, 'N752PA');
writeln('Пустая строка - конец посадки пассажиров');
repeat
writeln('Номер билета: ');
readln(sBuf);
if not Ticket.Verify(sBuf) then
writeln('| Неверный номер билета. Код ', Ticket.LastCode, ' |')
else
AP.Pass.Add(Ticket.getInfo(sBuf));
if ((sBuf.Length = 0) or (AP.Loaded)) then
break;
until (false);
writeln('Самолёт загружен');
end.
- 21.07.2017 16:14
- thumb_up 45
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.