Question

Пк запрашивает название и радиусы орбит двух планет (в миллионах км) и скорости движения орбит (в миллионах км в сутки). Вычислить продолжительность года на планетах (длина орбит/скорость). Результаты должны иметь вид:

Продолжительность года на планете <имя1> суток;

Продолжительность года на планете <имя2> суток;

 

Помогите составить программу в Pascal.

Answer 1

Program Planet;

var
R1, R2, l1, l2, v1, v2, time1, time2 : real;
c, b : string;

begin
Write('Планета1-');
Readln(b);
Write('Планета2-');
Readln(c);
Write('R1=');
Readln(R1);
Write('R2=');
Readln(R2);
Write('v1=');
Readln(v1);
Write('v2=');
Readln(v2);
L1:=2*Pi*R1;
L2:=2*Pi*R2;
Time1:=l1/v1;
Time2:=l2/v2;
Writeln('Продолжительность года на пленете ',b,'= ', Time1:0:2, ' суток');
Writeln('Продолжительность года на пленете ',c,'= ', Time2:0:2, ' суток');
end.

 

 

 

 

как-то так)

Answer 2

var

r1,r2,v1,v2:integer;

name1,name2:string;

begin

writeln ('Введите название двух планет');

readln (name1,name2);

writeln ('Введите радиусы двух планет');

readln (r1,r2);

writeln ('Введите скорости движения орбит');

readln (v1,v2);

writeln ('Продолжительность года на планате ',name1,'=', r1/v1);

writeln ('Продолжительность года на планате ',name2,'=', r2/v2);

end.