Nastiya320

30.10.2020 15:14

Есть ответ 👍

Переведите код программы из паскаля в пайтон . 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(GM/(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 := GM/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.

240

284

Посмотреть ответы 2

Ответы на вопрос:

даня1166

Информатика

4,4(36 оценок)

2945602973779 кот нажми на стрелку, и все

mrnazar228

Информатика

4,5(61 оценок)

ответ:

uses crt;

var

x,y,vx,vy: integer;

ch: char;

begin

clrscr;

x : = 1;

y : = 25 div 2;

while (x> =1) and (x< =80) and (y> =1) and (y< =25) do begin

gotoxy(x,y);

write('0');

delay(60);

if keypressed then begin

ch : = readkey;

case ch of

'd': begin vx: =1; vy: =0 end;

'a': begin vx: =-1; vy: =0 end;

'w': begin vx: =0; vy: =-1 end;

's': begin vx: =0; vy: =1 end;

end;

gotoxy(x,y);

write(' ');

inc(x,vx);

inc(y,vy);

end;

end.

Задай свой вопрос

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.