Bu sayfadaki yazılar
Sayfanın metni
Sayfa 19
1 GUN VE TARIH BULMA
REM akk REM * * REM * GÜN VE TARİH * REM * * REM * BULMA PROGRAMI * REM * * REM ok ak ok kkk ak REM REM PRİNT
RIH BULMA" GET Aşar"
IF AND ASC>"2" THEN 15 PRİNT CHR$<13)CHRSC13)2 INPUT “BASLI
INPUT "<LİSPACEYAYI "<10,
IF THEN 300 PRİNT YILI"; EİTİNPUT
INPUT "<10SPACE GOSUB GOSUB 100:X-51-.
#PRİNT CHR$C13)"CEVA
Klavyeyle gezinmek için ← ve → tuşları.
Sayfa 18
Bu program ile verilen bir tarih ve istenilen bir tarih arasında kaç gün olduğu ya da verilen bir tarihten evvel, ya da sonra, istenen gün sayısına karşıt olan tarih, kolayca elde edilebilir.
Bu programın listesi şekilde verilmiştir. Önce, bu programı Bilgisayara yazınız ya da Teleteknikten elde edeceğiniz Program disketini Commodore 64'de yükleyiniz.
RUN RETURN yapınca aşağıdakiler EKRANDA çıkar:
1 GÜN BULMA
2 TARİH BULMA
Uygulama aşağıda ele alınan 5 örnekle yapılacaktır:
ÖRNEK - 1 5/2/1988'den 5/10/1988'e kadar kaç gün vardır?
1 'e basınız.
Ekranda aşağıda görülenlerin cevaplarını yazınız:
BAŞLANGIÇ YILI:? 1988 RETURN AYI:? 2 RETURN GÜNÜ:? 5 RETURN BİTİŞ YILI:? 1988 RETURN AYI:? 10 RETURN GÜNÜ:? 5 RETURN CEVAP: 243 GÜN
ÖRNEK - 2 5/10/1988'den 5/2/1988'e kadar kaç gün vardır?
BAŞLANGIÇ YILI:? 1988 RETURN AYI:? 10 RETURN GÜNÜ:? 5 RETURN CEVAP: -243 GÜN
NOT: Bitiş geriye gittiği için Cevap (-) değer almıştır.
ÖRNEK - 3 5/2/1988'den 243 gün sonraki tarih nedir?
2 'ye basınız
BAŞLANGIÇ YILI:? 1988 RETURN AYI:? 2 GÜNÜ:? 5 GÜN? 243 CEVAP: 5.10.1988
ÖRNEK - 4 5/10/1988'den 243 gün ÖNCEKİ tarih nedir?
2 'ye basınız.
BAŞLANGIÇ YILI:? 1988 RETURN AYI:? 10 RETURN GÜNÜ:? 5 RETURN GÜN? -243
NOT: Bu örnekte gün GERİYE çalıştığı için yazılacak günün önüne (-) işareti konur.
ÖRNEK - 5 Doğum tarihiniz 3/3/1960 olsun. 20/5/1988 tarihine kadar kaç gün geçmiştir?
1 'e basınız.
BAŞLANGIÇ YILI:? 1960 RETURN AYI:? 3 RETURN GÜNÜ:? 3 RETURN BİTİŞ YILI:? 1988 RETURN AYI:? 5 RETURN GÜNÜ:? 20 RETURN CEVAP: 12305 GÜN.