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

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. 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. 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. 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/CaseJe 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:49Ale aby som nebol tak moc negativny, ako by si k tomu pristupoval? 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. Randomize; Str := 'abcdefgh';result := inttostr(Random(3000) + 1);for i := 1 to 4 do begin result := result + str; end;nieco taketo, syntax pascalu uz nedrzim v hlave tak tam bude asi par errorov 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. 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 kratChar(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') 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. ...