Составьте программу вычисления площади кольца по значениям внутреннего и внешнего радиусов, используя подпрограмму вычисления площади кругадва вариант

23 ноября 2013 / Разное

Составьте программу вычисления площади кольца по значениям внутреннего и внешнего радиусов, используя подпрограмму вычисления площади круга(два варианта:с процедурой и с функцией)

  • Program TaskA;
    Var r1, r2: Integer;

    Procedure S(r1, r2: Integer);
    Var s: Real;BeginIf r1 > r2 Then
    s := Pi * (r1 * r1 — r2 * r2)
    Else
    s := Pi * (r2 * r2 — r1 * r1);
    WriteLn(‘Площадь кольца: ‘, s:5:2);
    End;

    Begin
    Write(‘r1 = ‘);
    ReadLn(r1);
    Write(‘r2 = ‘);
    ReadLn(r2);
    S(r1, r2);
    ReadLn;
    End.

    Program TaskA;
    Var r1, r2: Integer;
    Function S(r1, r2: Integer): Real;

    Begin
    If r1 > r2 Then
    result := Pi * (r1 * r1 — r2 * r2)
    Else
    result := Pi * (r2 * r2 — r1 * r1);
    End;

    Begin
    Write(‘r1 = ‘);
    ReadLn(r1);
    Write(‘r2 = ‘);
    ReadLn(r2);
    WriteLn(‘Площадь кольца: ‘, S(r1, r2):5:2);
    ReadLn;
    End.


Добавить комментарий