Question

СРОЧНО! Нужно написать в PascalABC программу на нахождение времени, потраченного на поездку из Москвы в Санкт-Петербург на: поезде, велосипеде и самолёте. (Находить точную скорость каждого не обязательно)

Answer 1

// PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018

// Внимание! Если программа не работает, обновите версию!

begin

 var s := ReadReal('Расстояние в километрах:');

 var (t, v, p) := ReadReal3('Скорости поезда, велосипеда, самолета, км/ч:');

 Println('Время в часах');

 Writeln('Поезд ', s / t:0:2, ', велосипед ', s / v:0:2,

     ', самолет ', s / p:0:2)

end.

Answer 2

Хорошо, вот пример программы на PascalABC, которая позволит пользователю вводить расстояние между Москвой и Санкт-Петербургом, а затем рассчитывать примерное время, затраченное на поездку на поезде, велосипеде и самолете:

pascalCopy code
program TravelTime;

var
  distance: real; // Расстояние между Москвой и Санкт-Петербургом (в километрах)
  trainSpeed, bikeSpeed, planeSpeed: real; // Скорость поезда, велосипеда и самолета (в км/ч)
  timeByTrain, timeByBike, timeByPlane: real; // Время поездки на поезде, велосипеде и самолете (в часах)

begin
  // Ввод данных
  WriteLn('Введите расстояние между Москвой и Санкт-Петербургом (в километрах): ');
  ReadLn(distance);

  // Ввод скоростей
  WriteLn('Введите примерную скорость поезда (в км/ч): ');
  ReadLn(trainSpeed);
  WriteLn('Введите примерную скорость велосипеда (в км/ч): ');
  ReadLn(bikeSpeed);
  WriteLn('Введите примерную скорость самолета (в км/ч): ');
  ReadLn(planeSpeed);

  // Расчет времени поездки
  timeByTrain := distance / trainSpeed;
  timeByBike := distance / bikeSpeed;
  timeByPlane := distance / planeSpeed;

  // Вывод результатов
  WriteLn('Время в пути на поезде: ', timeByTrain:0:2, ' часов');
  WriteLn('Время в пути на велосипеде: ', timeByBike:0:2, ' часов');
  WriteLn('Время в пути на самолете: ', timeByPlane:0:2, ' часов');

  ReadLn; // Чтобы окно не закрылось сразу после выполнения программы
end.

В этой программе мы запрашиваем у пользователя расстояние между Москвой и Санкт-Петербургом в километрах, а затем примерную скорость для каждого средства передвижения: поезда, велосипеда и самолета. Программа затем рассчитывает время в пути для каждого средства и выводит результаты на экран с точностью до 2 десятичных знаков.

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