10 REM PALİNDROMİK SAYI ÜRETEN MİCROSOFT BASIC PROGRAMI
20 REM BİLİM VE TEKNİK DERGİSİ E.H. 1986 30 DEFDBL A,D,T,P: REM A,D,T VE P HARFİ İLE BAŞLAYAN DEĞİŞKENLER ÇİFT DUYARLIKLI.
40 MAX. ADIM = 0 50 FOR 1 = 1 TO 100 60 ADIM = 0 70 DÜZ = I
80 A = DÜZ: GOSUB 210
89 TERS = A
100 TOPLAM = DÜZ+TERS 110 ADIM = ADIM+ 1 120 A = TOPLAM:GOSUB 210 130 TERS. TOPLAM = A
140 IF TOPUM < >TERS. TOPLAM THEN DÜZ =
TOPLAM: GOTO 80 150 REM ELDE EDİLEN TOPLAM PALİNDROMİK. ŞİMDİ ADIM SAYISININ MAKSİMUM OLUP 160 REM OLMADIĞI KONTROL EDİLECEK.
170 IF ADIM < > MAX. ADIM THEN MAX. ADIM =
ADIM: SAYI = I: PALİNDROM = TOPLAM 180 NEXT I
190 PRINT SAYI; “SAYISI”; MAX. ADIM; “ADIMDA” PALİNDROM; “PALİNDROMİK SAYISINI ÜRETTİ.”
200 END
210 REM SAYIYI TERK ÇEVİRME YORDAMI (SUBROUTINE) 220 BŞ = ” ”
230 AS = STRŞ (A)
240 AS = RIGHTS (AŞ, LEN (AŞ)-1): REM BU SATIR DİZGİNİN BAŞINA İLAVETEN KONAN 250 REM BOŞLUĞU KALDIRMAK İÇİN. DİĞER BASIS YORUMLAYICILARINDA GEREKMEYEBİLİR.
260 UZUNLUK=LEN (AŞ)
270 FOR J = UZUNLUK TO 1 STEP-1 280 BŞ = BŞ + MIDŞ (AŞ,J,1)
290 NEXT J 300 A = VAL (BŞ)
310 RETURN
Program çalıştırıldığında şu çıktı alınacaktır:
RUN
89 Sayısı 24 Adımda 8813200023188 Palindromik sayısını üretti.
EK SORU:
İlk 10,000 sayı içinde üretilen en büyük palindromik sayı kaçtır? CEVAP: 6,999 sayısından 20 adımda 16,668,488,486,661 palindromik sayısı elde edilir. Bu sayı 10.000 sayı içinden elde edilebilecek en büyük palindromik sayıdır.
SAMANYOLU ARAŞTIRMASI
Uzay bilimcileri K.Y.Lo ve Mark Claussen, bilgisayar kullanarak Samanyolu ile ilgili bir araştırma yaptılar. 27 antenli bir radyo teleskop (Very Large Array Radio Telescope) yardımı ile 10 ışık yıllık bir alanı kapsayan çalışma bilgisayarla