Сформировать квадратную матрицу порядка n по заданному образцу

@LOST-MAKS · Регистрация: 12.03.2012

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

@ermolay · 12.03.2012, 19:38

Pascal

  const
    n=20;
  var
    a: array[1..n,1..n] of byte;
    i,j,m: byte;
begin
  writeln('vvedite razmernost matrici');
  readln(m);
  for i:=1 to m do
  begin
    for j:=1 to m do
    begin
      a[i,j]:=0;
      if (i=1)or(j=1)or(i=m)or(j=m)
        then a[i,j]:=1;
      write(a[i,j]:4)
    end;
    writeln;
  end;
  readln;
end.

@Севак · 12.03.2012, 19:43

LOST-MAKS,

Pascal

uses crt;
var
a: array[1..10,1..10] of integer;
n,i,j: integer;
begin
write('Введите размерность матрицы, не больше 10: ');
read(n);
for i:=1 to n do begin
for j:=1 to n do begin
if ((i=1) or (i=n)) or ((j=1) or (j=n)) then a[i,j]:=1
else a[i,j]:=0;
write(a[i,j]:4);
end;
writeln;
end;
end.

Сформировать квадратную матрицу порядка n по заданному образцу

Решение

Решение

@LOST-MAKS 0 / 0 / 0 Регистрация: 12.03.2012 Сообщений: 3
		1
	Сформировать квадратную матрицу порядка n по заданному образцу 12.03.2012, 19:20. Показов 1807. Ответов 2 Метки нет (Все метки) Сформировать квадратную матрицу порядка n по заданному образцу Миниатюры 0

Опции темы