Реферат: Процедуры и функции

M:=ABS(M);

Modul:=M;

end;

Procedure Vivod(var x:vector; Nx:integer; P:char);

begin

writeln;

writeln('Vector ',P,':');

writeln;

k:=1;

repeat

write(x[k],' ');

k:=k+1;

until k>Nx;

writeln;

end;

begin

vvod(a,na,ma,'A');

Sozd(a,na,ma);

M:=Modul(c,nc);

vivod(c,nc,'C');

writeln;

writeln('MODUL= ',M);

end.

4.2. Тестовый пример и результат

N=2 M=3

-4 2 0

0 4 –6

Vector:

-4 2 4 -6