Pascal-cyklus for

[edaparnik10]

Mohl by mi tady někdo poradit s přikladem:Vyber největší číslo a druhe největší číslo ze zadanych čísel pomocí cyklu for.Diky

[Reklama]

[CZechBoY]

zdravim a Vítej na PC-HELP !
kolik je celkem čísel ?
potřebuješ vybrat dvě největší čísla jo ? no to bude trochu problém, musíš mít dvě proměnné...
max=-5555 prostě minimální číslo
max2=-5555 taky nejmenší
pak testuješ jestli je testované číslo větší jak maximum1 nebo maximum2 pokud je větší jak max2 tak testuj jestli je větší jak max1 a pak to dáš do té proměnné, no docela dobré :-)

[edaparnik10]

No to maji byt dva přiklady,v jednom najit největší číslo,a ve druhe přikladu najit druhe největší číslo.A počet čisel ze kterych se bude vybirat je libovolny.

[edaparnik10]

a neviš kdo by mi s takovym přikladem poradil?

[CZechBoY]

jako to budu psát dvakrát to samé ?
[syntax lang=pascal]for i:=1 to 10 do
begin
if i >max then max=1;
end;[/syntax]
Pascal knížku mám v pokoji, ale Pascal neumim a na netu nemůžu nikde najít, ale něco na tento způsob...

[Sender]

Řešit se to dá více způsoby.
Pro inspiraci:
[syntax lang=delphi]
procedure TForm1.Button1Click(Sender: TObject);
var i,max,druhe:Integer;
pole:array[0..9] of Byte;
begin
max:=0;
druhe:=0;
for i:=0 to 9 do pole[i]:=0;
pole[6]:=30; //Nastavení největšího čísla
pole[2]:=15; //Nastavení druhého nej ....
for i :=0 to 9 do if pole[i]>max then max:=pole[i];
ShowMessage('Největší číslo je :'+Inttostr(max));

for i :=0 to 9 do if (pole[i]>druhe)and(pole[i]< max)then druhe:=pole[i];
ShowMessage('Druhé největší číslo je :'+Inttostr(druhe));
end;
[/syntax]