Soru = Klavyeden girilen mevsime göre ayları ekrana yazdıran programı fonksiyonda yapınız.
Şekli :
Kodlar :
Function mevsim(mvsm:string):string;
begin
if (mvsm='kış') or (mvsm='KIŞ') then
showmessage('Aralık, Ocak, Şubat')
else if (mvsm='ilkbahar') or (mvsm='İLKBAHAR') then
showmessage('Mart, Nisan, Mayıs')
else if (mvsm='yaz') or (mvsm='YAZ') then
showmessage('Haziran, Temmuz, Ağustos')
else if (mvsm='sonbahar') or (mvsm='SONBAHAR') then
showmessage('Eylül, Ekim, Kasım')
else
showmessage('Yanlış Bilgi Girdiniz');
end;
Procedure TForm1.Button1Click(Sender: TObject);
var
m:string;
begin
m:=inputbox('Mevsimler','Mevsim Giriniz','');
mevsim(m);
end;
Çalışma Şekli :
 
Programı çalıştırdıktan sonra Mevsimlere göre ayları listele butonunu tıkladığımızda bilgi girişi kısmı gelir.Oraya 4 mevsimden birini girdiğimizde o mevsime ait olan ayları ekrana yazdıracaktır.Yanlış bilgi girişi yapıldığında kullanıcıyı uyaran bilgi mesajı verir.
|
