Паскаль. Получить квадратную матрицу порядка N

игорек36 · 03.02.2016, 18:55

получить квадратную матрицу порядка n по заданному образцу
1 2 n-1 n
n+1 n+2 ... 2n-1 2n
2n+1 2n+2 ... 3n-1 3n
. . . . .
. . . .
. . . . .
(n-1)n+1 . n2-1 n2

на паскале нужно написать, экзамен не поставят без этого, помогите друзья

игорек36 · 03.02.2016, 19:03

1111

Vladimir_S · 03.02.2016, 19:19

Да ладно, живите, сейчас нарисую. Папиросу только выкурю.

Vladimir_S · 03.02.2016, 19:31

Пожалуйста. Делов-то на три минуты...

Код:

Const
 Nmax=10;

Var
 i,j,n:Byte;
 A:Array[1..Nmax,1..Nmax] of Byte;

Begin
 Write(' n (<=',Nmax,') = ');
 Readln(n);
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     A[i,j]:=(i-1)*n+j;
     write(A[i,j]:4);
    end;
   writeln;
  end;
 Readln
End.

игорек36 · 03.02.2016, 19:55

спасибо огромное век не забуду)))))))))

03.02.2016, 18:55	#1 (permalink)
игорек36 Новичок Регистрация: 03.02.2016 Сообщений: 3 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Паскаль. Получить квадратную матрицу порядка N получить квадратную матрицу порядка n по заданному образцу 1 2 n-1 n n+1 n+2 ... 2n-1 2n 2n+1 2n+2 ... 3n-1 3n . . . . . . . . . . . . . . (n-1)n+1 . n2-1 n2 на паскале нужно написать, экзамен не поставят без этого, помогите друзья

03.02.2016, 19:31	#4 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,809 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Пожалуйста. Делов-то на три минуты... Код: Const Nmax=10; Var i,j,n:Byte; A:Array[1..Nmax,1..Nmax] of Byte; Begin Write(' n (<=',Nmax,') = '); Readln(n); for i:=1 to n do begin for j:=1 to n do begin A[i,j]:=(i-1)*n+j; write(A[i,j]:4); end; writeln; end; Readln End.

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

03.02.2016, 18:55
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Похожие обсуждения помогут вам решить эту проблему Метод Рунге-Кутта 2-го порядка, Паскаль Решение дифференциального уравнения второго порядка Полосовой фильтр второго порядка Метод Рунге-Кутта 2-го порядка, Паскаль

03.02.2016, 19:03	#2 (permalink)
игорек36 Новичок Регистрация: 03.02.2016 Сообщений: 3 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	1111

03.02.2016, 19:19	#3 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,809 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Да ладно, живите, сейчас нарисую. Папиросу только выкурю.

03.02.2016, 19:55	#5 (permalink)
игорек36 Новичок Регистрация: 03.02.2016 Сообщений: 3 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	спасибо огромное век не забуду)))))))))

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070