Bir önceki konuda bahsedilen kontrol deyimi if..then..else genellikle az sayıda olan karşılaştırmalarda kullanılır. Ama eğer yapılan karşılaştırma çok karmaşıksa o zaman bu deyimi kullanmak oldukça zor olur ve çok fazla miktarda mantık hataları bulunur. Bunu engellemek için blok if deyimi diyebileceğimiz Case yapısını kullanırız.
Case yapısında karşılaştırmanın yapılacağı değişkenin alabileceği değerler göre çeşitli işlemleri toplu olarak yapabiliriz. Bir önceki konuda gösterdiğimiz örneği ele alalım. Bir if deyimi için oldukça karmaşık olan bu örnekği bir de case ile çözelim. Tabii öncelikle Case’in genel yazılışını veriyoruz.
case degişken of
durum-1 : işlem(ler);
…
durum-n : işlem(ler);
end;
Veya
case değişken of
durum-1 : işlem(ler);
…
durum-n : işlem(ler);
else
işlem(ler)
end; devamını oku…
DOSYALAMA
Menü programı kullanılarak ad, soyad girişleri yapıldıktan sonra bunları listeleme, arama..
uses crt;
var
isim,ad,soy:string; devamını oku…
PROCEDURE
Faktöriyel
uses crt;
var
sonuc,i:integer;
fakr,fakn,faknr,n,r:integer; devamını oku…
ÇİFT BOYUTLU DİZİLER (MATRİS)
Matris1
uses crt;
var
sayi1:array[1..5,1..6] of integer; devamını oku…
DİZİ (ARRAY)
Girilen 4 sayıdan büyük olanı ve küçük olanı bulan program
Uses Crt;
Var
i,buyuk,kucuk:integer; devamını oku…
LENGTH
Girilen bir kelimeyi alfabetik sıraya göre yazan program
uses crt;
var
deg,cumle:string[30]; devamını oku…
Ascii Karakter Tablosu
uses crt;
var
a:integer;
i:byte; devamını oku…
85)Procedure ile kullanılan klavyeden girilen koordinatlara göre şekli çizen pogram.
Çöz:85)uses crt;
var
a,b,c,d,i:integer;
procedure sekil; devamını oku…
79)Fibonacci sayılarını yazan program.
Çöz:79)uses crt;
var
i,s:integer;
n,a,t1,t2,t3:longint;
begin devamını oku…
Son Yorumlar