составить программу вычисления...

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

  1. Lenusik

    Lenusik New Member

    составить программу вычисления площади круга и длину окружности величину радиуса вводить с клавиутуры ,выход из программы при нулевомрадиусе
     
    Lenusik, 4 янв 2010
    #1
  2. Dobry_Diatel

    Dobry_Diatel New Member

    program dd;
    uses crt;
    var S,c,r,pi:real;
    begin
    Writeln('Величина радиуса ');
    read(r);
    pi:=3.14;
    if r>0 then
    begin
    S:=Pi*r*r;
    c:=2*Pi*r;
    Write ('площадь =',S:6:2,' Длина окружности =',c:6:2) end
    else
    end.
     
    Dobry_Diatel, 4 янв 2010
    #2

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

Наша группа