pascal case string değişken of kullanımı

[greenegitim]

arkadaşımın biri pascalda bir soru sordu günler girilecek örneğin perşembe yazıldığı zaman Thursday gibi yazacak basiti if kullanarak yaptım ama hocaları case kullanarak yapmış pascalda case string bir değer almıyor byte integer gibi sayısal değerler alınıyor case kullanarak bu işlem nasıl yapılır.

Kod: Tümünü seç

case girilen gun of pazartesi:write('Monday');
 salı:write('Tuesday'); gibi?

delphide kullanılabiliyor linklerde örnekler var
http://delphi.about.com/cs/adptips2002/ ... 0202_5.htm
http://www.delphi3000.com/articles/article_2810.asp?SK=
ödevi zaten verememiş ben ödevden geçtim kendim için istiyorum artık

[csunguray]

Case ile sadece sayılabilir veri tiplerini kullanabilirsiniz. Bu işlemi case ile yapamazsınız.

[orhancc]

Linki zaten vermişsin ama burada nasıl yapılacağı anlatılmış.

http://delphi.about.com/cs/adptips2002/ ... 0202_5.htm

[greenegitim]

Pascalda hata veriyor delphi için ok pascalda nasıl bir yol izlemek lazım veya oradaki kodlarda nasıl bir değişiklik yapmak gerekiyor.

[aslangeri]

s.a.
Hocaları günleri const oalrak tanımlamıştır. o şekilde yapmıştır.

[comfort]

enum kullanarak yapabilirsin.

[sabanakman]

Ne delphi üzerinde ne de pascal üzerinde sayılabilir (enum) olmayan veri tipi üzerinden case ifadesini kullanamazsınız. String tipi bu türden bir veri tipi değildir. Ayrıca Case yapısı her ikisinde de tamamen aynıdır.

enum kullanarak yapabilirsin.

Önerisini örnekle açarsak,

Kod: Tümünü seç

type
 TGun=(Pazartesi, Sali, Carsamba, Persembe, Cuma, Cumartesi, Pazar);

var Gun:TGun;
begin
  Gun:=Pazartesi;
...
...
  case Gun of
    Cumartesi,Pazar:ShowMessage('Hafta sonu');
  else
    ShowMessage('Hafta içi');
  end;
end;

şeklinde bir örnek açıklayıcı olacaktır.

[greenegitim]

Kod: Tümünü seç

uses crt;
type
TGun=(Pazartesi, Sali, Carsamba, Persembe, Cuma, Cumartesi, Pazar);
var Gun:TGun;
girilen:string;
begin
clrscr;
writeln('gunu giriniz');readln(girilen);
  gun:=girilen;
  case Gun of
    Cumartesi,Pazar:write('Hafta sonu')
  else
    write('Hafta ici');
  end;
    readln;
end.

Bu şekilde bir kullanım sağlayamıyoruz herhalde koda değilde klavyeden gunu kendimiz girmek istersek?