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

@GhostMAND · Регистрация: 20.11.2016

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

Код

1     2   3   ...   n-2   n-1  n
2     2   4   ...   n-1   n    0
3     4   5   ...   n     0    0
.......................................
n-1   n   0   ...   0     2    0
n     0   0   ...   0     0    1

Помогите пожалуйста, а то как-то сложно)

@Puporev · 20.11.2016, 19:51

Вторая строка
2 3 4 . . .

Pascal

var a:array[1..10,1..10] of byte;
    n,i,j:byte;
begin
repeat
write('Размер матрицы от 2 до 10 n=');
readln(n);
until n in [2..10];
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if j<=n-i+1 then a[i,j]:=i+j-1
    else a[i,j]:=0;
    write(a[i,j]:3);
   end;
  writeln;
 end;
end.

@GhostMAND · 20.11.2016, 19:57 **[ТС]**

Я тоже думал про 234, но в задании 224, а в последних двух строках вашей программы на концах 00 вместо 20 и 01

@Puporev · 20.11.2016, 20:03

Не рассмотрел Вашу кривую таблицу, поправил ее.

@GhostMAND · 09.12.2016, 01:22 **[ТС]**

А если во второй строке оставить 234, как дополнить программу, чтобы считалась главная диагональ?

@GhostMAND 3 / 2 / 1 Регистрация: 20.11.2016 Сообщений: 19
		1
	Сформировать квадратную матрицу порядка n 20.11.2016, 19:22. Показов 1742. Ответов 4 Метки нет (Все метки) Код 1 2 3 ... n-2 n-1 n 2 2 4 ... n-1 n 0 3 4 5 ... n 0 0 ....................................... n-1 n 0 ... 0 2 0 n 0 0 ... 0 0 1 Помогите пожалуйста, а то как-то сложно) 0

@GhostMAND 3 / 2 / 1 Регистрация: 20.11.2016 Сообщений: 19
	20.11.2016, 19:57 [ТС]	3
	Я тоже думал про 234, но в задании 224, а в последних двух строках вашей программы на концах 00 вместо 20 и 01 0

@Puporev Почетный модератор 64287 / 47586 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	20.11.2016, 20:03	4
	Не рассмотрел Вашу кривую таблицу, поправил ее. 0

@GhostMAND 3 / 2 / 1 Регистрация: 20.11.2016 Сообщений: 19
	09.12.2016, 01:22 [ТС]	5
	А если во второй строке оставить 234, как дополнить программу, чтобы считалась главная диагональ? 0

Опции темы