Сформировать квадратную матрицу порядка N по заданному образцу:

@trafiq · Регистрация: 02.06.2013

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

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

делаю и сам не понимаю что делаю зпутался совсем

Pascal

program tabl15;
uses crt;
var
a:array [1..10,1..10] of integer;
n,i,j: integer;
begin
clrscr;
writeln('Введи размерность');
readln(n);
for i:=1 to n do
begin
for j:=1 to n do
begin
if i=j then a[i,j]:=1 else a[i,j]:=0;
write(a[i,j]:3);
end;
writeln;
end;
readln;
end.

как будет правильно помогите плиз

@Puporev · 05.06.2013, 20:03

У Вас непонятно и криво записаны элементы нижнего треугольника

@trafiq · 05.06.2013, 20:08 **[ТС]**

а как исправить? не могли бы помочь?)

@Puporev · 05.06.2013, 20:29

Если я правильно понял, то так. Посмотри.

Pascal

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of byte;
    n,i,j,k:byte;
begin
clrscr;
randomize;
repeat
write('Размер матрицы до ',nmax,' n=');
readln(n);
until n in [1..nmax];
if n mod 2=0 then k:=n div 2
else k:=n div 2+1;
for i:=1 to n do
 begin
  for j:=1 to n do
  if i<=k then
   begin
    if (j>=i)and(j<=n-i+1) then a[i,j]:=1
    else a[i,j]:=0
   end
  else
   begin
    if(j<=i) then a[i,j]:=j+n-i
    else a[i,j]:=0;
   end
 end;
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
readln
end.

@trafiq · 05.06.2013, 20:32 **[ТС]**

блин спасибо огромное) все да так и выходит)

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	05.06.2013, 20:03	2
	У Вас непонятно и криво записаны элементы нижнего треугольника 0

@trafiq 1 / 1 / 0 Регистрация: 02.06.2013 Сообщений: 12
	05.06.2013, 20:08 [ТС]	3
	а как исправить? не могли бы помочь?) 0

@trafiq 1 / 1 / 0 Регистрация: 02.06.2013 Сообщений: 12
	05.06.2013, 20:32 [ТС]	5
	блин спасибо огромное) все да так и выходит) 0

Опции темы