Пк запрашивает название...

Тема в разделе "Информатика", создана пользователем AlexsashkaZ, 13 мар 2010.

  1. AlexsashkaZ

    AlexsashkaZ New Member

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

    matvey New Member

    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.
     
     
     
     
    как-то так)
     
    matvey, 13 мар 2010
    #2

Поделиться этой страницей

Наша группа