Помогите написать программу о загрузке самолета

Question

Помогите написать программу о загрузке самолета

Comments

нет

---

ПРОГРАММУ НА PASCAL, ну например загрузку пасажиров в самолет

---

Извините уважаемый, но к сожалению я сама не знаю точной информации о загрузке

---

Так как в задаче прописаны только те условия, которые я вам написала.

---

И как я понимаю, то наверное здесь не имеет значения сколько пассажиров или груза, так как число этих "грузов" может иметь N количество

Answer 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.