|
Soru = Sayı olarak girilen değeri ay/gün/yıl olarak kullanıcıya bilgi veren programı yapınız.
Şekli :
Kodlar :
Procedure Guntoaygunyil(gunsayi:integer);
var
gun,ay,yil:integer;
begin
case gunsayi of
0..30:Begin
gun:=gunsayi;
ay:=0;
yil:=0;
end;
31..359:Begin
gun:=gunsayi mod 30;
ay:=gunsayi div 30;
yil:=0;
end;
360..100000:Begin
yil:=gunsayi div 360;
if (gunsayi mod 360) >= 30 then
begin
ay:=(gunsayi mod 360) div 30;
gun:=(gunsayi mod 360)mod 30;
end;
end;
end;
showmessage('Girdiğiniz Günün Karşılığı : '+inttostr(yil)+ ' Yil '+inttostr(ay)+' Ay ' + inttostr(gun)+ ' Gündür');
end;
Procedure TForm1.Button1Click(Sender: TObject);
var
gun:integer;
begin
gun:=strtoint(edit1.Text);
Guntoaygunyil(gun);
end;
Çalışma Şekli :
 
Klavyeden gün sayısını gireriz ve ‘Günü Hesaplaması' butonuna tıklarız ve ekrana Yıl / Ay / Gün olarak bilgi mesajı olarak ekrana çıkartır.
|
