Создать програмку для этих двумерных массивов:

1 0 1 0 1 0...

1 0 1 0 1 0...

1 0 1 0 1 0...

1 1 1 1 1 1....

0 0 0 0 0 0....

1 1 1 1 1 1....

0 0 0 0 0 0....

0 1 0 1 0...

1 0 1 0 1....

0 1 0 1 0....

1 0 1 0 1....

Помогите пожалуйста! Буду очень благодарна! ;)))

1

Ответы и объяснения

2013-04-30T20:49:01+04:00

program zadacha_1;
const i=10;
      j=10;
type mymatrix = array[1..i,1..j]of byte;
      var k,n:integer;
          a:mymatrix;
begin
for k:=1 to i do begin
for n:=1 to j do begin
if (n mod 2=1) then a[k,n]:=1
else a[k,n]:=0;
write(a[k,n]:1);
end;
writeln;
end;
end.

 

Это для 1 случая

 

program zadacha_2;
const i=10;
      j=10;
type mymatrix = array[1..i,1..j]of byte;
      var k,n:integer;
          a:mymatrix;
begin
for k:=1 to i do begin
for n:=1 to j do begin
if (k mod 2=1) then a[k,n]:=1
else a[k,n]:=0;
write(a[k,n]:1);
end;
writeln;
end;
end.

 

Это для 2 случая

 

program zadacha_2;
const i=10;
      j=10;
type mymatrix = array[1..i,1..j]of byte;
      var k,n:integer;
          a:mymatrix;
begin
for k:=1 to i do begin
for n:=1 to j do begin
if (n mod 2=1) and (k mod 2=1) or (n mod 2=0) and (k mod 2=0) then a[k,n]:=1
else a[k,n]:=0;
write(a[k,n]:1);
end;
writeln;
end;
end.

 

Это для 3 случая