Помощь - Поиск - Пользователи - Календарь
Полная версия: Матрица
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
minoru
Пожалуйста помогите с задачей для курсовой работы :
Дана прямоугольная матрица Ci,j размером . Найти минимальный по модулю элемент матрицы и умножить на его значение все элементы матрицы. Вывести полученную матрицу на печать.
Lapp
Цитата(minoru @ 11.12.2008 22:36) *
Пожалуйста помогите с задачей для курсовой работы :

Обязательно поможем. Говори, что сделал и что непонятно.
minoru

{
#5.pas

Copyright 2008 Roman <minoru@minoru-desktop>

Дана прямоугольная матрица Ci,j размером . Найти минимальный по модулю элемент матрицы и умножить на его значение все элементы матрицы.
Вывести полученную матрицу на печать.
}


program Work_5;

uses crt;
var i,j,m,n:integer;
a : array[1..10,1..10] of real;
c : real;

BEGIN
clrscr;
write ('n='); Readln(n);
write ('m='); readln (m);
begin
for i := 1 to n do
begin
for j := 1 to m do
begin
write('a[',i,',',j,']='); readln(a[i,j]);
end;
writeln;
end;

end;
readln;
END.


Вот а дальше "ступор", не могу понять как минимальный по модулю элемент.
Айра
Ищешь минимум как обычно, только сравниваешь не сами элементы, а их модули: abs(a[i,j])
samec
например так:
 
min:=abs(a[1,1]);
for i:=1 to n do
for j:=1 to m do
if(min > abs(a[i,j])) then
min:=abs(a[i,j]);

minoru
Вот может кому пригодится


{
#5.pas

Copyright 2008 Roman <minoru@minoru-desktop>

This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
MA 02110-1301, USA.
}


program Work_5;

uses crt;

const maxM=100;
maxN=100;

type TArray = array [1..maxN, 1..maxM] of real;

var m, n: byte;
Ar: TArray;
min: real;


procedure InputMx(Var Ar: TArray; var n, m: byte);
var i, j: byte;
begin
clrscr;
write ('n='); Readln(n);
write ('m='); readln (m);
for i:=1 to n do
for j:=1 to m do
begin
write('a[',i,',',j,']=');
readln(Ar[i,j])
end
end;

procedure FindMinAbs(Ar: TArray; n, m: byte; var min: real);
var i, j, minm, minn: byte;
begin
minn:=1;
minm:=1;
for i:=1 to n do
for j:=1 to m do
if abs(Ar[i,j])<abs(Ar[minn,minm])
then
begin
minn:=i;
minm:=j
end;
min:=Ar[minn,minm]
end;

procedure MultMxByMinAbs(var Ar: TArray; n, m: byte; min: real);
var i, j: byte;
begin
for i:=1 to n do
for j:=1 to m do
Ar[i,j]:=Ar[i,j]*min
end;

procedure ShowMx(Ar: TArray; n, m: byte);
var i, j: byte;
begin
clrscr;
for i:=1 to n do
for j:=1 to m do
writeln('a[',i,',',j,']=',Ar[i,j]4.gif8)
end;

BEGIN
InputMx(Ar,n, m);
FindMinAbs(Ar, n, m, min);
MultMxByMinAbs(Ar, n, m, min);
ShowMx(Ar, n, m)
END.


Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.