Question

Описать запись, содержащую сведения о рейсе самолета. На PascalABC

Answer 1

Ответ:

type

TFlight = record

flightNumber: integer; // номер рейса

departureTime: TDateTime; // время вылета

arrivalTime: TDateTime; // время прилета

fromCity: string; // город отправления

toCity: string; // город прибытия

end;

var

flight: TFlight; // переменная типа TFlight

begin

// заполнение записи данными о рейсе

flight.flightNumber := 1234;

flight.departureTime := StrToDateTime('2022-04-12 15:30:00');

flight.arrivalTime := StrToDateTime('2022-04-12 18:45:00');

flight.fromCity := 'Москва';

flight.toCity := 'Нью-Йорк';

// вывод информации о рейсе на экран

writeln('Номер рейса: ', flight.flightNumber);

writeln('Время вылета: ', DateTimeToStr(flight.departureTime));

writeln('Время прилета: ', DateTimeToStr(flight.arrivalTime));

writeln('Город отправления: ', flight.fromCity);

writeln('Город прибытия: ', flight.toCity);

end.