BİLGİSAYAR KULÜBÜ!

Tersten ve düzden okunuşu aynı olan sayı, kelime ve cümlelere palindrom adı verilmektedir. 121, 5445, 77, KA­BAK, ANASTAS MUM SATSANA birer palindromdur. Çünkü tersten ve düzden okunuşları değişmemektedir. 1930’lu yıl­larda, palindromik sayılar elde etmek için bir yöntem öne sü­rülmüştü. Bu yöntem şöyle açıklanabilir:

1. Herhangi bir pozitif tamsayı al,

1. Bu sayıyı ters çevir ve kendisiyle topla,
2. Elde edilen sayı palindromik değilse 2. adıma dön.

78 sayısıyla başlayarak 4 adım sonunda 4884 sayısı elde edilmek­tedir. Kuşkusuz sonucu elde etmek için gereken adım sayısı ilk başla­nılan sayıya göre değişmektedir.

Yaklaşık 35 sene bu yöntemin doğruluğuna inanıldı. An­cak 1967’de ünlü matematikçi Charles W. Trigg, yaptığı ça­lışmalar sonucu yöntemin doğru olmayabileceğini gösteren örnekler ortaya çıkardı. Trigg, 10.000’e kadar olan bütün sa­yıları başlangıç sayısı olarak aldı ve palindromik bir sayı et­mek için yöntemde açıklanan adımları tekrarladı. Bu 10.000 sayı içinde 249 tanesi, işlemi 100 adıma kadar uzattığı hal­de palindromik bir sonuç vermedi. Bulunun 249 sayı içinde en küçüğü 196 sayısı idi. Birçok matematikçi ve bilgisayarcı yöntemin doğruluğunu kanıtlamak için 196 sayısı ile başla­yarak, adım sayısını arttırdılar. 1975 yılında, Harry J.Saal

237.310adım kullandığı halde, 196 sayısından palindromik bir sonuç elde edemedi. 196 sayısı üzerinde çalışmalar de­vam ediyor. Bugüne kadar sonuç alınmamasının gelecekte de alınamayacağı anlamına gelmemesine rağmen, yöntemin doğruluğu üzerine büyük bir gölge düşmüş oldu.

Biz bu sayımızda üstteki yöntemi kullanan bir Basic prog­ramı yazacağız. Amacımız, 1 ’den 100’e kadar olan sayılar içinde, en uzun adımda palindrom üreten sayıyı bulmak. Siz programda değişiklikler yaparak analizler yapabilirsiniz, ilginç bulduğunuz sonuçları dergimize yollayabilirsiniz.

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