pascal - pole

beginner · Napísal **beginner**: 14.08.2009 18:34 | pascal - pole

Caute, pokusal som sa naplnit pole nahodnymi cislami, pri kompilacii mi ukaze, ze prebehla uspesne, ale ked to spustim, tak naskoci iba cierna obrazovka a nic sa nedeje, pritom som dal pole vypisat. Skuste najst chybu. :oops:

Kód:

uses crt;
var a:array[1..10] of integer;
    i,s:integer;
    nebolo: boolean;
begin
clrscr;
randomize;


i:=1;
a[i]:= random(21) + 11;

for i:=2 to 10 do
begin

  repeat
    a[i] := random(21) + 11;

    nebolo:=true;
    for s:=1 to 10 do
    begin
      if a[s] = a[i] then 
        nebolo:=false;
    end;
  until nebolo=true;

end;

for i:=1 to 10 do write(a[i]);

readln;
end.

Fico · Napísal **Fico**: 14.08.2009 19:58 | pascal - pole

Máš zle riešené nastavenie premennej "nebolo" a program sa do nekonečna opakuje.

Kód:

for i:=2 to 10 do  {* i=2 začína sa porovnávať druhý prvok poľa *}

...

for s:=1 to 10 do
  begin
  if a[s] = a[i] then nebolo:=false;

{* pri prvom prejdení slučky sa nestane nič nekalé, pri druhom prejdení sa bude s=i (s=2) a teda aj a[s]=a[i] a potom "nebolo" bude false. Nikde ďalej sa potom neprepíše na true, takže vnikne nekonečná slučka *}

Riešenie ti nenapíšem, pretože jednak neviem, čo to má robiť a ďalej si myslím, že celý algoritmus je troška zvláštny. Skús popísať svoj problém.

beginner · Napísal autor témy **beginner**: 14.08.2009 20:15 | pascal - pole

ten algoritmus porovnava hodnoty, ci sa v poli nenachadza rovnake cislo...preco by mala vzniknut nekonecna slucka, ved tam je cyklus repeat..until...a ked sa mi do danej priehradky pola vygeneruje taka hodnota, ktora sa v inej priehradke pola nenachadza, tak prem. nebolo bude nastavena na true, a cyklus tympadom konci.

neutronmind · Napísal **neutronmind**: 14.08.2009 20:25 | pascal - pole

Skus zmenit riadok

Kód:

a[i] := random(21) + 11;

na

Kód:

a[i] := random(1000) + 11;

(alebo tam daj lubovolnu vacsiu hodnotu).
Znie to sice dost nepravdepodobne, ale mozno sa v nejakom kroku generuje stale taka hodnota, ktora sa uz v poli nachadza(vygeneruje sa teda potom nova hodnota, ta tam je ale znova atd.) Generoval si tie cisla totiz z dost maleho intervalu (<11, 31>). Nemam teraz bohuzial kompilator, takze to skusit nemozem. Ostatne vyzera byt v poriadku...

Fico · Napísal **Fico**: 14.08.2009 20:39 | pascal - pole

Skús si ten program odkrokovať, keď ti robí problém prejsť ho očami a sleduj premennú i a s, keď mi neveríš ... :roll:

Rozšírenie poľa ti nepomôže.

beginner · Napísal autor témy **beginner**: 14.08.2009 20:40 | pascal - pole

ked som to zmenil na 1000, to tiez nepomohlo. random(21) + 11 neznamena ze sa generuju hodnoty z int. <11, 20> ? Ak to tak je, tak to vychadza na 10 nahodnych hodnot, preto som dal aj 10 prvkove pole.

beginner · Napísal autor témy **beginner**: 14.08.2009 22:26 | pascal - pole

fico: nie zeby som ti neveril, ale nevidel som tu chybu, fakt som ju nemohol najst, konecne to uz vidim, dost hlupa chyba :oops:

a este sa chcem spytat, ze ked som mal random(21) + 11, tak z akeho int. to generuje hodnoty, z <11, 20>, alebo ako sa to berie ?

Fico · Napísal **Fico**: 15.08.2009 9:38 | pascal - pole

random(21) -- <0, 20>
random(21) + 11 -- <11, 31>

Vysvetlenie: Predstav si, že sa ti v prvom príklade vygeneruje najmenšie číslo 0. Následne k nemu pripočítaš jedenásť, čiže výsledok je 11. Potom ak sa ti vygeneruje najväčšie číslo 20 a k nemu znova prirátaš jedenásť, dostaneš 31.

(Ak chceš generovať číslo z nejakého intervalu, napríklad z <11, 20> , do funkcie random daj počet prvkov v intevale -> random(10) a pripočítaj prvý prvok množiny -> random(10) + 11 .

beginner · Napísal autor témy **beginner**: 15.08.2009 9:44 | pascal - pole

ok, diq...

pascal - pole

pascal - pole

Podobné témy

pomoc pascal pole

pascal pole - do utriedenej postupnosti vlozte x

Free Pascal a Turbo Pascal

POLE

textove pole

Textové pole

RAID pole

Dvojrozmerne pole

Viacrozmerne pole

raid pole

Schovaj pole

elmag. pole

Dynamicke pole..

Pole stringov

textove pole

C# pole matíc