Реферат: Процедури та функції в Turbo Pascal

в програмі визначити довжину кола 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);

end.

Суть (трактовка) параметрів-значень і параметрів змінних

Розглянемо особливості передачі параметрів із зовнішнього блоку до внутрішнього.

1-й спосіб – підстановка на місце формальних параметрів обчислених значень фактичних параметрів. Наприклад (див. приклад 2.1.1):

Sum (3.5, 7.6, y, z);

2-й спосіб – підстановка замість формальних параметрів імен фактичних параметрів:

Sum (x1, x2, y, z);

При цьому результати процедури завжди отримують імена (і не обов’язково співпадають з іменами формальних параметрів). Наприклад: