Dr. Kuki Ákos PhD: Egy nagyon jó Pascal jegyzet

Pascal fejlesztõi környezet
Benkõ Tiborné-Benkõ László-Tóth Bertalan-Varga Balázs: Programozzunk Turbo Pascal nyelven!(ComputerBooks, Bp., 1996 ISBN: 963 618 112 8)
Dr. Hack Frigyes: Pascal 6.0 és Vision mindenttudó (Novotrade Kiadó Kft., Bp., 1993, ISBN: 963 585 183 9)

1. Kérj be egy szögértéket fokban, írasd ki a szinuszát!
2. Kérj be egy szögértéket fokban, írasd ki a koszinuszát!
3. Kérj be egy szögértéket fokban, írasd ki a tangensét!
4. Kérj be egy szögértéket fokban, írasd ki a kotangensét!
5. Kérj be egy szögértéket fokban, írasd ki a szekánsát!
6. Kérj be egy szögértéket fokban, írasd ki a koszekánsát!
7. Adott egy szög szinusza, írasd ki fokban a szög értékét!
8. Adott egy szög koszinusza, írasd ki fokban a szög értékét!
9. Adott egy szög tangense, írasd ki fokban a szög értékét!
10. Adott egy szög kotangense, írasd ki fokban a szög értékét!
11. Adott egy szög szekánsa, írasd ki fokban a szög értékét!
12. Adott egy szög koszekánsa, írasd ki fokban a szög értékét!
13. Kérd be egy szabályos háromszög oldalát, írasd ki a kerületét, területét!
14. Adott egy 3,8 magas köralapú kúp, térfogata 30. Kérd be x-et, s írasd ki, hogy a 3,8-x magas kúp térfogata mennyivel kisebb!
15. Kérd be a-t, b-t, c-t, s írasd ki az ax²+bx+c polinom zérushelyeit!
16. Kérd be a-t, b-t, írasd ki a^b-t!

1. Írassuk ki a 0-tól 100-ig a számokat úgy, hogy egy sorban 10 szám legyen!
2. Írassuk ki n-tõl m-ig az 5-tel osztható számokat, n nem feltétlenül kisebb, mint m!
3. ax²+bx+c=0 egyenlet teljes megoldása (lineáris, azonosság, nincs valós, stb..)
4. Írassuk ki n-ig a prímszámokat!
5. Írassuk ki n-ig a tökéletes számokat!
6. Írassuk ki n-ig azokat a számokat, melyek oszthatóak x-szel, és a számjegyeik összege y!
7. Kérj be egy forint összeget, írasd ki minimális számú címlettel!
8. Legnagyobb közösosztója, legkisebb közöstöbbszöröse két számnak.
9. Kérj be egy számot, írasd ki, hogy szigorúan 10 és 20 közé esik-e!
10. Kérd be egy háromszög oldalait, írasd ki, hogy hegyes-, derék-, vagy tompaszögû!
11. Írasd ki n faktoriálisát!
12. Írasd ki a Fibonacci sorozat elsõ 10elemét!
13. Adott egy számtani sorozat esetén a1, d, n. Írasd ki az elemeket!
14. Adott egy mértani sorozat esetén a1, q, n. Írasd ki az elemeket!
15. Kérj be 3 valós számot, írasd ki növekvõ sorrendben!

1. Írasd ki az angol ábécé betûit "A"-tól "Z"-ig!
2. Írasd ki az angol ábécé minden második betûjét "z"-tõl "a"-ig!
3. Kérj be egy sztringet, s írasd ki betûnként, mindegyiket új sorba!
4. Kérj be egy sztringet, s írasd ki visszafele!
5. Kérj be egy sztringet, s írasd ki minden második betûjét!
6. Kérj be egy sztringet, s írasd ki úgy külön sorokba, hogy az i. sorban az elsõ i darab betûje van!
7. Kérj be egy sztringet, s írasd ki úgy külön sorokba, hogy az i. sorban az elsõ i darab betûje van, majd szóközök, s a sor eleji részlet fordítva, s az utolsó karakterek egymás alatt helyezkednek el. Az utolsó sorban a sztring szerepel, majd a fordítottja (nincs közöttük szóköz)!
8. Kérj be egy sztringet, s írasd ki úgy külön sorokba, hogy az i. sorban hiányzik az utolsó i darab betûje (az 0. sorban maga a szó van)!
9. Kérj be egy nevet, s írasd ki, hogy férjes asszonyról van-e szó (azaz az utolsó 2 betûje a "ne" részstringet alkotja)!
10. Kérj be egy állomány nevet, s írasd ki, hogy program-e (".com", ".exe", ".bat" az utolsó 4 karaktere)!
11. Írj programot, melyben [0-100] intervallumban kitalál a gép egy számot, maximum 10-szer lehet tippelni, s mindig tájékoztat, hogy a tipp kisebb, vagy nagyobb, esetleg pont a gondolt szám. Ha eltaláltuk, nem kér több tippet.
12. Dobj n-et kockával, írasd ki az egyes esetek számát, s a dobások átlagát!
13. Dobj n-et kockával, s minden dobás után írasd ki az átlagot!
14. Kérj be 2 sztringet, állapítsd meg, hogy része-e a második az elsõnek, s ha igen, hanyadik pozíción kezdõdik benne!
15. Írasd ki While ciklussal 0-100-ig a 3-al osztható számokat!
16. Írasd ki Repeat ciklussal 100-13-ig a páros számokat!
17. Kérj be számokat 0 végjelig, írasd ki a számtani átlagukat!
18. Kérj be 0 végjelig számokat, írasd ki a legnagyobbat, legkisebbet, s hány szám volt öszesen!
19. Kérj be sztringeket, írasd ki a leghosszabbat, s a legrövidebbet, "escape" jelentse a bevitel végét!
20. Kérj be egy valós számot, írasd ki a számjegyei összegét! A program védje ki azt is, ha esetleg nem számot írtunk be!
21. "X" beírásáig írasd ki a prím számokat, melyekben a számjegyek összege 7, enter megnyomására fut tovább a kiíratás!
22. Kérj be egy szöveget, s minden bennelévõ nagy betût alakíts át kis betûre, majd írasd ki!
23. Kérj be egy számot, majd írasd ki úgy, hogy minden számjegye 2-vel nagyobb! (8 ---0, 9---1)

