Задать вопрос Регистрация
Помочь другим

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

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

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

     

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

Ответы 2

  • 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.

     

     

     

     

    как-то так)

    • Автор:

      riverbbjs
    • 6 лет назад
    • 0

  • 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.

    • Автор:

      scout0juh
    • 6 лет назад
    • 0

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years