Rné-Ildi

Többirányú feltételek kezelése az if utasítással nehézkes, ezért ebben az esetben a Case utasítást használjuk. A Case utasítás után megadott kifejezés értékétől függően különböző utasítások hajthatok végre.

Általános alakja a következő:

Case Kifejezés of

 Értek1: Utasítás1;

 Érték2 : Utasítás2.

  ...

Else

  Utasítás;

End;

Ha a kifejezés értéke megegyezik az érték1 -el, akkor az Utasítás1 -et, ha Érték2-vel, akkor az Utasítás 2-t, .. és ha olyan értékkel, ami nincs felsorolva akkor az utasítást hajtja végre a program. 

Írjun olyan programot Case utasítás felhasználásával, amely bekéri a pontszámot és ennek alapján kiírja az osztályzatot. 

Program jegyek;

Uses Crt;

Var pont: Integer;

Begin

ClrScr;

Gotoxy(20,12);

Write('Kerem adja meg a pontszamot: ');

Readln(pont);

Gotoxy(12, 14);

 Case pont of

 1..20: Writeln('A pont alapjan az osztalyzat: Elegtelen (1)');

 21..24: Writeln('A pont alapjan az osztalyzat: Kettes (2)');

 25..27: Writeln('A pont alapjan az osztalyzat: Kozepes (3)');

 28-30: Writeln ('A pont alapjan az osztalyzat: Jo (4)');

 31..35: Writeln('A pont alapjan az osztalyzat: Jeles (5)');

 Else Writeln ('Rossz a pontszám!');

 End;

 ReadLn;

End.                

A HuPont.hu ingyen weblap készítő egyszerű. Weboldalak létrehozására: Ingyen weblap

ÁSZF | Adatvédelmi Nyilatkozat