Azt, hogy tudom megcsinálni egy 8x10-es mátrix-szal, hogy minden elemét csökkentse a mátrix legkisebb abszolút értékű elemével?

leirtam Delphiben, majdnem ugyanaz, mint a Pascal..

a StringGrid1.valami utal a mátrixra amit Pascalban értelemszerűen át kell irnod, ugy, ahogyan ott generáltad le a mátrixot..

az alap algoritmus pedig ugyan az, mind a 2nél..

var i,j,min : integer;

begin

//-------------------------------------------------------------------------------

For i:=0 to StringGrid1.RowCount-1 do

For j:=0 to StringGrid1.ColCount-1 do

if (StrToInt(StringGrid1.Cells[j,i])<0) then

StringGrid1.Cells[j,i]:=IntToStr(StrToInt(StringGrid1.Cells[j,i])*(-1));

// ez volt az abszolut ertek meghatarozasa..minden negativ szamot megszoroz -1 el

min:=StrToInt(StringGrid1.Cells[0,0]);

For i:=0 to StringGrid1.RowCount-1 do

For j:=0 to StringGrid1.ColCount-1 do

begin

if (min>StrToInt(StringGrid1.Cells[j,i])) then

min:=StrToInt(StringGrid1.Cells[j,i]);

end;

// legkisebb szám megkeresese..

For i:=0 to StringGrid1.RowCount-1 do

For j:=0 to StringGrid1.ColCount-1 do

StringGrid1.Cells[j,i]:=IntToStr(StrToInt(StringGrid1.Cells[j,i])-min);

// a legkisebb elem kivonasa a többi elembol

end;

ja még valami..

- StrToInt : string-et alakit integer-ré

- IntToStr : Integert string-gé

- StringGrid1.RowCount/ColCount utal a mátrix utolsó elemeire (esetedben beirhatod helyette a 10 és 8 számokat)