Заполнить произвольный массив размером NxN (N<10) по заданному правилу

@kane7775 · Регистрация: 09.12.2014

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

Заполнить произвольный массив размером NxN (N<10) по следующему правилу
00100
00100
11111
00100
00100

@Puporev · 11.12.2014, 07:56

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var a:array[1..9,1..9] of byte;
    n,i,j:integer;
begin
val(Edit1.Text,n,i);
if(i<>0)or not(n in [3,5,7,9])then
 begin
  ShowMessage('N должно быть нечетное число от 3 до 9');
  Edit1.Clear;
  Edit1.SetFocus;
  exit
 end;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if(i=n div 2+1)or(j=n div 2+1)then a[i,j]:=1
    else a[i,j]:=0;
    Memo1.Text:=Memo1.Text+inttostr(a[i,j])
   end;
  Memo1.Text:=Memo1.Text+#13#10
 end;
 
end;

@Joy · 11.12.2014, 08:17

или со StringGrid:

Заполнить произвольный массив размером NxN (N<10) по заданному правилу

Решение

Решение

@kane7775 0 / 0 / 0 Регистрация: 09.12.2014 Сообщений: 12
		1
	Заполнить произвольный массив размером NxN (N<10) по заданному правилу 11.12.2014, 07:13. Показов 6338. Ответов 2 Метки нет (Все метки) Заполнить произвольный массив размером NxN (N<10) по следующему правилу 00100 00100 11111 00100 00100 0

Опции темы