[ Príspevkov: 9 ] 
AutorSpráva
Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 27.05.20
Prihlásený: 27.05.20
Príspevky: 5
Témy: 1 | 1

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.


Offline

Užívateľ
Užívateľ
Generovanie náhodného čísla so 4 písmenami

Registrovaný: 12.10.06
Prihlásený: 26.01.21
Príspevky: 19059
Témy: 75 | 75
Bydlisko: Banska Byst...

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.


_________________
CPU: Ryzen 7 3700X, CPU fan: SilentiumPC Fera 3, MB: Asrock X570M Pro4, RAM: Patriot Viper 4 Blackout 16GB DDR4-3600 CL17, SSD OS: Samsung 970evo plus 250GB NVMe, SSD Data + zalohy: 2x Corsair MP510 1TB NVMe, SSD Games: Crucial MX300 525GB SATA, GPU: Gainward GTX1060 6GB, PSU: Corsair RM550x, Monitor: 24" BenQ GW2470H, Case fans: 3x Noctua NF-S12B redux 1200 PWM
iPad Air 16GB, Xiaomi Mi 9 Lite 64GB
Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 27.05.20
Prihlásený: 27.05.20
Príspevky: 5
Témy: 1 | 1
Napísal autor témyOffline : 27.05.2020 21:01 | Generovanie náhodného čísla so 4 písmenami

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.


Offline

Skúsený užívateľ
Skúsený užívateľ
Generovanie náhodného čísla so 4 písmenami

Registrovaný: 19.03.07
Prihlásený: 25.01.21
Príspevky: 6994
Témy: 84 | 84
Bydlisko: BA

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?


_________________
Desktop: CPU AMD R7 1700x @ 3.85GHz | Cooling be quiet! Dark Rock Pro 4 | MB ASRock X470 Taichi Ult. | RAM 4x8GB DDR4 G-SKILL TridentZ RGB 3000 CL16-16-16-36 | VGA Powercolor VEGA56 + Raijintek Morpheus II | SSD Crucial MX300 525GB | HDD Seagate Ironwolf 3TB 5900rpm | PSU CORSAIR RM750X | MONITOR AOC Q3279VWFD8 | MOUSE HyperX Pulsefire FPS + Razer eXactMat | HyperX Alloy FPS Brown | HyperX Cloud | ARCH x64 &
Notebook: DELL inspiron 7537 i7 4500U, 16GB RAM, nv750, FHD IPS,Crucial M4 128GB | ARCH x64 &
Mobil: LG v40 ThinQ (2018) & SBC: Raspberry pi 0 | 3B+ & Headphones: Senheiser HD58X | AKG K551 + detachable cable mod | Linsoul TIN T2 | KZ SZN
Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 27.05.20
Prihlásený: 27.05.20
Príspevky: 5
Témy: 1 | 1
Napísal autor témyOffline : 27.05.2020 22:03 | Generovanie náhodného čísla so 4 písmenami

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.


Online

Užívateľ
Užívateľ
Generovanie náhodného čísla so 4 písmenami

Registrovaný: 15.06.14
Prihlásený: 26.01.21
Príspevky: 17374
Témy: 137 | 137
Bydlisko: Bratislava

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


_________________
ITX >>> ATX
Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 27.05.20
Prihlásený: 27.05.20
Príspevky: 5
Témy: 1 | 1
Napísal autor témyOffline : 27.05.2020 22:17 | Generovanie náhodného čísla so 4 písmenami

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.


Offline

Skúsený užívateľ
Skúsený užívateľ
Generovanie náhodného čísla so 4 písmenami

Registrovaný: 19.03.07
Prihlásený: 25.01.21
Príspevky: 6994
Témy: 84 | 84
Bydlisko: BA

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')


