26.12.2010, 14:39
|
#10 (permalink)
|
|
Новичок
Регистрация: 24.12.2010
Сообщений: 9
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Цитата:
Сообщение от Vladimir_S
Да уж, накрутили...
И на кой пёс, скажите на милость, Вам эти пользовательские типы сдались? И потом зачем-то в первом варианте квадратные (по условию) матрицы начали переделывать в прямоугольные, да еще разные вдобавок... На самом деле всё много проще. Примерно так:
Код:
CONST
M=4;
VAR
A,B:Array[1..M,1..M] of Real;
Max:Array[1..M] of Real;
i,j:Byte;
BEGIN
For i:=1 to M do
For j:=1 to M do
begin
Write('A[',i,',',j,']= ');
ReadLn(A[i,j]);
end;
For i:=1 to M do
For j:=1 to M do
begin
Write('B[',i,',',j,']= ');
ReadLn(B[i,j]);
end;
WriteLn('Initial matrices:');
For i:=1 to M do
begin
For j:=1 to M do
Write(A[i,j]:6:1);
Write(' ');
For j:=1 to M do
Write(B[i,j]:6:1);
WriteLn;
end;
For i:=1 to M do
begin
Max[i]:=B[i,1];
for j:=2 to M do
if B[i,j]>Max[i] then Max[i]:=B[i,j];
end;
WriteLn;
Write('Maximum values: ');
For i:=1 to M do
Write(Max[i]:6:1);
WriteLn;
WriteLn;
WriteLn('Modified matrix:');
For i:=1 to M do
begin
For j:=1 to M do
Write(A[i,j]*Max[i]:12:1);
WriteLn;
end;
ReadLn;
END.
|
Спасибо большое,теперь попробую разобраться)
|
|
|