Klavyeden Girilen Bir Tamsayiyi Basamaklarina Ayiran Program

10 REM BASAMAKLARINA AYRIŞTIRMA
20 CLS : INPUT "Tamsayı : " , S$ : PRINT
30 PRINT "Basamaklar:" : PRINT  "-----------"
40 FOR I = LEN(S$) TO 1 STEP -1
50 H=VAL(MID$(S$, I, 1))
60 PRINT (1O ^ (LEN(S$) - I )) ; "- >" ; H
70 NEXT I
80 END

KLAVYEDEN GİRİLEN BİR CÜMLEDE KAÇ TANE KELİME OLDUĞUNU BULAN PROGRAM

10 REM KELİME SAYISI
20 BP$(1)= " " : BP$(2) = "," : BP$(3) = ";"
30 BP$(4)= "-": BP$(5) = ":"
40 CLS : INPUT "Cümle: ", A$: TUT=0 : PRINT
50 FOR B = 1 TO LEN(A$)
60 FOR C = 1 TO 5
70 IF MID$(A$,B,1) =BP$(C) THEN TUT=TUT+1
80 NEXT C,B
90 PRINT "Cümlede " ; TUT+1 ; " TANE KELİME VARDIR."
100 END