Valaki help free pascal?

Hozzávalók:

- változó deklarálása

- szöveg kiírása képernyőre (write, writeln)

- szám beolvasása billentyűzetről (read, readln)

Melyiket nem tudod használni az órai jegyzeted, programjaid, esetleg tankönyv alapján?

Pascal oktatóanyag:

[link]

10 REM HAZIFELADAT

20 INPUT "HANYAST SZERETNEL KAPNI: ", JEGY$

30 LET JEGY = INT(VAL JEGY$)

40 IF JEGY < 1 OR JEGY > 5 THEN LET JEGY = 1

50 PRINT "RENDEBEN " + JEGY + " JEGYET KAPSZ"

60 PAUSE 0

70 NEW

Minimálmegoldás:

program osztalyzat;

uses crt;

var jegy : byte;

BEGIN

Write('Milyen jegyet szeretnél félévkor? ');

ReadLn(jegy);

clrscr;

WriteLn('Rendben, félévkor ', jegy, ' jegyet kapsz.');

END.

...és szégyelld magad. Egyest talán nem kapsz érte, de illenék ellenőrizned, hogy a jegy mínusz szám esetén ne fusson hibára, 255-nél nagyobb számnál ne írjon hülyeséget, meg általában 1 és 5 között maradjon. Lehet, hogy szerinted elfogadható a „Rendben, félévkor 5 jegyet kapsz.” kifejezés, de mennyivel szebb lenne, ha kiírná, hogy „egyes”, „kettes”, „hármas” vagy „elégtelen”, „elégséges”, „közepes”, stb. Ami ehhez kell, azt szerintem már régen tudnod kéne.

A lényeg: Egy vesszőt lehagytál az x mögül.

WriteLn('Rendben, ',x,' kapsz félévkor.');

Mégis, mit ír ki üzenetként?

Tessék, a saját programod, majdnem egy az egyben, nálam működik:

program pascal01;

uses crt;

var x:string;

begin

ClrScr;

WriteLn('Hanyast szeretnél félévkor?');

ReadLn (x);

ClrScr;

WriteLn('Rendben, ', x, ' kapsz félévkor.');

ReadKey;

end.