сформировать квадратную матрицу порядка n по заданному образцу
1 0 0 ... 0 0 1
1 1 0 ... 0 1 1
1 1 1 ... 1 1 1
. . . . . . .
. . . . . . .
. . . . . . .
1 1 0 ... 0 1 1
1 0 0 ... 0 0 1
program Matritsa;
Var a:array[1..100, 1..100] of Integer;
n,z:integer;
i,j:byte;
Begin
WriteLn('Vvedite razmernost matritsi');
ReadLn(n);
z:=1;
For i:=0 to n do
begin
For j:=1 to n do
begin
if ((j<=z) or (j>=n-z)) then
a[i,j]:=1 else a[i,j]:=0;
end;
if ((i<n/2)) then
z:=z+1
else
z:=z-1
end;
WriteLn;
WriteLn('Rezultat:');
for i:=0 to n do
Begin for j:=1 to n do Write (a[i,j],' ');
WriteLn;
end;
ReadLn
end.
Во-первых, у тебя почему-то цикл по i начинается с 0, а не с единицы (оба цикла по i, расчет и вывод)
Во-вторых неверно заполняется кое-где..
Я бы сделал вот так:
program Matritsa;
Var
a:array[1..100, 1..100] of Integer;
n:integer;
i,j:byte;
Begin
WriteLn('Vvedite razmernost matritsi');
ReadLn(n);
z:=1;
For i:=1 to n do
For j:=1 to n do
if (j<=i)and(j<=n-i+1)or(j>=n-i+1)and(j>=i) then a[i,j]:=1 else a[i,j]:=0;
WriteLn;
WriteLn('Rezultat:');
for i:=1 to n do Begin
for j:=1 to n do Write (a[i,j],' ');
WriteLn;
end;
ReadLn
end.
Lapp, спасибо большое)))
kess, обрати внимание также на форматирование программного текста в моих примерах. Постарайся уловить основные принципы и не делать больше ошибок. Это поможет тебе..