Двумерный массив, 7x7, заполнить по определенному правилу

@Raison · Регистрация: 08.06.2010

Студворк — интернет-сервис помощи студентам

Заполнить массив 7x7 по правилу:

1 1 1 1 1 1 1
0 1 1 1 1 1 0
0 0 1 1 1 0 0
0 0 0 1 0 0 0
0 0 1 1 1 0 0
0 1 1 1 1 1 1
1 1 1 1 1 1 1

@Mad_Dog · 08.06.2010, 13:50

Не долго думая, вот что получилось...

Pascal

Program Seven;
Uses Crt;
Var
  j,i:byte;
  M:array[1..7,1..7] of byte;
 
BEGIN
  ClrScr;
  FillChar(M,SizeOf(M),0);
  for i:=1 to 7 do
    M[i,4]:=1;
  for i:=1 to 3 do
    for j:=1 to i do
      begin
        M[4-i,4-j]:=1;
        M[4-i,4+j]:=1;
        M[4+i,4-j]:=1;
        M[4+i,4+j]:=1
      end;
  for i:=1 to 7 do
    begin
      for j:=1 to 7 do
        write(M[i,j]:2);
      writeln
    end;
  writeln;
  writeln('Press any key...');
  repeat
  until KeyPressed
END.

@Raison · 08.06.2010, 14:04 **[ТС]**

Благодарен вам!

@Raison 0 / 0 / 0 Регистрация: 08.06.2010 Сообщений: 20
		1
	Двумерный массив, 7x7, заполнить по определенному правилу 08.06.2010, 13:23. Показов 1570. Ответов 2 Метки нет (Все метки) Заполнить массив 7x7 по правилу: 1 1 1 1 1 1 1 0 1 1 1 1 1 0 0 0 1 1 1 0 0 0 0 0 1 0 0 0 0 0 1 1 1 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 0

@Raison 0 / 0 / 0 Регистрация: 08.06.2010 Сообщений: 20
	08.06.2010, 14:04 [ТС]	3
	Благодарен вам! 0

Опции темы

Двумерный массив, 7x7, заполнить по определенному правилу

Решение