19. Перепишите процедуры из пункта 17 в виде функций.
20. Изучите программу PR1 и ответьте на следующие вопросы: 1) назовите переменные, локальные для процедуры pr3 и недоступные для процедуры pr2 и основной программы; 2) назовите переменные, являющиеся глобальными для процедуры pr3, недоступные в основной программе, но локальные для процедуры pr2; 3) назовите переменные, являющиеся глобальными как для процедуры pr2, так и для процедуры pr3. program PR1; var A, B, C: real; procedure pr2; var X, Y, Z: real; procedure pr3; var i, j, k: real; begin … end; begin … end; begin … end.
21. Изучите программу PR и ответьте на следующие вопросы: 1) какие переменные, являясь одна локальной, а другая глобальной, имеют одно и то же имя? 2) будет ли переменная L иметь одно и то же значение в основной программе и в процедуре pr3? 3) доступна ли переменная L, описанная в основной программе, в процедурах pr3 и pr4? 4) окажет ли влияние на переменную L, описанную в основной программе, изменение значения переменной L, описанной в процедуре pr3? program PR; var L, D, F: real; procedure pr2; var M, N: integer; begin … end; procedure pr3; var L, L4: integer; procedure pr4; var L5: integer; begin … end; begin … end; begin … end.
22. Какой смысл имеет величина k в следующей серии команд
(1). k:=0;
for i:=1 to n do
begin
g:=summamod(a[i]);
if g=0 then k:=k+1
end;
(2). k:=0;
for i:=1 to n do
begin
g:=summamod(a[i]);
maximummod(a[i],l,ma);
if g=ma then k:=k+1 end;
(3). k:=0;
for i:=1 to n do begin
g:=summamod(a[i]);
d:=summa(a[i]);
if g=d then k:=k+1;
end;
(4). k:=0;
for i:=1 to n do begin
maximum(a[i],g,ma);
if ma<0 then k:=k+1
end;
(5). k:=0; k:=0;
for i:=1 to n do begin
maximum(a[i],g,ma);
maximummod(a[i],l,mam);
if mam<>ma then k:=k+1;
end;
(6). k:=0;
for i:=1 to n do
begin g:=summamod(a[i]);
d:=summa(a[i]);
if g<>abs(d) then k:=k+1;
end;
23. Составьте процедуры для:
(1). ввода одномерного числового массива,
(2). вывода одномерного числового массива,
(3). ввода двумерного числового массива,
(4). вывода двумерного числового массива,
(5). нахождения суммы элементов одномерного массива,
(6). нахождения суммы элементов двумерного массива,
(7). нахождения произведения элементов одномерного массива,
(8). нахождения номера максимального элемента одномерного массива,
Procedure (var a:real, b,s:char; var d:real);
…..
Procedure(b[1]+b[2],b[2]+b[3],b[3]+b[1],b[2]);
Procedure str(a;b;c:integer; var s:real);
...
str(k[1],k[2],k[3],k[4]);
