IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Yaş Değerine Göre Sınıflandırma Yapan Program

Pascal programlama dilinde yazılmış bu programda bir kişinin yaşına göre 10’dan küçükse çoçuk, 15 ile 25 arasında ise genç, 25-40 arasında ise orta yaşlı, 60-40 arası ise olgun, 60 yaş üzeri ise yaşlı olduğunu belirten bir prosedür yazılmıştır.

Program Kodu:

Kod:

 

 

uses crt;

var

s:integer;

tus:char;

 

Procedure A(yas:integer);

begin

case yas of

0..9:writeln('Kisi : Cocuk ..');

15..25:writeln('Kisi : Genc .. ');

26..40:writeln('Kisi : Orta yasli ..');

41..60:writeln('Kisi : Olgun ..');

61..120:writeln('Kisi : Yasli ..');

end;

end;

 

Begin {ana program blogu}

Clrscr;

repeat;

Writeln('Yasi giriniz:..');

readln(s);

A(s);

Writeln('Cikmak icin * karakterine basiniz..');

 

tus:=readkey;

until tus= '*';

readln;

End.