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