Алгоритмы и программы. Афанасьева Т. В - 137 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

137
begin
for j:=1 to 4 do
write(' ',a[i,j]:3);
writeln;
end;
p:=1;
for i:=1 to 4 do
for j:=1 to 4 do
begin
p:=p*a[i,j];
end;
writeln(' *Результат*');
write(' ***', p,'***');
end.
Пример 7.25. Получить единичную матрицу путем замены элементов
на главной диагонали на 1, а остальные – на 0.
program mas4;
var
a:array[1..5,1..5] of integer;
i,j:byte;
begin
writeln('Дана матрица:5*5 ');
for i:=1 to 5 do
for j:=1 to 5 do {заполнение и вывод массива}
a[i,j]:=random(100); {датчик случайных чисел }
for i:=1 to 5 do
begin
for j:=1 to 5 do
write(a[i,j]:3);
writeln;
end;
writeln;
writeln('Задание: получить единичную матрицу');
writeln('путем замены элементов на главной ');
writeln('диагонали на 1, а остальные – на 0');
for i:=1 to 5 do
for j:=1 to 5 do
if i=j then {замена элементов массива в соответствии }
{ с определением
единичной матрицы }
a[i,j]:=1
else
a[i,j]:=0;

Страницы