Программы

а) программа с процедурой “Procedure”

program prog1;

var a, b, c, y, y1, y2, y3:real;

n, m: byte; {глобальное описание данных}

procedure step (x:real; n:byte; var y:real); {процедура вычисления ;

x, n – параметры значения; y – параметр переменная}

var i:byte; {локальное описание данных}

begin {начало локального блока}

y:=1;

for i:=1 to n do;

y:=y*x;

end; {конец локального блока}

begin {начало глобального блока}

writeln (‘введите исходные данные a, b, c, n, m’);

readln (a, b, c, n, m);

step (a, n, y1); {1-е обращение к процедуре Step}

step (b, m+1, y2); {2-е обращение к процедуре Step}

step (c, 10, y3); {3-е обращение к процедуре Step}

y:= (y1+y2)/y3;

writeln (‘y=’, y);

end. {конец глобального блока}

б) программа с процедурой Function

program prog2;

var a, b, c, y, y1, y2, y3:real;

n, m: byte; {глобальное описание данных}

function step (x:real; n:byte; var y:real); {процедура вычисления ;

x, n – параметры значения; y – параметр переменная}

var p:real, i:byte; {локальное описание данных}

begin

p:=1;

for i:=1 to n do;

p:=p*x;

step:=p; {имени функции присваивается значение результата}

end; {конец локального блока}

begin {начало глобального блока}

writeln (‘введите исходные данные a, b, c, n, m’);

readln (a, b, c, n, m);

y:=(step(a,n)+step(b,m+1))/step(c, 10);

writeln (‘y=’, y);

end.

Дата добавления: 2015-05-10