Решаем задачи Абрамян на Паскале. Matrix88

Matrix88. Дана квадратная матрица порядка $$M$$. Обнулить элементы матрицы, лежащие ниже главной диагонали. Условный оператор не использовать.

Решение:

program Matrix88;
type
  matrix = array [1..10,1..10] of integer;

var
  a:matrix;
  M, i, j:Integer;

begin
 Write('M: ');
 Readln(M);

 for  j:=1 to M do
  begin
   writeln(j,': ');
   for i:=1 to M do
    begin
     Write(i,' : ');
     Read(a[i,j]);
    end;
  end;

 for j:=1 to M-1 do
   for i:=1 to j do   
     a[i,M-(j-i)]:=0;

 for  j:=1 to M do
  begin
   for i:=1 to M do
    begin
     Write(' : ', a[i,j]);
    end;
   Writeln(' : ');
  end;
end.

program Matrix88;

type

matrix = array [1..10,1..10] of integer;

var

a:matrix;

M, i, j:Integer;

begin

Write('M: ');

Readln(M);

for j:=1 to M do

begin

writeln(j,': ');

for i:=1 to M do

begin

Write(i,' : ');

Read(a[i,j]);

end;

for j:=1 to M-1 do

for i:=1 to j do

a[i,M-(j-i)]:=0;

for j:=1 to M do

begin

for i:=1 to M do

begin

Write(' : ', a[i,j]);

end;

Writeln(' : ');

end;

end.

Другие задачи из раздела Matrix можно посмотреть здесь.

Комментарии 2

program m88;

type 
 matrix = array [1..10,1..10] of real;
 
var
 a: matrix;
 m,i,j: integer;

begin
randomize;
 m:=random(8)+2;
 writeln('M=',m);
 writeln();
 for i:=1 to m do
  begin
   for j:=1 to m do
    begin
     a[i,j]:=random*10;
     write(a[i,j]:6:2);
    end;
   writeln();
  end;
 writeln();
 
 for i:=1 to m do
  for j:=1 to m do
   if (i>j) then a[i,j]:=0;
   
 for i:=1 to m do
  begin
   for j:=1 to m do write(a[i,j]:6:2);
   writeln();
  end;
end.

program m88;

type

matrix = array [1..10,1..10] of real;

var

a: matrix;

m,i,j: integer;

begin

randomize;

m:=random(8)+2;

writeln('M=',m);

writeln();

for i:=1 to m do

begin

for j:=1 to m do

begin

a[i,j]:=random*10;

write(a[i,j]:6:2);

end;

writeln();

end;

writeln();

for i:=1 to m do

for j:=1 to m do

if (i>j) then a[i,j]:=0;

for i:=1 to m do

begin

for j:=1 to m do write(a[i,j]:6:2);

writeln();

end;

end.

Ответить

Kirk

13.05.2017 в 14:53

Точнее так

for i:=m downto 1 do for j:=m-i downto 1 do a[m-i+1,j]:=0;

1
2

for i:=m downto 1 do
for j:=m-i downto 1 do a[m-i+1,j]:=0;

Забыл про условный оператор 🙂

Ответить

Решаем задачи Абрамян на Паскале. Matrix88

Комментарии:

Комментарии 2

Добавить комментарий Отменить ответ