Переведите код программы из паскаля в пайтон . program physik;
Var
a : integer;
v, G, M, R, h : real;
begin
writeln ('Типы решаемых задач:');
writeln ('1 - нахождение v (первая космическая скорость);');
writeln ('2 - нахождение G (гравитационная постоянная);');
writeln ('3 - нахождение M (масса планеты);');
writeln ('4 - нахождение R (радиус планеты);');
writeln ('5 - нахождение h (высота над поверхностью планеты).');
write ('Напишите номер типа задачи: ');
readln (a);
if a=1 then
begin
write ('Напишите через пробел значения G, M, R, h: ');
readln (G, M, R, h);
v := sqrt(G*M/(R+h));
writeln ('ответ: v=',v:5:2);
end;
if a=2 then
begin
write ('Напишите через пробел значения v, M, R, h: ');
readln (v, M, R, h);
G := sqr(v)*(R+h)/M;
writeln ('ответ: G=',G:5:2);
end;
if a=3 then
begin
write ('Напишите через пробел значения v, G, R, h: ');
readln (v, G, R, h);
M := sqr(v)*(R+h)/G;
writeln ('ответ: M=',M:5:2);
end;
if a=4 then
begin
write ('Напишите через пробел значения v, G, M, h: ');
readln (v, G, M, h);
R := G*M/sqr(v)-h;
writeln ('ответ: R=',R:5:2);
end;
if a=5 then
begin
write ('Напишите через пробел значения v, G, M, R: ');
readln (v, G, M, R);
h := G*M/sqr(v)-R;
writeln ('ответ: h=',h:5:2);
end;
if (a<1) or (a>5) then
writeln ('Такого номера типа задачи не существует.');
writeln ('Перезапустите программу и выберите номер типа задачи от 1 до 5.');
end.

Hamidylla    2   12.05.2021 21:09    0