Poraďte mi s úkolem v Delphi.*

[kikin1]

Je dána posloupnost 50 čísel, z nichž některá mohou být stejná. Určete, kolik hodnot se mezi vstupními čísly nachází alespoň dvakrát.


HELP ME pls :-))) vubec nevim jak na to

[Reklama]

[Sender]

Tak třeba -načti čísla do pole.Postupě procházej v cyklu všechny čísla,začni kontrolu prvním.

[CZechBoY]

jak jsou ty čísla zadaná? v nějakým TextBoxu a oddělovačem?
zkus to přes to pole a tím FORem kontrolovat jestli už tam jednou nebyl
jak to tak píšu tak si uvědomuju že ty pole budou 2:
1. pole: tam budou zadaná čísla
2. pole: tam budou čísla, který už jsi zkontroloval
takže vlastně bude FOR, který pojede číslo od čísla v 1. poli a v něm vnořený FOR, který bude kontrolovat jestli už není v tom 2. poli

je to aspoň trochu jasné, nebo mám hledat kód?

[kikin1]

diky moc... zatim mam pulku programu: ale nvm tady to: "Určete, kolik hodnot se mezi vstupními čísly nachází ALESPOŇ DVAKRÁT. "
netusim jak na to.. :-)

[kikin1]

tady mam cely program :-)




begin
memo1.Clear;
for i:=1 to 50 do

begin
randomize;
pole[i]:=random(50) ;
memo1.lines.add('Pozice '+(inttostr(i))+' -> '+(inttostr(pole[i])));
for j:=1 to 50 do

begin
if pole[j] = pole[i] then memo1.lines.add('stejná hodnota je na pozici... '+inttostr(j))

jedine co nechapu jak to mam napsat aby mi vypsalo ty cisla ktere se rovnaj aslespon dvakrat

[CZechBoY]

např vytvoříš pole dvakrat do kterého vždy vložíš nakonec to číslo

[kikin1]

aha... napis mi to pls do toho myho zdrojaku :-) jak to ma pokracovat aby mi vypsalo do mema napr: na pozici 1 je cislo 50 :-) pak mi vypise kde se nachazi to cislo alespon dvakrat :-) dekuju