Правила форума
Прочтите прежде чем задавать вопрос!
Даны натур. число n, действительная квадратная матрица порядка n.
Построить последовательность b1...bn из нулей и единиц, в которой b[i]=1 тогда и только тогда,
когда в i-й строке матрицы есть хотя бы один отриц. элемент. Прогр. должна содержать не менее 3-х функций и процедур.
Вроде написал, но нужно, чтобы имела место передача массива как параметра процедуры
Код
program matrix;
uses crt;
const m=10;
space='---------';
var n:byte;
y:real;{veschestvennye chisla}
i,j:integer;{Tseloye}
x:word;{Naturalnoye chislo}
znak:byte;
a: array [1..m,1..m] of real;
b: array [1..m] of word;
{}
procedure header;
begin
clrscr;
write(space); textcolor(4); write(' copyright '); textcolor(7); writeln(space); writeln;
end;
{}
procedure zapros;
begin
Write('Введите размер матрицы :');
Read(n);
end;
procedure vvod;
var i, j: integer;
begin
{nachalo vneshnego tsikla}
for j:=1 to n do begin
{nachalo vnutrennego tsikla}
for i:=1 to n do begin
Write('Введите элемент ',i,'-й строки ',j,'-го столбца :');
Readln(a[i,j]);
end;
{konets vnutrennego tsikla}
writeln;
end;
{konets vneshnego tsikla}
end;
{}
procedure screen;
begin
clrscr;
textcolor(white);
end;
{}
function massiv: word;
begin
end;
procedure input;
begin
end;
procedure rand;
var q,r: real;
begin
{nachalo vneshnego tsikla}
for j:=1 to n do begin
{nachalo vnutrennego tsikla}
for i:=1 to n do begin
q:=Random(100);
r:=Random(Random(round(n*n)));
if r=0 then q:=0-q;
a[i,j]:=q;
writeln('b[',i,',',j,']=',a[i,j]);
end;
{konets vnutrennego tsikla}
writeln;Readln;
end;
{konets vneshnego tsikla}
end;
{}
function sequence: word;
begin
writeln;
for i:=1 to n do
begin
for j:=1 to n do
begin
if a[i,j]<0 then
begin
b[i]:=1;
break;
end;
end;
end;
end;
{}
begin
header;
while (n>100) or (n<=0) do zapros;
massiv;
if n<5 then vvod else rand;
sequence;
for i:=1 to n do
begin
writeln('b[',i,']=',b[i]);
delay(10000);
end;
writeln;
write('Press Enter');
readln;
end.
