Free Paskalban hogyan tudom megcserélni a legkisebb és a legnagyobb értékű sort egy 10x10 mátrixban?
válasza:Hogyan definiálod egy sor értékét?
Egyébként úgy, mint minden cserét. Megkeresed a cserélendőket és megcseréled.
válasza: válasza: válasza:a programom valahogy így néz ki:
program sorcsere;
uses crt;
var i,j,x,n,min,max : integer;
a : array[1..10,1..10] of integer;
begin
clrscr;
write('Adja meg a matrix meretet: ');
readln(n);
randomize;
for i:= 1 to n do begin
for j:= 1 to n do begin
a[i,j]:=random(10)+1;
write(a[i,j]:3);
end;
writeln;
end;
readln;
end.
csak annyi hogy a végen meg kikelene írnom a megváltozott mátrixot csak otletem sincs hogyan talaljam meg azokat a sorokat, így csak az értelmes részét másoltam be
válasza:Szia.
A Free pascal már tudja, tehát ha odafigyelsz a változók létrehozásánál akkor nagyon egyszerű dolgod van/lesz.
1. Kell egy sor tipus :
Type Sor = array {1..10] of longint ; // Vagy amilyen tipussal dolgoznod kell
2. Most kell a mátrix és a segédváltozó :
Var Matrix : array [1..10] of Sor ;
EgySor : Sor ;
3. Csere, ahogyam már irták, utolsó sor segédváltozóba, Utolsó sor megkapja az első sor értékét, első sorba segédváltozó lértéke, kész :
Egysor:=Matrix[10];
Matrix[10]:=Matrix[1];
Matrix[1]:=Egysor;
A Mátrix változóra mindenhol hivatkozhat két elemű tömbként : tehát a Matrix[1,1]; tömbelem a legkisebb, mig Mátrix [10,10] tömbelem a legnagyöbb számot tartalmazza, ha jó a sorbarandezés.
Sok sikeert.
Üdv.
válasza:Kapcsolódó kérdések:
Minden jog fenntartva © 2024, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!