GİRİLEN KELİMENİN PALİNDROMİK OLUP OLMADIĞINI TESPİT EDEN PROGRAM
10 REM Palindromik kelime
20 CLS : "Kelime : ", K$: PRINT
30 KT$ = " " : FOR I = LEN(K$) TO 1 STEP -1
40 KT$ = KT$ + MID$(K$, I, 1) : NEXT I
50 IF K$ = KT$ THEN PRINT "Palindromik"
ELSE PRINT "Palindromik değil"
60 END
Hiç yorum yok :
Yorum Gönder