Matematické Fórum

johnnyjohnny · 28. 11. 2014 17:27

ahoj, potreboval bych poradit jak presunout max prvek na konec pole..asi podle indexu, ale nevím jak...prosím o radu
-mam hotove vygenerovane pole ze ktereho vyberu maximalni prvek, ale ted nevim jak to prerovnat v poli, jestli udelat dalsi pole?
var
Application: TMyApplication;
pole:array [1..5] of integer;
i,j,max:integer;
pozice:byte;
begin
max:=0;
randomize;
for i:=1 to 5 do begin
pole[i]:=random(10)+1;
end;
writeln('Pole:');
for i:=1 to 5 do begin

end;
writeln;
for i:=1 to 5 do begin // hledam maximum v poli
if pole[i]>max then max:=pole[i];
end;

writeln('maximalni prvek je:',max);

//writeln('max prvek na konci rady');

readln;
end.

PanTau · 29. 11. 2014 14:30 — Editoval PanTau (29. 11. 2014 14:31)

↑ johnnyjohnny:
Ahoj, pascalu moc nerozumím, ale napíši to česky :-)

Ze zdrojového kódu jsem vykoukal že je pole velikosti 5, tudíž by poslední prvek měl ležet na indexu 4 (0,1,2,3,4).

Pokud najdeš maximum, měl by sis taky pamatovat, na jakém indexu leží(pokud nechceš znovu projíždět pole).

Tudíž máš hodnotu max a indexMax.

Pak už stačí z pole na konci si vyndat nějak to, co tam je.

Třeba
$\text{int tmp = pole[4];}$
$\text{pole[4]=max;}$
$\text{pole[maxIndex]=tmp;}$

POZOR, nevím jaká je syntaxe v pascalu, toto je jen nápověda (z javy)

johnnyjohnny · 30. 11. 2014 20:22

↑ PanTau: tak pozici jsem si prvku zjistil akorat tápu jak přesunout na konec rady

var
Application: TMyApplication;
pole,polem:array [1..5] of integer;
index,pozice,i,j,pom,max:integer;

begin

index:=0;
max:=0;
randomize;
for i:=1 to 5 do begin
pole[i]:=random(10)+1;
end;
writeln('Pole:');
for i:=1 to 5 do begin
write(pole[i],' ');
end;
writeln;
writeln;
for i:=1 to 5 do begin // hledam maximum v poli
if pole[i]>max then
max:=pole[i];
index:=i-1;
write(pole[i]:3, ' ');
writeln('index:=',index,' ;');

end;

writeln;
writeln('maximalni prvek je:',max);

writeln;

Matematické Fórum

#1 28. 11. 2014 17:27

presunuti maximalniho prvku na konec rady

#2 29. 11. 2014 14:30 — Editoval PanTau (29. 11. 2014 14:31)

Re: presunuti maximalniho prvku na konec rady

#3 30. 11. 2014 20:22

Re: presunuti maximalniho prvku na konec rady

Zápatí