10 REM

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ŞLA­YAN 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ı üret­ti.

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 pa­lindromik 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 kul­lanarak Samanyolu ile ilgili bir araştırma yaptılar. 27 antenli bir radyo teleskop (Very Large Array Radio Telescope) yar­dımı ile 10 ışık yıllık bir alanı kapsayan çalışma bilgisayarla