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

Параметры-значения не обязательно имеют стандартный тип. Пусть, например, в программе описана константа n и регулярный тип Т:

Т = аrrау[1..п] of real

Для вычисления величин s =a₁^{2 +}a₂²+…+а_n² и t=max( | a₁|, |а₂|,...., |а_n|) может быть использована процедура

procedure r(a: Т; va s, t: real);

var i: integer; u: real;

Begin

s: =sqr(a[1]); t: =abs(a[1]);

for i: =2 to n do

Begin

s: =s+sqr(a[i]);

u: =abs(a[i]);

if и > t then t: =u

End

End;

при обращении к этой процедуре с помощью оператора процедуры r(x, p, q); будет выполняться составной оператор

Begin

а: =х;

p: =sqr(a[1]); q: =abs(a[1]);

for i: =2 to n do

Begin

p: =p+sqr(a[i]);

u: =abs(a[i]);

if и > q then q: =u

End

End;

В операторе присваивания a: =x левая и правая части являются переменными регулярного типа Т.

ЗАДАЧИ

Процедуры без параметров. Параметры - переменные

1. Какое из следующих описаний процедур без параметров составлено правильно, а какие - нет, и почему:

procedure dis;

d: =sqr(b) - 4*a*c;

Procedure dis;

var d: real;

d: =sqr(b) - 4*a*c;

Procedure dis;

begin

d: =sqr(b) - 4*a*c;

end;

2. Рассмотрим два описания процедур без параметров:

procedure F; procedure G;

var x: real; var x, y, z: real;

begin begin

x: =y+z; x: =y+z;

end; end;

Один из операторов процедуры F или G не может быть выполнен ни при каких обстоятельствах, а другой - может в определенных случаях. Какой именно из операторов F и G и, в каких случаях может быть выполнен? Каковы последствия этого выполнения?

3. Для каждого из приведенных ниже описаний процедур сформулировать назначение соответствующей процедуры:

А) procedure S(var х, y, z. real);

begin

z: = х + у

end,

б) procedure P(var х, у, z, t: real);

begin

z: = х+у;

t: = х*у

end;

в) procedure C(var х, у, r: real; var р: integer);

Begin

if sqr(x) + sqr (у)< = sqr(r) then p: = 1 else p: =0

End;

4. Что будет выведено при выполнении следующей программы:

Program Prog(output);

var х, у, z: real;

procedure P(var a, b: real);

var г: real;

Begin

z: =a;

a: =b;

b: =z

End;

procedure Q(var a, b: real);

Begin

z: =a;

a: =b;

b: =z

End;

Begin

x: =1.1;

y: =2.2;

z: =3.3;

P(x, у);

Writeln(x, у, z);

х: =1.1;

у: =2.2;

z: =3.3;

Q(х, у);

Writeln(x, у, z);

End;

5. Если в программе и в процедуре описана одна и та же переменная, то, какое из этих описаний имеет силу в процедуре?

6. Процедура описана следующим образом:

procedure F(var х, у: integer);

Begin

x: =у

End;

Допустимо ли обращение к процедуре, имеющее вид F(a, b-1)?

7. Имеет место следующий интересный геометрический факт: если координаты вершин треугольника в прямоугольной системе координат равны, соответственно (х₁, y₁), (х₂, y₂), (х₃, у₃), то площадь этого треугольника равна

0.5|x₁y₂+x₂y₃+x₃y₁-x₁y₃-x₂y₁-x₃y₂|

Используя этот факт, написать программу вычисления площади выпуклого четырехугольника ABCD (рис. 1), заданного координатами четырех вершин (х_А, у_A), (х_B, у_B), (x_C, у_C), (x_D, y_D)

8. Дано: натуральные n, m (n, m> 1), целые а₁, …, a_n, b₁,...b_m, с₁,.....с₃₀. Получить

9. Дано: натуральные k, l, m, действительные x₁, …, х_к, y₁,..., y_t, z₁,..., z_m. Получить

10. Дано: натуральное к, действительные а₁, …, a_3n. Получить х+у²+z³, где

x=а₁a₂…a_n

y=а_n+1a_n+2…a_2n

z= a_2n+1a_2n+2… a_3n