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

@Никита_Я12 · Регистрация: 12.03.2015

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

сформировать квадратную матрицу порядка n по заданному образцу c выводом в файл

$https://www.cyberforum.ru/cgi-bin/latex.cgi?\begin{matrix}1&1&1&\cdots&1&1&1\\ 1&0&0&\cdots&0&0&1\\ 1&0&0&\cdots&0&0&1\\ \vdots&\vdots&\vdots&\ddots&\vdots&\vdots&\vdots\\ 1&0&0&\cdots&0&0&1\\ 1&0&0&\cdots&0&0&1\\ 1&1&1&\cdots&1&1&1\end{matrix}$

pascal ABC, что-то типо рамки из 1

@SuperKir · 12.03.2015, 22:54

Pascal

var c: array[1..255,1..255] of integer;
    n,i,j: Integer;
 
begin
ReadLn(n);
for i:=1 to n do
for j:=1 to n do
begin
    if (i>1)and(i<n) then
        if (j=1)or(j=n) then
            c[i,j]:=1
        else
            c[i,j]:=0
    else c[i,j]:=1
end;
 
for i:=1 to n do
begin
   for j:=1 to n do
   begin
      write(c[i,j],' ')
   end;
   WriteLn
end;
ReadLn
end.

@Никита_Я12 0 / 0 / 0 Регистрация: 12.03.2015 Сообщений: 6
		1
	Сформировать квадратную матрицу порядка n 12.03.2015, 21:42. Показов 1429. Ответов 1 Метки нет (Все метки) сформировать квадратную матрицу порядка n по заданному образцу c выводом в файл $https://www.cyberforum.ru/cgi-bin/latex.cgi?\begin{matrix}1&1&1&\cdots&1&1&1\\ 1&0&0&\cdots&0&0&1\\ 1&0&0&\cdots&0&0&1\\ \vdots&\vdots&\vdots&\ddots&\vdots&\vdots&\vdots\\ 1&0&0&\cdots&0&0&1\\ 1&0&0&\cdots&0&0&1\\ 1&1&1&\cdots&1&1&1\end{matrix}$ pascal ABC, что-то типо рамки из 1 0

Опции темы

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

Решение