Лекция 29.

Вопросы:

Что такое параметр. Виды параметров.

Разновидности формальных параметров. Их характеристика.

Задачи:

Определить значение переменных a, b.

Program _;

Var a,b:real;

Procedure vvod(x,y: real);

Begin

X:=5;

Y:=10;

End;

Begin

Vvod(a,b);

End.

Program _;

Var a,b:real;

Procedure vvod(var x,y: real);

Begin

X:=5;

Y:=sqr(5);

End;

Begin

Vvod(a,b);

End.

Определить результат работы данной процедуры:

Procedure unknown (var x,y: real);

Const eps= 0,9;

Begin

X:=0; Y:=0;

Repeat

Writeln(x:7:5,y:7:5);

X:=x+0,01;

Y:=y+0,01;

Until x+y>=eps;

End;

Определить результат работы данной функции:

Program _;

Const r=2;

Var d: real;

Function f(a,b,c:real):real;

Begin

F:=sqrt(abs(a))+sqr(c-b);

End;

Begin

D:=5+r;

Writeln(f(-36,r*2,d-3):10:5);

End.

Program _;

Const m=25;

Var d: real;

Function f(a,b:real):real;

Begin

F:= abs(5*a)+c;

End;

Begin

D:=4;

D:=sqrt(m)-d;

Writeln(f(d*2,10):10:5);

End.

Локальные и глобальные переменные.

Область действия идентификаторов.

Каждая подпрограмма включает в себя свои собственные переменные, постоянные, типы, описанные внутри данной процедуры или функции. Они называются локальными и действительны только в пределах данной подпрограммы и подпрограммах, расположенных внутри данной. Все они создаются при входе в процедуру и уничтожаются при выходе из нее.

Переменные, расположенные в основной программе, называются глобальными.

Глобальные и локальные переменные могут иметь одинаковые имена, так как им соответствуют разные объекты, но это не рекомендуется из-за возможной путаницы.

Program _;

Var i:byte;

Procedure vivod;

Var i: byte;

Begin

Write(i);

End;

Begin

I:=4;

Vivod;

End.

Найти ошибку: Написать программу, ввода и вывода одномерных массивов, нахождения их суммы.

Program _;

Type m=: array[1..n] of byte

Var a: m;

Procedure vvod (b:m);

Var i: byte;

Begin

For i:=1 to n do

Write (‘введите элемент массива’);

Readln(b[i]);

End;

Procedure vivod;

Begin

For i:=1 to n do

Write(b[i]);

End;

Function sum(b,d:m):m;

Begin

For i:=I to n do

Sum[i]:=b[i]+d[i];

End;

Begin

Vvod(x);

Vvod(y);

Z:=sum(x,y);

Vivod(z);

End.