1. Kérj be egy szöveget, s scrollozd a képernyõn!
2. Írasd ki a színeket színesen!
3. Írasd ki valósidõben a dátumot s az idõt 5 másodpercig villogásmentesen!
4. Írj programot, mely létrehoz a gyökérben egy ALMA és egy KORTE nevû alkönyvtárat, majd az ALMA-ban egy JONATAN-t!
5. Írj programot, mely letöröli az iménti alkönyvtár struktúrát!
6. Nevezd át a programod forrás állományát, majd töröld le!
7. Kék háttérben piros betûvel a képernyõ közepén írasd ki a bekért sztringet (tfh. a sztring rövidebb, mint 80 karakter)
8. Írj programot, melyben 3 menüpont van: IR, TOROL, KILEP. A menünevek kezdõbetûit leütve belépünk a menüpontba, B-re visszalépünk, az IR kiírja, hogy kiiras, a TOROL törli a képernyõt, a KILEP értelemszerû.
9. Szólaltassunk meg egy hangot, míg le nem nyomunk egy billentyût!
10. Írj programot, mely meghatározza, hogy mely legmagasabb és mely legalacsonyabb hangot hallja a felhasználó!
11. Írj programot, mely egy O betût tudunk mozgatni a képernyõn!
12. Írj programot, mely véletlen színû, helyzetû véletlen kódú karaktereket ír a képernyõre!
13. Írj programot, mely véletlen színû, helyzetû véletlen méretû téglalapokat ír a képernyõre!
14. Írasd ki a lenyomott billentyûk kódjait a képernyõre! (x-re kilép)
15. Írasd ki két billentyû lenyomása alatt eltelt idõt!

1. Írj eljárást, mely megnöveli az elsõ paraméter értékét a második duplájával! (duplaz(a,b))
2. Írj függvényt, mely a^b-t számolja! (hatv(a,b))
3. Írj függvényt, mely visszaadja 2 szám lnko-ját! (lnko(a,b))
4. Írj eljárást, mely kicseréli a két valós paraméter értékét! (csere(a,b))
5. Írj függvényt, mely a lkkt-t adja vissza! (lkkt(a,b))
6. Írj eljárást, mely kiír egy piros A betût a megadott pozícióba! (kiir(x,y))
7. Írj eljárást, mely visszaadja egy lineáris egyenlet gyökeit! (megold(m,b,x))
8. Írj függvényt, mely a faktoriálist számolja rekurzív módon! (f(n))
9. Írj eljárást, mely megduplázza egy vektor hosszát! (vd(x1,y1,x2,y2))
10. Írj függvényt, mely visszaadja egy vektor hosszát! (vh(x1,y1,x2,y2))