_________________
Desktop: CPU AMD R7 1700x @ 3.85GHz | Cooling be quiet! Dark Rock Pro 4 | MB ASRock X470 Taichi Ult. | RAM 4x8GB DDR4 G-SKILL TridentZ RGB 3000 CL16-16-16-36 | VGA Powercolor VEGA56 + Raijintek Morpheus II | SSD Crucial MX300 525GB | HDD Seagate Ironwolf 3TB 5900rpm | PSU CORSAIR RM750X | MONITOR AOC Q3279VWFD8 | MOUSE HyperX Pulsefire FPS + Razer eXactMat | HyperX Alloy FPS Brown | HyperX Cloud | ARCH x64 &
Notebook: DELL inspiron 7537 i7 4500U, 16GB RAM, nv750, FHD IPS,Crucial M4 128GB | ARCH x64 &
Mobil: LG v40 ThinQ (2018) & SBC: Raspberry pi 0 | 3B+ & Headphones: Senheiser HD58X | AKG K551 + detachable cable mod | Linsoul TIN T2 | KZ SZN
Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 27.05.20
Prihlásený: 27.05.20
Príspevky: 5
Témy: 1 | 1
Napísal autor témyOffline : 27.05.2020 23:34 | Generovanie náhodného čísla so 4 písmenami

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.


 [ Príspevkov: 9 ] 


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



Podobné témy

 Témy  Odpovede  Zobrazenia  Posledný príspevok 
V tomto fóre nie sú ďalšie neprečítané témy.

problem nahodneho vyberu

v Assembler, C, C++, Pascal, Java

6

800

24.08.2007 13:47

stewe

V tomto fóre nie sú ďalšie neprečítané témy.

Ciary za pismenami

v Monitory, televízory a projektory

5

398

24.06.2009 15:36

KocuR

V tomto fóre nie sú ďalšie neprečítané témy.

program na kreslenie pismenami

v Grafické programy

2

1904

06.10.2009 18:33

reDo

V tomto fóre nie sú ďalšie neprečítané témy.

ProShow producer problém s písmenami

v Video programy

5

133

13.12.2020 19:25

michalesku

V tomto fóre nie sú ďalšie neprečítané témy.

Zistenie majiteľa tel. čísla (potrebujem zistiť majitela tel. čísla)

v Ostatné

4

2981

02.11.2011 13:52

HGDS1

V tomto fóre nie sú ďalšie neprečítané témy.

Generovanie ...

v Ostatné

5

765

30.10.2006 22:14

javo

V tomto fóre nie sú ďalšie neprečítané témy.

Generovanie kódu

v HTML, XHTML, XML, CSS

9

439

10.02.2011 21:25

walther

V tomto fóre nie sú ďalšie neprečítané témy.

generovanie url

v PHP, ASP

7

422

30.03.2012 23:04

shaggy

V tomto fóre nie sú ďalšie neprečítané témy.

generovanie stranok

v PHP, ASP

4

408

04.01.2011 13:22

benqo

V tomto fóre nie sú ďalšie neprečítané témy.

Generovanie xml

v PHP, ASP

2

412

06.11.2010 9:57

NikonD5000

V tomto fóre nie sú ďalšie neprečítané témy.

generovanie PDF

v PHP, ASP

20

1741

05.05.2010 13:18

Antuanet

V tomto fóre nie sú ďalšie neprečítané témy.

Generovanie PDF

v PHP, ASP

1

410

16.04.2011 8:41

stenley

V tomto fóre nie sú ďalšie neprečítané témy.

Generovanie cisel

v PHP, ASP

5

768

06.02.2010 17:44

Ďuri

V tomto fóre nie sú ďalšie neprečítané témy.

Generovanie databazy

v PHP, ASP

2

598

23.02.2007 8:25

mokus

Táto téma je zamknutá, nemôžete posielať nové príspevky alebo odpovedať na staršie.

Generovanie diplomu

v PHP, ASP

8

589

12.05.2012 13:59

shaggy

V tomto fóre nie sú ďalšie neprečítané témy.

Generovanie IP adresy

v Služby a webstránky

10

1164

19.02.2014 11:33

DJRoccoiNc



© 2005 - 2021 PCforum, edited by JanoF