Треугольные матрицы

@Getron · Регистрация: 18.09.2010

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

тупанул, не квадратные а треугольные(
Теоретически как делать знаю, а вот на практике получается полнейшая чушь, в общем тут такие матрицы:
1)

Код

2)

Код

Помогите пожалуйста

@ermolay · 25.12.2012, 17:40

1.

Pascal

const
  nmax=20;
var
  a: array[1..nmax,1..nmax] of byte;
  n,i,j: byte;
begin
  write('Введите размер массива n: ');
  readln(n);
  for i:=1 to n do
  begin
    for j:=1 to n-i+1 do
    begin
      if i mod 2<>0 then a[i,j]:=j*2-1
        else a[i,j]:=j*2;
      write(a[i,j]:4);
    end;
    writeln;
  end;
end.

2.

Pascal

const
  nmax=20;
var
  a: array[1..nmax,1..nmax] of byte;
  n,i,j: byte;
begin
  write('Введите размер массива n: ');
  readln(n);
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=n-j+i;
      if i>j then write('    ')
        else
          write(a[i,j]:4);
    end;
    writeln;
  end;
end.

@Getron 0 / 0 / 0 Регистрация: 18.09.2010 Сообщений: 16
		1
	Треугольные матрицы 25.12.2012, 17:23. Показов 1132. Ответов 1 Метки нет (Все метки) тупанул, не квадратные а треугольные( Теоретически как делать знаю, а вот на практике получается полнейшая чушь, в общем тут такие матрицы: 1) Код 1 3 5 7 9 2 4 6 8 1 3 5 2 4 1 2) Код 5 4 3 2 1 5 4 3 2 5 4 3 5 4 5 Помогите пожалуйста 0

	25.12.2012, 17:40

Треугольные матрицы

Решение