1. Kérj be kilenc számot, írasd ki 3x3-as mátrix alakban!
2. Kérj be 5 számot, írasd ki növekvõ sorrendben!
3. Kérj be 5 sztringet, írasd ki csökkenõ sorrendben!
4. Kérj be egy 3x3-as mátrixot, írasd ki az elemek átlagát, a sorok összegét, a legnagyobb elemét a mátrixnak!
5. Kérd be 4 könyv adatait (cím, szerzõ, ár), majd írasd ki ár és cim szerinti sorrendben!
6. Kérd be 5 hallgató adatait (név, évfolyam, tanulmányi átlag), majd lehessen választani, hogy melyik adat szerinti sorrendben írassuk ki a hallgatók adatait, s írja is ki a program a megfelelõ sorrendet!
7. Kérj be 3 terméket: megnevezés, darabszám, egységár, majd írasd ki táblázatos formában hogy melyikbõl mekkora érték van a raktáron!
8. Erasztotenészi szitával írasd ki 10000-ig a prímszámokat!
9. A börtönben 100 cella van, melyeket a kulcs 90 fokos elfordításával lehet nyitni és zárni is (mindegy, hogy merre forgatjuk a kulcsot). Kezdetben minden cella zárva van, a börtönõr sorba járja a cellákat, elsõ körüljárásra minden cella kulcsát elfordítja 90 fokkal, második körüljárásra minden második celláét csak, és így tovább. Mely cellák lesznek nyitva a 100. körbejárás után? Írj rá modellezõ programot!
10. Kérj be egy 4x4-es mátrixot, írasd ki azon elemek indexeit, melyek sorukban maximálisak, oszlopukban minimálisak!

1. Hozz létre egy szam.dat állományt, írasd bele a prímeket 10000-ig!
2. A nev.txt text típusú állományban nevek vannak soronként, írd át úgy, hogy rendezve legyenek! (max. 10 név van)
3. Kérd be egy text típusú állomány nevét, írasd ki, hogy hány begin és end van benne!
4. Kérd be egy text típusú állomány nevét, írd át úgy, hogy minden sora fordítva legyen!
5. Az a.dat állomány integerekbõl épül fel, írasd ki a számtani átlagukat!
6. Az a.dat állomány integerekbõl épül fel, írasd ki minden második elemét!
7. Kérd be egy állomány nevét, töröld ki belõle a szóközöket!
8. Kérd be egy állomány nevét, majd azt, hogy melyik karaktert melyikre cserélje ki benne, s végezd is el a cserét!
9. Az a.dat 30 hosszú sztringekbõl álló állományból írasd ki a legrövidebb és a leghosszabb elemet!
10. Az a.dat text típusú állomány sorai a következõképpen épülnek fel: szám szóköz szám szóköz karakter pl.(1 1 A). A számok 0 és 255 közötti egész számok, írd minden sor után: ->C, ahol C kódja a két szám összege+a karakter kódja.

1. Rajzoltass szakaszt, melynek kezdõpontja 0,0, végpontja 100,100!
2. Rajzoltasd véletlen helyzetû és sugarú körökkel tele a képernyõ balfelsõ negyedét úgy, hogy a körök minden pontja ebbe a negyedbe essen!
3. Rajzoltass spirált!
4. Írj eljárást, mely adott pozícióba adott nagyságú négyzetet rajzol! negyzet(x,y,a:integer), ahol x és y a balfelsõ sarok koordinátája, a pedig az oldalhossz
5. Fraktál tenisz.
6. Rajzoltass véletlen téglalapokat véletlen kitöltési stílussal, színnel , mintával, vonalvastagsággal és vonal színnel, valamint koordinátákkal!
7. Rajzoltass egy sematikus házat színesen!
8. Kérd be egy téglalap oldalait, középpontjának koordinátáit, rajzoltasd ki csíkozva kék színnel és piros kerettel, majd írasd bele a megfelelõ helyre: balalsó, balfelsõ, jobbalsó, jobbfelsõ sarok, közepe. Ügyelj a pontos pozicionálásra!
9. Kérd be egy kör középpontját, sugarát és egy szöveget. Rajzoltasd ki a kört, majd írasd alá és mellé a szöveget érintõlegesen úgy, hogy megfelelõ szimmetria tengelye illeszkedjen a kör középpontjára!

1. Írj unitot, s azt használó programot, mely tartalmaz :

   Egy szakasz nevû eljárást, amely csak putpixelt használva kirajzolja a szakaszt. A paraméterek a szakasz végpontjainak koordinátái.
   Egy hatvany nevû függvényt, amely az elsõ paramétert emeli a másodikra. A paraméterek valós számok.
   Egy negyzet nevû eljárást, amely kirajzol egy négyzetet. A paramétere a négyzet egy átlójának végpontjainak koordinátái.

1. Közvetlen memória kezeléssel írasd ki a neved a képernyõre! másképpen
2. Kérj be egy sztringet, írasd ki a hosszát úgy, hogy rádefiniálsz egy változót a sztring hosszát tartalmazó byte-ra!
3. Írasd ki az angol ábécét mem segítségével!
4. Olvass be számokat 0 végjelig, helyezd el a heap-ben õket, majd írasd ki!
5. Olvass be számokat 0 végjelig, helyezd el a heap-ben õket, írasd ki azonos sorrendben majd visszafele is!
6. Olvass be számokat 0 végjelig, rendezetten helyezd el a heap-ben õket, majd írasd ki!