Заданы М строк символов, которые вводятся с клавиатуры. Каждая заданная строка представляет собой текст. Исключить из этих текстов все знаки препинания — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
CLS ' Ochistka ekrana
CONST m = 5 ' Kol-vo strok
 
DIM St(m) AS STRING, Filter AS STRING, NewSt AS STRING
 
Filter = ".,-:!?)(" ' Znaki prepinaniya kotorie trebuetsya ubrat
 
'  Vvod dannikh
FOR i = 1 TO m
    PRINT "Vvedite stroku" + STR$(i) + ": ";: COLOR 15: LINE INPUT St(i)
    COLOR 7
NEXT
 
'  Proverka kazhdoi stroki po bukvam
FOR Vne = 1 TO m
    FOR Vnu = 1 TO LEN(St(Vne))
        smb$ = MID$(St(Vne), Vnu, 1)
        FOR i = 1 TO LEN(Filter): IF smb$ = MID$(Filter, i, 1) GOTO 50
        NEXT
        NewSt = NewSt + smb$
    50 NEXT: St(Vne) = NewSt: NewSt = ""
NEXT: PRINT
 
'  Rezultat zelyonim tsvetom
COLOR 10
FOR i = 1 TO m
    PRINT STR$(i); ":"; St(i)
NEXT

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment