Нужно сделать в паскаль АВС
Самолет летит из пункта А в пункт Б со средней скоростью V. Составить программу для нахождения времени полёта t1, если есть встречный ветер, скорость которого V1, и времени t2, если ветра нет. Расстояние между пунктами A и Б считать известным и равным S.
More Questions From This User See All
Answers & Comments
var S, V, V1: real;
t1, t2: real;
b: boolean;
begin
b:=false;
repeat
writeln('Введите расстояние между пунктами А и Б');
readln(S);
if S<0 then
begin
writeln('Отрицательное расстояние. Повторите ввод');
continue;
end;
writeln('Введите среднюю скорость самолета');
readln(V);
if V<0 then
begin
writeln('Отрицательная скорость. Повторите ввод');
continue;
end;
writeln('Введите скорость встречного ветра');
readln(V1);//Если ветра нет нужно ввести 0
if V1<0 then
begin
writeln('Отрицательная скорость. Повторите ввод');
continue;
end;
b:=true;
until b = true;
if V1>0
then
begin
t2:=S/V;
writeln('Время полета: ', t2);
end
else
begin
t1:=(V-V1)/S;
writeln('Время полета: ', t1);
end;
end.