Algoritma ve programlamaya Giriş

Else kısmı ise tamamen seçimliktir. Đstemezseniz kullanmayabilirsiniz.
Şimdi bir soruyu hem if-then else deyimi ile hem de case-of deyimi ile çözüp farkları
zorlukları görelim.
Soru: Başlangıç değeri I=500 olan I sayısı; dışarıdan girilen sayı 0’dan büyük ve 128’den
küçükse I değişkenine 1 eklesin, 128..256 arasında ise I’ya 10 eklesin, 256’dan büyükse
I’ya 100 eklesin. Aynı zamanda eğer bu sayı 0’dan küçük ve –127’den büyükse I’dan 1
eksiltsin, -127..-255 arasındaysa 10 eksiltsin ve –255’den de küçükse I’dan 100 eksiltsin.
if’li çözüm
Var
Begin
End.
I : integer = 500;
Sayi : integer;
Write(‘Bir sayı girin : ‘);
Readln(Sayi);
If (sayi > 0) and (sayi < 128) then
I := I+1;
If (sayi >= 128) and (sayi 256) then
I := I+100;
If (sayi < 0) and (sayi > -127) then
I := I-1;
If (sayi = -255) then
I := I-10;
If (sayi < -255) then
I := I-100;
Writeln(‘Đşlem sonucu I da kalan=‘ , I);
Bir if deyimi için oldukça karmaşık olan bu örneği bir de case-of ile çözelim.
Case-of’lu çözüm
Var
I : integer = 500;
Sayi : integer;
Begin
Algoritma ve Programlamaya Giriş 42 Öğr. Gör. Mustafa AKSU