[Swat]

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:   Kodu kopyalamak için üzerine çift tıklayın!

 
 
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.