Задача на паскале. Матрица

dima-baris · 12.05.2011, 23:14

Спасибо биг заранее!!
Задача: сформировать матрицу порядка n по заданному образцу!

Vladimir_S · 13.05.2011, 10:12

Цитата:

Сообщение от dima-baris

Спасибо биг заранее!!
Задача: сформировать матрицу порядка n по заданному образцу!

Только в порядке исключения. Вообще-то мы подобной рутинной ерундой, как правило, не занимаемся.

Код:

uses crt;
const
 n=10;
var
 i,j:integer;
 a:array [1..n,1..n] of integer;
begin
 clrscr;
 for i:=1 to n do
  for j:=1 to n do
   a[i,j]:=0;
 for i:=1 to n do
  begin
   a[i,i]:=i;
   a[n-i+1,i]:=i;
  end;
 for i:=1 to n do
  begin
   for j:=1 to n do
    write(a[i,j]:4);
   writeln;
  end;
 writeln;
 readln;
end.

12.05.2011, 23:14	#1 (permalink)
dima-baris Новичок Регистрация: 12.05.2011 Сообщений: 3 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Задача на паскале. Матрица Спасибо биг заранее!! Задача: сформировать матрицу порядка n по заданному образцу! Миниатюры

12.05.2011, 23:14
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Пожалуйста, не забудьте прочитать данные темы Задача на Паскале и С++ Задача на Паскале Задача на Паскале Задача на Паскале

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