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.

Answer 2

Конечно, я могу помочь вам написать программу на PascalABC, описывающую запись с данными о рейсе самолета. В данном примере я буду использовать структуру данных для хранения информации о рейсе. Вот пример кода:

program FlightRecord;

type
  FlightInfo = record
    FlightNumber: string;
    DepartureCity: string;
    DestinationCity: string;
    DepartureTime: string;
    ArrivalTime: string;
  end;

var
  flight: FlightInfo;

procedure InputFlightData(var flight: FlightInfo);
begin
  writeln('Введите номер рейса: ');
  readln(flight.FlightNumber);
  
  writeln('Введите город вылета: ');
  readln(flight.DepartureCity);
  
  writeln('Введите город прибытия: ');
  readln(flight.DestinationCity);
  
  writeln('Введите время вылета: ');
  readln(flight.DepartureTime);
  
  writeln('Введите время прибытия: ');
  readln(flight.ArrivalTime);
end;

procedure DisplayFlightData(flight: FlightInfo);
begin
  writeln('Информация о рейсе:');
  writeln('Номер рейса: ', flight.FlightNumber);
  writeln('Город вылета: ', flight.DepartureCity);
  writeln('Город прибытия: ', flight.DestinationCity);
  writeln('Время вылета: ', flight.DepartureTime);
  writeln('Время прибытия: ', flight.ArrivalTime);
end;

begin
  // Ввод данных о рейсе
  InputFlightData(flight);
  
  // Вывод данных о рейсе
  DisplayFlightData(flight);
end.

В данном примере создается тип данных `FlightInfo`, представляющий информацию о рейсе. Затем программа содержит процедуры для ввода данных (`InputFlightData`) и вывода данных (`DisplayFlightData`). В основной части программы создается переменная `flight` типа `FlightInfo`, заполняются её данные с помощью процедуры ввода, и затем выводится информация о рейсе с помощью процедуры вывода.

Вы можете изменить код в соответствии с вашими требованиями и добавить другие поля или функциональность в зависимости от вашей задачи.