Hirdetés
- Xiaomi 15T Pro - a téma nincs lezárva
- Samsung Galaxy A54 - türelemjáték
- Papírvékony a jövő a Samsungnál: íme, a Galaxy TriFold!
- Google Pixel topik
- Milyen okostelefont vegyek?
- Poco X6 Pro - ötös alá
- Huawei Mate 20 Pro - a mindenit!
- Hat év támogatást csomagolt fém házba a OnePlus Nord 4
- Poco F8 Ultra – forrónaci
- Vonzó Realme mutatkozott be
Új hozzászólás Aktív témák
-
N!tRo
tag
válasz
Gyomman
#1810
üzenetére
Gyomman ez csak egy egyszerű példa volt.
case <feltétel> of
eredmény1: cselekvés1;
eredmény2: cselekvés2;
...
else: cselekvésn; // opcionális (gyk.: nem kötelező)
end;
cselekvésx -hez bármit írhatsz, amit a program végrehajt. Lehetett volna így is:
case c of
13: writeln('entert nyomtál le');
...
27: writeln('szóközt nyomtál le');
...
37: writeln('bal gombot nyomtad le');
38: writeln('felfelé gombot nyomtad le');
... // és így tovább
end;
A kérdésedre pedig.
Csinálsz egy procedurát úgy, hogy a neve után zárójelben megadsz paramétereket, így ezek a paraméterek módosítják az eljárásod futását.
tehát így definiálod:
procedure <név>(paraméterlista);
begin
end;
és meghívásnál a zárójelbe megadod az értékeket
pl.:
<név>(paraméter1,paraméter2,...);
konkrét példa:
...
procedure kiiras(szoveg: string);
begin
writeln(szoveg);
end;
...
kiiras('Kellemes Nyulat!');
...
Ez a fenti példaprogram tehát a kiiras nevű eljárást meghívja az adott string paraméterrel, amit ő a writeln sorában kiír.
Érthető voltam?
szerk.: nem tudok könyvet ajánlani, sose volt a kezemben pascal könyv, csak súgó meg internet.
szerk2: nem baj hogy hülye vagy, mindenki hülyén kezdi, csak kérdezz és válaszol akinek van rá épp ideje
[Szerkesztve]
[Szerkesztve]
Új hozzászólás Aktív témák
- !!AKCIÓ!! GAMER PC AMD Ryzen 5 5600X/MSI MPG B550 GAMING PLUS/GeForce RTX 4070 DUAL 12 GB/32GB DDR4
- Apple iPad A16 (2025) 128GB, Wi-Fi, 1 Év Garanciával
- Apple iPhone 12 Mini 64GB, Kártyafüggetlen, 1 Év Garanciával
- Apple iPhone 16 128GB, Kártyafüggetlen, 1 Év Garanciával
- XPS 14 9440 13.4" 3K OLED érintő Ultra 7 155H RTX 4050 32GB 1TB NVMe ujjlolv gar
- HIBÁTLAN iPhone 13 256GB Pink -1 ÉV GARANCIA - Kártyafüggetlen, MS3732, 100% Akkumulátor
- OnePlus Pad Green nagy kijelzős, pehelykönnyű tablet 128 GB Wi-Fi Használt, karcmentes 3
- GYÖNYÖRŰ iPhone SE 2020 256GB Black-1 ÉV GARANCIA - Kártyafüggetlen, MS4003, 100% Akkumulátor
- FunXun BW-2328 hajszárító 1800 Watt / 12 hó jótállás
- Segway Ninebot E3 elektromos roller - Bontatlan - Új
Állásajánlatok
Cég: BroadBit Hungary Kft.
Város: Budakeszi
Cég: ATW Internet Kft.
Város: Budapest



