const nMax=100;
mMax=100;
type TMatrix= array[1..nMax,1..mMax] of real;
var m,n: integer;
a,b: TMatrix;
Procedure inimatr(var a:Tmatrix; var n,m:integer);
var i,j: byte;
begin
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(100)-50;
end;
function Maximum(const a:TMatrix; N,M:byte):real;
var max:real;
i,j:byte;
begin
max:=abs(a[1,1]);
for i:=2 to n do
for j:=2 to m do
if abs(A[i,j])>max then
max:=A[i,j];
Maximum:=max;
end;
Procedure zamena(var a,b:TMatrix; n,m:integer);
var i,j: byte;
maximum: real;
begin
for i:=1 to n do
for j:=1 to m do
b[i,j]:=a[i,j]/Maximum;
end;
Procedure printmatr(var a:TMatrix; var n,m:integer);
var i,j: byte;
begin
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j] : 2 : 3);
writeln;
end;
end;
begin
writeln('ââåäèòå í è ì');
readln(n,m);
inimatr(a,n,m);
maximum(a,n,m);
zamena(a,b,n,m);
printmatr(a,n,m);
writeln;
printmatr(b,n,m);
end.
почему происходит деление на ноль вместо деления на maximum?
RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.
Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.
Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.