Подсчитать количество каждого из этих разделительных символов и выделить отдельные слова
Категория: Basic
2011-09-14 16:41:41
Дана произвольная фраза, слова в которой отделяются символами " "(пробел) ":" "," Требуется подсчитать количество каждого из этих разделительных символов и выделить отдельные слова.
code: #basic
CLS DIM c$(100) LINE INPUT "vvedite frazy ";f$ FOR i=1 TO LEN(f$) IF MID$(f$,i,1)="," THEN k=k+1 IF MID$(f$,i,1)=" " THEN g=g+1 IF MID$(f$,i,1)=":" THEN z=z+1 NEXT PRINT"запятые";k :PRINT"пробелы";g :PRINT"двоеточие";z f$=" "+f$ FOR i=1 TO LEN(f$) IF MID$(f$,i,1)=" " OR MID$(f$,i,1)="," OR MID$(f$,i,1)=":" THEN m=m+1 ELSE c$(m)=c$(m)+MID$(f$,i,1) NEXT PRINT"otdelnie slova:" FOR i=1 TO LEN(f$) PRINT c$(i) NEXT
Поделиться: