Question

ПОМОГИТЕ!!!!!!11 Створіть програму в Паскалі.Швидкість катера за течією річки становить х км/год, а швидкістьтечії – у км/год. Знайдіть власну швидкість катера та швидкістькатера проти течії річки, склавши програму

Answer 1

var

 boatV, boatMinusRiverV, boatPlusRiverV, riverV: real;

begin

 writeln('Введите скорость катера по течению: ');

 readln(boatPlusRiverV); // x

 writeln('Введите скорость течения: ');

 readln(riverV); // y

 boatV := boatPlusRiverV - riverV;

 boatMinusRiverV := boatV - riverV;

 writeln('Скорость лодки: ', boatV,  

         ' км/ч. Скорость лодки против течения: ', boatMinusRiverV, ' км/ч.');

end.

Answer 2

Звісно, ось приклад програми на мові Паскаль, яка обчислює власну швидкість катера та швидкість катера проти течії річки:

pascalCopy code
program RiverBoatSpeed;

var
  BoatSpeedWithCurrent, RiverCurrentSpeed, BoatSpeedAgainstCurrent: real;

begin
  writeln('Введіть швидкість катера за течією річки (км/год): ');
  readln(BoatSpeedWithCurrent);

  writeln('Введіть швидкість течії річки (км/год): ');
  readln(RiverCurrentSpeed);

  // Власна швидкість катера: швидкість катера за течією річки - швидкість течії
  BoatSpeedAgainstCurrent := BoatSpeedWithCurrent - RiverCurrentSpeed;

  writeln('Власна швидкість катера: ', BoatSpeedAgainstCurrent:0:2, ' км/год');

  // Швидкість катера проти течії річки: швидкість катера за течією річки + швидкість течії
  BoatSpeedWithCurrent := BoatSpeedWithCurrent + RiverCurrentSpeed;

  writeln('Швидкість катера проти течії річки: ', BoatSpeedWithCurrent:0:2, ' км/год');

  readln;
end.

Просто скопіюйте цей код в середовище розробки Паскаля (наприклад, Turbo Pascal або Free Pascal), щоб виконати його. Програма запита вас про швидкість катера за течією річки та швидкість течії річки, а потім виведе власну швидкість катера та швидкість катера проти течії річки.