 PS 9308


..............................................................................

                   BYK HARFLER KK HARFE DNTRME

                                                    Ziya Bahtiyar
..............................................................................


Bu basit program, girilen mesaj iindeki byk harfleri kk harflere
dntrr. Bu programn bir benzeri de BUYUT adnda bu alanda bulunmaktadr.
Bu da ayn ilemin tersini yapar.


Programn Aklamas:

Programn banda (20. satr) ileme sokulacak mesaj istenir. Daha sonra bir
FOR/NEXT dngsu oluturulur. Mesajdaki karakterler tek tek alnp ileme
sokulur.
Eer alnan karakterin kodu 65 - 90 arasndaysa, bu karakter byk bir
harftir. Bu harfin kk bir harfe dntrlmesi iin karakter kodunda 32
eklenir. Bylece harfin kk harf karl elde edilir. Her karakter daha
sonra S$ deikenine eklenerek mesajn ilenmi hali elde edilir.
Dng bittikten sonra da sonucun bulunduu S$ ekrana yazdrlr.



  KUCULT.BAS
Ŀ
 10 REM - KUCULT -                    
 20 LINE INPUT "MESAJ : ",A$          
 30 S$=""                             
 40 FOR N=1 TO LEN(A$)                
 50 K$=MID$(A$,N,1) : K=ASC(K$)       
 60 IF K>64 AND K<91 THEN K=K+32      
 70 S$=S$+CHR$(K)                     
 80 NEXT N                            
 90 PRINT A$;" -> ";S$                
