| if-then-else
if sart then komut else komut;
Bu durumda sart olarak verilen önerme dogru ise THEN kelimesinden sonra yazili olan komut veya komutlar önerme yanlis ise ELSE kelimesinden sonraki komut veya komutlar Yazilir.
(if sart then komut else komut );
ÖRNEK ; KULLANICIDAN 2 SAYI GIRMESINI ISTEYEN GIRILEN SAYININ TOPLAMI 100'DEN BÜYÜKSE ÇOK BÜYÜK DEGILSE TOPLAMINI BULAN PROGRAM.
Kod:
Uses Crt; Var a,b,t:integer; Begin Clrscr; Writeln(' Bir Sayi giriniz '); readln(a); Writeln(' Ikinci Sayiyi giriniz '); readln(b); t:=a+b; if a<100 then writeln(' Toplam ',t) ELSE writeln(' Çok büyük sayi girdiniz '); readln; End.
ÖRNEK ; KLAVYEDEN GIRILEN SAYININ 1-2-3 OLMASI DURUMUNDA SAYIYI EKRANA YAZDIR.
Kod:
Uses Crt; Var a:integer; begin clrscr; Writeln(' Bir sayi giriniz '); readln(a); if (a=1) or (a=2) or (a=3) then begin Writeln(' 1-2-3 Sayilarindan girilen sayi = ',a); end Else writeln(' 1-2-3 disinda bir sayi girdiniz '); readln; End.
ALINTIDIR: |