RANDOM z TXT – Pascal – Fórum – Programujte.com

Lidičkyy potřebuji ppomoc, musím ze souboru cisla.txt (kde je 20 různých čísel) náhodně vybrat 5 čísel z toho souboru, ale většinou to vypíše jiná čísla než v souboru. Prosím pomozte

Tak takhle ne. Napřed sem napiš zdroják, co už máš. Potom ti poradím.

var f:text;
cislo,vyber;
Begin
Assign (f, 'cisla.txt')
reset(f)
randomize;
while not eof(f) do
Begin
randomize;
readln(f, cislo);
vyber:=random(cislo);
writeln(vyber);
End;
readln;
End.
------------
a ani nevim jak udělat aby to bylo 5 cisel :( Jsem z Pascalu uplne jelen .(

* cislo, vyber:integer;

Ty totiž místo toho, abys načetl několik náhodně vybraných čísel z toho souboru (což předpokládám, že bylo předmětem zadání), tak načítáš čísla ze souboru a pak generuješ náhodná čísla od nuly do toho načteného čísla.

Potřebuješ asi tohle:
Pomocí Randomu vygeneruj pět náhodných čísel od 1 do 20 a zapamatuj si je (třeba v nějakém poli).
Pro každé z těchto čísel dělej:
- Otevři soubor, pomocí Readln v něm dojeď na tolikátý řádek, kolik je to číslo, u kterého zrovna jsi.
- Přečti ze souboru číslo z tohoto řádku a vypiš ho na obrazovku.
- Zavři soubor.

Samozřejmě tohle není jediná možnost a z hlediska rychlosti to není zrovna optimální, protože několikrát otvírám, zavírám a procházím soubor. Lepší by bylo, kdyby se soubor prošel jednou a naopak se u každého řádku prošlo pole těch pěti náhodných čísel a zkoušelo by se, jestli nějaké z nich odpovídá pořadovému číslu toho řádku. Ale fungovat to bude v obou případech. Realizaci nechám na tobě.

Jo, a Randomize použij jenom jednou na začátku programu. Jestli ho budeš volat před každým Randomem, budou ti nejspíš vycházet pořád stejná čísla.

Ještě je potřeba si rozmyslet, jestli se ta čísla můžou opakovat, tedy jestli se může vícekrát načíst hodnota z jednoho řádku souboru.