Помогите мне решить задачу.TurboPascal.Пожалуйста!

NimDraug

Дата: Пятница, 11.09.2009, 01:55 | Сообщение # 1

Новичок

Группа: Пользователи

Сообщений: 2

Репутация: 0

Замечания: 0%

Статус: Offline

Здравствуйте!=)

Пожалуйста,мне нужна помощь в решении задачи: *двумерные массивы*

Сформулировать квадратную матрицу порядка n по заданному образцу:
0 0 0 ... 0 0 1
0 0 0 ... 0 2 0
0 0 0 ... 3 0 0
...
0 n-1 0 ... 0 0 0
n 0 0 ... 0 0 0

Seqular

Дата: Суббота, 17.10.2009, 07:18 | Сообщение # 2

Хранитель

Группа: Администраторы

Сообщений: 859

Репутация: 35

Статус: Offline

Итак, есть матрица размером n*n... Инициализированная нулями. Нужно выполнить примерно такой цикл:

Code

for i := 1 to n do {пробегаем по строкам}
     begin
     a[i, n-i+1] := i;
     end;

Вроде бы так... Хотя могу немного ошибаться в индексах. К сожалению в армии паскаля нет.. Но давайте посмотрим логически. Матрица 5*5 к примеру.

Quote

1) a[1, 5] := 1;
2) a[2, 4] := 2;
3) a[3, 3] := 3;
4) a[4, 2] := 4;
5) a[5, 1] := 5;

Вроде все правильно

Поддерживаю также проект сообщество молодых сисадминов

		Вторник, 07.01.2025
	Pascal 4 All