Question

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

Answer 1

Var timeout,timein,traintype:string; n:integer;
begin
writeln('Vvedite nomer poezda');
readln(n);
case n of
1: begin timeout:='8.00';timein:='8.40';traintype:='Passagirskiy';end;
2: begin
Znachenija
end; i tak dalee

end;
end.

Answer 2

Для создания программы на языке Паскаль, которая формирует расписание поездов, мы можем использовать записи (records) для хранения информации о каждом поезде. Запись позволяет объединить различные типы данных в одну структуру.

Вот пример программы на Паскале, которая использует записи для хранения информации о поездах и формирует расписание:

pascalCopy code
program TrainSchedule;

const
  MAX_TRAINS = 10; // Максимальное количество поездов в расписании

type
  TTrainType = (Express, Passenger, Freight); // Типы поездов

  TTrain = record // Запись для хранения информации о поезде
    TrainNumber: integer;
    Destination: string;
    DepartureTime: string;
    TrainType: TTrainType;
  end;

var
  Schedule: array[1..MAX_TRAINS] of TTrain; // Массив записей для расписания
  NumTrains: integer; // Количество поездов в расписании

// Процедура для добавления поезда в расписание
procedure AddTrain(var schedule: array of TTrain; var numTrains: integer; trainNum: integer;
  destination, departureTime: string; trainType: TTrainType);
begin
  if numTrains < MAX_TRAINS then
  begin
    Inc(numTrains);
    schedule[numTrains].TrainNumber := trainNum;
    schedule[numTrains].Destination := destination;
    schedule[numTrains].DepartureTime := departureTime;
    schedule[numTrains].TrainType := trainType;
    writeln('Поезд добавлен в расписание.');
  end
  else
    writeln('Расписание полное. Невозможно добавить еще один поезд.');
end;

// Процедура для вывода расписания
procedure DisplaySchedule(const schedule: array of TTrain; numTrains: integer);
var
  i: integer;
begin
  writeln('Расписание поездов:');
  writeln('---------------------------');
  writeln('№ | Направление | Время отправления | Тип поезда');
  writeln('---------------------------');
  for i := 1 to numTrains do
  begin
    writeln(schedule[i].TrainNumber, ' | ', schedule[i].Destination, ' | ',
      schedule[i].DepartureTime, ' | ', schedule[i].TrainType);
  end;
  writeln('---------------------------');
end;

// Главная программа
var
  trainNumber: integer;
  destination, departureTime: string;
  trainType: TTrainType;
  choice: char;
begin
  NumTrains := 0; // Изначально у нас нет поездов в расписании

  repeat
    writeln;
    writeln('Выберите действие:');
    writeln('1. Добавить поезд в расписание');
    writeln('2. Вывести расписание поездов');
    writeln('3. Выход');
    write('Ваш выбор: ');
    readln(choice);

    case choice of
      '1':
      begin
        write('Введите номер поезда: ');
        readln(trainNumber);
        write('Введите пункт назначения: ');
        readln(destination);
        write('Введите время отправления: ');
        readln(departureTime);
        writeln('Выберите тип поезда (E - Express, P - Passenger, F - Freight): ');
        readln(choice);
        case UpCase(choice) of
          'E': trainType := Express;
          'P': trainType := Passenger;
          'F': trainType := Freight;
          else
            trainType := Passenger; // По умолчанию установим пассажирский тип
        end;
        AddTrain(Schedule, NumTrains, trainNumber, destination, departureTime, trainType);
      end;
      '2':
        DisplaySchedule(Schedule, NumTrains);
      '3':
        writeln('Выход.');
      else
        writeln('Некорректный выбор. Попробуйте еще раз.');
    end;

  until choice = '3';
end.

Это простая консольная программа, которая будет спрашивать у пользователя, что он хочет сделать: добавить поезд в расписание, вывести текущее расписание или выйти из программы. Пользователь может вводить информацию о поездах, и они будут добавлены в массив записей. Затем можно будет просмотреть текущее расписание всех поездов.

Замечание: Пожалуйста, учтите, что код был написан для традиционного Паскаля (не Free Pascal), и синтаксис может немного отличаться в зависимости от вашей среды разработки.