Feltételes utasítás

Egy feladat végrehajtása közben lehetnek olyan utasítások, amelyeket csak akkor kell végrehajtani, ha a logikai kifejezés igaz.
If logikai kifejezés Then utasítás
Például: If x=3 Then  WriteLn(’három’); Csak akkor írja ki x változó értékét, ha annak értéke három.

Ha több utasítást kell végrehajtani akkor Begin End közé kell írni.
If logokai kifejezés   Then

Begin
                Utasítások
End;

Elágazások

Egy másik fajtája a feltétel kezelésnek, amikor akkor is végzünk utasításokat, ha a logikai kifejezés hamis

If logikai kifejezés Then utasítás1
Else utasítás2;

 

Minta példa az elágazásra

Készítsünk programot, amely egy szám bekérése után kiírja,
hogy osztható 3- mal vagy sem

Program harommaloszthato;
Uses Crt;
Var A: Integer;
Begin
               ClrScr;
               GotoXY(20, 12);
               Write(’Adj meg egy számot: !’);
               ReadLn(a);
               GotoXY(20, 12);
               If a Mod 3=0 Then WriteLn(’ A szám osztható hárommal!’)
               Else WriteLn (’A szám nem osztható hárommal!’);
               ReadLn;

Összetett logikai kifejezéseket is használhatunk, ekkor használjuk a NOT, az AND, az OR kifejezéseket.

Készítsünk programot, amely bekér egy számot és eldönti, hogy háromjegyü-e

program haromjegyu;
Uses Crt;
Var x: Integer;

Begin
                ClrScr;
                GotoXY(20, 12);
                Write(’Kérek egy számot: ’);
                GotoXY(20, 12);
                If (x>99) and (x<1000) Then WriteLn(x, ’ Haromjegyu’)
                Else WriteLn (x, ’ Nem haromjegyu’);
                RedaLn;

End.

 

 

Oldal: Feltételes utasítás és elágazások
Rné-Ildi - © 2008 - 2024 - rne-ildi.hupont.hu

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

ÁSZF | Adatvédelmi Nyilatkozat