Program na generování náhodného pojmu – Pascal – Fórum – Programujte.com

Zdravím, potřebuji poradit jak to celý hodit do cyklu, aby to generovalo další a další pojmy a pak je tam ještě problém s tím, že mi to neustále generuje číslo 0, jde to nějak ošetřit?

Program NAHODNY;

type    int1 = 1..1000;

        retez = string[250];



var pojem : retez;

    cislo : int1;

    spravne,spatne,uspesnost : real;

    pocet,pocet2,i,x,pp : integer;

    f : text;

    odpoved : string;



begin spravne :=0; spatne :=0;

writeln('Zadej kolik mas pripravenych pojmu : '); readln(pp);

writeln('Zadej kolik pojmu mam generovat: '); readln(pocet); pocet2:=pocet;

assign(f, 'c:\terminy.txt');

reset(f);



while pocet>0do begin /// cyklus se provádí, čísla odečítá, ale nevypisuje další pojmy...

x:=random(pp);

pocet:=pocet-1;

writeln(pocet);



while not eof(f) do

begin readln(f, cislo,pojem);

      if cislo=x then begin writeln(x , pojem);

                      writeln('Mela jsi pojem spravne?');readln(odpoved);

                      if odpoved='ano' then spravne := spravne+1

                                       else spatne:=spatne+1;

                      ;end;

end;

end;

close(f);

Writeln('Pocet otazek: ',pocet2, ' z toho spravne ',spravne:4:0, ' spatne ',spatne:4:0);

uspesnost:=(spravne/pocet2)*100;

Writeln('Tvoje procentualni uspesnost je: ' ,uspesnost:4:2);

readln;

end.

0    Pojem 0

1    access control (řízení vstupu)

2    account (konto, účet)

3    akronymy

4    ActiveX

5    Adobe Acrobat

6    ADSL (Asymmetric Digital Subscriber Line)

7    Agent

8    alias

9    anchor

10   anonymous FTP

Na začiatok ti bude asi treba randomize, aby ti potom random dával rôzne hodnoty.

To Grungy :

Za prvé, aby random dával pokaždý jiná náhodná čísla, musíš ho jednou na začátku programu inicializovat příkazem randomize;

Za druhé, pokud jednou dočteš soubor až do konce, od toho okamžiku je EOF pořád pravda, musel bys soubor znovu otevřít, aby se četlo zase od začátku.

Doporučuji načíst údaje ze souboru do paměti (nejlépe do pole) a pak už procházet to pole...

To TomasP :
Jo a s tou nulou jsem to asi hned nepochopil, random(n) vrací hodnoty v rozsahu 0 až n-1, pokud to chceš mít v rozsahu 1 až n, tak k tomu přičti jedničku...

Jak mám na začátku ten RANDOM inicializovat, stačí pouze někam dopsat randomize;?
Mohu poprosit o ten kód jak to uložiy do POLE? Nenapadá mě jak to napsat...

To TomasP :
Ano stačí na začátek programu napsat randomize;
Pokud s polem neumíš, tak to asi nepůjde dvěma větama vysvětlit...
Zkus se nejdřív kouknout na Strukturované typy - pole třeba tady: http://www.spsemoh.cz/vyuka/pascal/index.htm
Pak můžeš plynule pokračovat na kapitolu soubory...

S maticema něco málo umím, ale neustále to hází chyby...

Program NAHODNY;

type    int1 = 1..260;

        retez = string[250];

        pojmy = array  [int1] of retez;

        cisla = array  [int1] of integer;

var pojem : retez;

    cislo,i,c,p : int1;

    spravne,spatne,uspesnost : real;

    pocet,pocet2,x,pp : integer;

    f : text;

    odpoved : string;



begin

spravne :=0; spatne :=0;

writeln('Zadej kolik mas pripravenych pojmu : '); readln(pp);

writeln('Zadej kolik pojmu mam generovat: '); readln(pocet); pocet2:=pocet;

assign(f, 'c:\terminy.txt');

reset(f);







i:=1;

while not eof(f) do

begin readln(f, cislo,pojem);

      cisla[i]:=cislo; pojmy[i]:=pojem; i:=i+1;



end;



repeat

randomize;

cislo:=random(pp);

writeln('Pojem ' ,cislo, ' ' ,pojmy[cislo]);

writeln('Mela jsi pojem spravne?');readln(odpoved);

        if odpoved='ano' then spravne := spravne+1

        else spatne:=spatne+1;





pocet:=pocet-1;

until pocet=0;



close(f);

Writeln('Pocet otazek: ',pocet2, ' z toho spravne ',spravne:4:0, ' spatne ',spatne:4:0);

uspesnost:=(spravne/pocet2)*100;

Writeln('Tvoje procentualni uspesnost je: ' ,uspesnost:4:2);

readln;

end.

Tak mě napadlo ještě jedno uplně jednoduchý řešení, jak psal JODIK otevírám a zavírám soubor...
Kód jsem uploadoval jinam, ať to tu je trošku přehledné...

http://www.copypastecode.com/65717/

To TomasP :
Randomize opravdu stačí jen jednou, nemusíš ho volat pokaždé, když potřebuješ náhodné číslo, takže ho dej hned za begin.
Matice sem nepleť a když ani nenapíšeš, jaký "chyby" ti to hází, tak co ti mám poradit? To jako mám za tebe odladit ten program?
Už jednou jsem ti psal, že random vrací hodnoty od nuly, takže když to zrovna hodí nulu, index pole bude mimo rozsah.

To TomasP :

Hlavní dotaz, jak ošetřit to, aby RANDOM negeneroval vícekrát stejné čísla?

Tak jsem to s tou maticí ošetřil, poslední dotaz, jde nějak program zkompilovat, aby šlapal pod Windows7_x64? Díky

a on pod tím W7x64 nefunguje?

JoDiK napsal:
a on pod tím W7x64 nefunguje?

To TomasP :
A napsalo to nějakou chybu? Zksil to spustit v režimu kompatibility?
Zkus to přeložit v Borland Pascalu pod Windows, nebo v nějakém free pascalu. Hledej na internetu...

Tak ve Free Pascalu to zkompiluje vše OK, ale při spuštěn a zadání hodnot se prostě ukončí. Ten co je zkompilovaný pod Wind XP píše že verze souboru není kompatibilní se spuštěnou verzí OS... Ani režim kompatibility s Win XP, Win 95... nepomáhá...

Zdrojovy kond, zkompilovana verze pod Win XP a "data" jsou zde: http://leteckaposta.cz/103828573