Yeni Kayıt
Konudaki Resimler
|
Hızlı 
Bildirim
case of döngü hakkında soru
Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla 
Bu Konudaki Kullanıcılar:
Daha Az 
2 Misafir - 2 Masaüstü
Giriş
Mesaj
-
-
serseri546
kullanıcısına yanıt
Case değerini yıla göre verirsen girilebilecek çok sayıda tarih için çok sayıda case girişi yapman lazım. (ayların-günlerin hesaba katılmadığı sadece yıl için)
Bunun için yıl değerininın 4 ile modunu al. Mod 4 sonucu sıfır çıkan yıllar artık yıllardır sadece bunun için +1 gün hesapla.
program günler;
uses .....
var
yil1, yil2, gunsayi, i, m :longint; {i döngü için, m mod sonucu için}
begin
write('Başlangıç yılını girin:')
readln(yil1);
write('Bitiş yılını girin:')
readln(yil2);
gunsayi:=0;
for i=yil1 to yil 2 do begin
m = i mod 4;
case i of
0 :gunsay:=gunsayi+366; {artık yıl}
1..3:gunsay:=gunsayi+365; {normal yıl}
end;
end;
writeln('toplam ',gunsayi,' gün');
end.
Sayfa:
1
Ip işlemleri
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
