Реферат: Структуровані типи даних записи та множини Використання процедур та функції мови Turbo Pascal

…

end;

begin

…

P(a, b, c); {виклик процедури}

…

end .

Рис.3

Приклад 2: в програмі визначити довжину кола C і площі круга S , обмеженого цим колом; відстань L центра кола від початку координат О . Координати центра кола – x , y , радіус кола – R .

Program KOLO ( input, output );

Var R : real; { радіус }

x , y : real :{ координати центра }

C : real ;{ довжина кола }

S : real ;{ площа круга }

L : real ;{відстань від центру}

Procedure KRUG ( R, x, y : real; var C, S, L : real);

Const pi = 3.14;

Begin

C := 2 * pi * R;

S := pi* sqr ( R );

L := sqrt ( sqr(x) + sqr(y));

End;

Begin

Writeln ( ‘ ввести R, x , y :‘);

Read ( x, y , R);

KRUG ( R, x ,y, C, S, L);

Writeln (‘ довжина кола = ’, C : 6 : 2);

Writeln (‘ площа кола = ’, S : 6 : 2);

Writeln (‘відстань = ’, L : 6 : 2);