Nemes Tihamér OKSzTV'88

Mini-LOGO:

Készíts egy grafikus nyelvhez értelmező programot BASIC vagy PASCAL nyelven! A program legyen képes beolvasni az ezen a nyelven írt programszöveget (forrásprogramot), majd értelmezni és végrehajtani azt! Egy programsorban az utasítást a paraméterétől ls egyik utasítást a másiktól szóközzel kelljen elválasztani! A forrásprogram végét a V utasítás jelzi (lásd lejjebb), ennek beolvasása indítja el - automatikusan - az értelmezést. A forrásprogram végrehajtása során keletkezett ábra annak lefutása után is maradjon látható mindaddig, amíg a felhasználó nem jelzi (egy tetszőleges billentyű lenyomásával), hogy az értelmező alapállapotba kerülhet, vagyis újabb grafikus program befogadására álljon készen! A forrásprogram elindulása előtt maga az értelmező gondoskodjon a képernyő letörtéséről!

Az értelmezendő utasítások és leításuk:
 
 

Utasítás	Leírás
M <hossz> (Menj)	A ceruzát az aktuális helyről az aktuális irányba mozdítsa el <hossz>-nyit! (1 egység legyen a gép legkisebb grafikus egysége!) Ha kell, akkor a mozgás nyoma látszódjon a képernyőn! (lásd N, R parancsok!)
F <szög> (Fordulj)	Az aktuális helyen maradva az új haladási irány legyen a régi irány és a <szög> összege! (A <szög> előjeles mennyiség, a pozitív irány az óra járásának megfelelő irány.)
N (NeRajzolj)	A utasítás kiadása után a következő R utasításig a ceruza mozgásának nyoma ne látszódjon!
R (Rajzolj)	A következő N utasításig lehessen a képernyőn követni a ceruza mozgását!
T (Törölj)	Hatására törlődjön a képernyő, de a ceruza aktuális helyzete (hely, irány, és hogy rajzol-e vagy sem) ne változzon!
H (Haza)	Hatására a ceruza "kerüljön" az alapállapotba --> hely:=képernyő közepe, irány:= függőlegesen felfelé, és rajzoló üzemmódban legyen! (A hazamozgás során természetesen rajzoljon, ha rajzoló üzemmódban van!)
V (Vége)	Ez az utasítás jelezze a forrásprogram végét az értelmező számára! Ezután a beírt program azonnal hajtódjon végre!
I <szám> (<utasítás-sor>) (Ismételd)	Ez az utasítás tegye lehetővé, hogy az <utasítás-sor>-ban leírt teendők <szám>-szor végrehajtódjanak!
E <név> (<utasítás-sor>) (Eljárás)	Ezzel az utasítással tudjunk az itt felsorolt utasításokból definiálni <név> névvel egy új, a többivel egyenrangú utasítást! (Ezeket aktivizálni a <név> leírásával lehessen!)
D <név> (DobdEl)	Ezzel lehessen a már feleslegessé vált, ÁLTALUNK definiált eljárásokat törölni, hogy ezáltal hely szabaduljon fel az újabbak számára!

FONTOS!

• A kész program mellé be kell adni a program tervét! (Fontosabb szubrutinok és a változók leírása!)
• ELŐSZÖR a vezérlő programrészt írd meg, majd - ajánljuk, hogy - az utasításokat a fenti sorrendben valósítsd meg!
• Bármilyen gépet és bármilyen nyelvet is használsz, a rajzoláshoz a programodban csak az egy pont rajzolásához és a képernyő törléséhez szükséges utasítást használhatod fel! (Ebből következik, hogy a szakaszrajzoló rutint is neked kell megírni!) Ha az általad használt gépen vagy nyelvben nincs grafika, akkor a legkisebb egység nálad - természetesen - a betűméret lesz!


Bővítési lehetőségek:

• Ha az eddigi feladatokat megoldottad, akkor próbáld meg úgy módosítani a programodat, hogy jelezze a felhasználónak a szintaktikai hibákat, majd a futás közbeni hibákat is!
• Ha ezt is túl kevésnek találod, akkor az eddigiek elkészítése után nekiláthatsz az utasítások neveinek bővítéséhez olyan módon, hogy az egybetűs parancs alatt zárójelben levő szavakal lehessen utasításokat beírni.


Mintaprogramok:
 

Bemenő adatok

1. M 20 F 60 M 20 F 60 M 20 V 2. T I 10 (R M 20 F 18 N M 20 F 18) V 3. E TETO (F 45 M 60 F 90 M 60) TETO V

 

Elérhető összpontszám: 84 pont