Page 18 - 6263

procedure testWhile; // приклад оператора циклу while-do
begin
i:=0;
while i<=5 do // поки i<=5 повторювати
begin // цей блок команд
writeln(i);
i:=i+1;
end
end;

procedure testRepeat; // приклад оператора циклу repeat-
until
begin
i:=0;
repeat // повторювати наступні команди
writeln(i);
i:=i+1;
until i>5; // поки i не більше 5
end;

// приклад оголошення процедури
// з параметрами-аргументами a,x і параметром-результатом
y
procedure testProcedure(a,x: real; var y: real);
var k:real; // локальна змінна
begin
k:=a+1;
y:=power(x,k);
end;

// приклад оголошення функції дійсного типу
// з параметром x
function testFunction(x:real):real;

18