Generovanie náhodného čísla so 4 písmenami

Harambe · Napísal **Harambe**: 27.05.2020 20:49

Ahoj, už som veľmi dlho neprogramoval a potreboval by som si vyrobiť jeden program.
Mám k dispozícii len Lazarus.
Potrebujem vygenerovať náhodné číslo od 1 do 3000 a vedľa neho 4 náhodné písmená od a po h. Ďakujem za každú pomoc. Sám by som si asi neporadil.

shiro · Napísal **shiro**: 27.05.2020 20:55

Pravidla fora zakazuju vypracovavanie domacich uloh. Co si doteraz robil v skole, ze ani takuto banalitu nevies? Tiez som nerobil v Delphi/Lazaruse zo 10r ale toto je fakt akoze banalita, na random generovanie to ma dokonca funkciu.
Takze sup-sup, vypracovat aspon daco. A potom ti pomozeme.

Harambe · Napísal autor témy **Harambe**: 27.05.2020 21:01

Nie je to domáca úloha. Potrebujem to pre vlastný účel a naposledy som mal informatiku na gymnáziu v 2. ročníku. Takže fakt sa mi moc do toho nechce hľadať informácie po internete kade tade. Niečo už mám nájdené ale nedám to dokopy.

void · Napísal **void**: 27.05.2020 21:29

Ako pise shiro.
Ak nevies toto najst si strateny pripad a caka ta osud ako harambe.
https://www.freepascal.org/docs-html/rtl/system/random.html potrebujes len toto.
https://www.thinkage.ca/gcos/expl/pasc/lib/chr.html ak chces byt velmi expresivny mozes pouzit toto, ale prakticky by ti stacil case https://wiki.freepascal.org/Case

Je to presne na 12 sekund googlenia ked mas zlu klavesnicu a chybaju ti niektore pismenka. A si opity. A mas roztate corpus callosum.

// Spojený príspevok Str 27.05.20 21:49

Ale aby som nebol tak moc negativny, ako by si k tomu pristupoval?

Harambe · Napísal autor témy **Harambe**: 27.05.2020 22:03

Zadefinujem si množinu celých čísel pomocou integeru.
Potom použijem funkciu randomize, následne
I:= random 1+(3001)

Cca k tomuto som sa dostal bez vašich návodov ale neviem ako to spojiť s tými písmenami a myslím že tam treba niečo robiť aj s funkciou inttostr na samotné zobrazenie toho, čo chcem. Ale to som už dávno mimo cesty... Ja si nejak poradím snáď. Aspoň si to zopakujem.

Miso122 · Napísal **Miso122**: 27.05.2020 22:14

Kód:

Randomize;  
Str := 'abcdefgh';
result := inttostr(Random(3000) + 1);
for i  := 1 to 4 do
    begin
    result := result + str[Random(Length(str)) + 1]; 
    end;

nieco taketo, syntax pascalu uz nedrzim v hlave tak tam bude asi par errorov

Harambe · Napísal autor témy **Harambe**: 27.05.2020 22:17

Diky, skúsim to tam hodiť a uvidím čo to spraví poprípade sa s tým ešte pohrám aby to išlo.

void · Napísal **void**: 27.05.2020 22:58

Harambe píše:

Zadefinujem si množinu celých čísel pomocou integeru.
Potom použijem funkciu randomize, následne
I:= random 1+(3001)

Cca k tomuto som sa dostal bez vašich návodov ale neviem ako to spojiť s tými písmenami a myslím že tam treba niečo robiť aj s funkciou inttostr na samotné zobrazenie toho, čo chcem. Ale to som už dávno mimo cesty... Ja si nejak poradím snáď. Aspoň si to zopakujem.

Relativne OK.
je to skor random(3000)+1.
Plus minus to co pise miso.

Pri prismenach mas moznost preklapat si ich cislenu reprezentaciu v unicode do znakov. Mas 8 znakov ak dobre pocitam. Tak das 4 krat
Char(random(8)+97)
ti da znak z cisla od 0-7 + 97 lebo ciselna reprezentacia 'a' je 97 > cize nahodne cislo medzi 97 az 104 ktore sa preklopi do ascii znaku ('a'-'h')

Harambe · Napísal autor témy **Harambe**: 27.05.2020 23:34

Nevychádzalo mi to tak som si stiahol Python ale ako vidím to je ešte horšie než Lazarus lebo v tom som nerobil vôbec.

Generovanie náhodného čísla so 4 písmenami

Podobné témy