программа вычисления площади...

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

  1. ..Riot..

    ..Riot.. New Member

    программа вычисления площади кольца, используя подпрограмму вычисления площадикруга
     
    ..Riot.., 5 янв 2010
    #1
  2. Утренний Кошмарик

    Утренний Кошмарик New Member

    Код Pascal
    1 const pi=3.14;
    2 var n,m: real;
    3 function S(r: real): real;
    4begin
      5 S:=pi*r*r;
    6 end;
    7begin
      8write('R1='); readln(n); n:=S(n);
      9write('R2='); readln(m); m:=S(m);
      10writeln('S=',abs(n-m));
    11end.
     
    Утренний Кошмарик, 5 янв 2010
    #2

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

Наша группа