помогите написать программу о загрузке самолета
10-11 класс
|
Люблю нерешаемые задачи, в них исключения не надо проверять:)
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.
Комментарий удален
Извините уважаемый, но к сожалению я сама не знаю точной информации о загрузке
Так как в задаче прописаны только те условия, которые я вам написала.
И как я понимаю, то наверное здесь не имеет значения сколько пассажиров или груза, так как число этих "грузов" может иметь N количество
Комментарий удален
Другие вопросы из категории
.. максимальные a[4]=10, a[7]=8
Читайте также
рдинат. Я поняла, что нужно найти их длины (формулы я знаю), а правильно написать программу не могу
13.
Нужно написать программу на цикле с предусловием, на Паскале.
Дано натуральное число n. Написать программу вычисляющую сумму
добрый вечер, всем. помогите, пожалуйста, написать программу на Ассемблере.
задание:
Создать программу на языке Ассемблер, что позволяет организовать вычисления над элементами массивов
Объединить два массива 8-битных целых чисел со знаком. Сначала элементы второго затем первого.
заранее огромное спасибо всем!
2) Заданы действительные числа a , b , c и d . Написать программу нахождения полусуммы наименьшего и наибольшего из них.
3) Написать программу для вычисления суммы цифр числа , введенного с клавиатуры
Помогите прошу