1 семестр сессия / Bilet6
.docБилет №6. Особенности использования параметров в процедурах и функциях.
Параметры являются основным механизмом связи процедур и функций с вызывающей подпрограммой, поэтому важно иметь возможность использовать в качестве параметров широкий класс конструкций программы. Рассмотрим характерные особенности использования параметров в подпрограммах Турбо Паскаля, о которых полезно знать.
Параметры-массивы. При использовании массивов в качестве параметров необходимо учитывать одно ограничение при описании формальных параметров: типом любого формального параметра может быть только либо стандартный тип, либо тип, который объявлен ранее в вызывающей подпрограмме. Это означает, что нельзя использовать описание типа array непосредственно в списке формальных параметров. Например:
procedure state(m:array [1..8] of byte); {Неправильное описание параметра m}
type byte_st = array [1..8] of byte;
. . . .
procedure state(m:byte_st); {Правильное описание параметра m}
Это ограничение, конечно, справедливо и для строк. Для строк также важно, что объявленные длины формального и фактического строкового параметра-переменной должны совпадать (это ограничение, правда, можно обойти, если отключить контроль совпадения длин строк с помощью опции компилятора {$V-}).
Нетипизированные параметры-переменные. Формальный параметр-переменная может быть описан без указания типа. Такой параметр называется нетипизированным. Соответствующий ему фактический параметр может быть переменной любого типа.
Этот случай полезен, если тип данных несущественен, например, при копировании данных из одной области памяти в другую. Нетипизированные параметры можно использовать также для передачи в подпрограммы одномерных массивов переменной длины (до 64 КБайт).
Параметры - открытые массивы. В качестве параметров подпрограмм можно использовать открытые массивы, т.е. одномерные массивы, указываемые без описания их размера (а только с указанием типа элементов). Открытые массивы позволяют передавать как параметры статические массивы любого размера.
Пример: program ............
type array10 = array[0..9] of integer;
var vect:array10; res0,res:real;
.........
procedure compute(x:array of real; var r:real);
begin { тело процедуры compute } ..... end;
BEGIN {раздел операторов основной программы}
.......................
compute( [1.0, 2.0, 4.0, 8.0, 16.0], res0);...... compute(vect, res);
................
END .
Задача 4.2.6(6)
program alex6;
type mas=array[1..4,1..5]of integer;
var a:mas;
i,j,m:integer;
procedure proc(x:mas;k:integer;var l:integer);
var i:integer;
begin
l:=0;
for i:=1 to 4 do
if x[k,i]=0 then l:=l+1;
end;
begin
for i:=1 to 4 do
for j:=1 to 5 do
read(a[i,j]);
for i:=1 to 4 do
begin
proc(a,i,m);
if m>0 then for j:=1 to 5 do
write(a[i,j],' ');
end;
if m=0 then writeln('net stroki s nulami');
readln;
readln;
readln;
end.