Заменить нулями все элементы, расположенные на главной диагонали и выше её

@Vansoll · Регистрация: 13.06.2018

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

Дана действительная натуральная матрица порядка 12. За-менить нулями все элементы, расположенные на главной диагона-ли и выше её.

@Puporev · 13.06.2018, 09:51

Сообщение от Vansoll

Заменить нулями все элементы, расположенные на главной диагонали и выше её.

Delphi

n:=12;
for i:=1 to n do
for j:=i to n do
a[i,j]:=0;

@D1973 · 13.06.2018, 10:34

Комментарий модератора

Vansoll, это последнее предупреждение. Еще одна тема с бессмысленным названием - буду штрафовать за нарушение п. 5.4 Правил форума!!!

@Puporev · 20.06.2018, 10:37

Delphi

procedure TForm1.Button1Click(Sender: TObject);
const n=12;
var a:array[1..n,1..n] of real;
    i,j:byte;
begin
randomize;
for i:=1 to n do
for j:=1 to n do
 begin
  a[i,j]:=10*random;
  StringGrid1.Cells[j-1,i-1]:=formatfloat('0.00',a[i,j])
 end;
for i:=1 to n do
for j:=1 to n do
 begin
  if j>=i then a[i,j]:=0;
  StringGrid2.Cells[j-1,i-1]:=formatfloat('0.00',a[i,j])
 end;
end;

@Vansoll 0 / 0 / 0 Регистрация: 13.06.2018 Сообщений: 10
		1
	Delphi 6-7 Заменить нулями все элементы, расположенные на главной диагонали и выше её 13.06.2018, 09:49. Показов 1075. Ответов 3 Метки нет (Все метки) Дана действительная натуральная матрица порядка 12. За-менить нулями все элементы, расположенные на главной диагона-ли и выше её. 0

Опции темы