складіть програму для розв'язування задачи: "Два поїзди виїхали одночасно назустріч один одному. Визначити, через який час вони зустрінуться,
якщо відомо відстань між ними в момент початку руху та швидкості кожного поїзда".
Відстань – 1000 км, швидкості – 120 км/год і 130 км/год. (середовище лазарус)
помогите пожалуйста !!
Ответы
Код:
program trains;
var
distance, speed1, speed2, time: real;
begin
{ Ввід даних }
distance := 1000;
speed1 := 120;
speed2 := 130;
{ Обчислення часу зустрічі }
time := distance / (speed1 + speed2);
{ Вивід результату }
writeln('Час зустрічі поїздів: ', time:0:2, ' годин');
readln;
end.
Ответ:
program MeetingTrains;
uses
SysUtils;
var
distance, speed1, speed2, time: real;
begin
distance := 1000; // відстань між поїздами в км
speed1 := 120; // швидкість першого поїзда в км/год
speed2 := 130; // швидкість другого поїзда в км/год
// час зустрічі розраховується як відстань між поїздами, поділена на суму їх швидкостей
time := distance / (speed1 + speed2);
// виведення результату на екран
writeln(Format('Поїзд 1 і поїзд 2 зустрінуться через %f годин', [time]));
// очікування введення користувачем
readln;
end.
Объяснение:
Після запуску програма виведе текст "Поїзд 1 і поїзд 2 зустрінуться через X годин", де X буде замінено на розрахований час зустрічі в годинах. Користувач повинен буде натиснути Enter для завершення програми.