Составить программу перевода строки строчных русских букв в прописные — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
CLS
INPUT a$
DIM b$(LEN(a$))
FOR i = 1 TO LEN(a$)
    b$(i) = MID$(a$, i, 1)
    k = ASC(b$(i))
    IF (k >= 160) AND (k <= 175) THEN
        k = k - 32: b$(i) = CHR$(k)
    ELSEIF (k >= 224) AND (k <= 239) THEN
        k = k - 80: b$(i) = CHR$(k)
    ELSE
        PRINT b$(i); " ne yavlyaetsya bukvoi russkogo alfavita"
        b$(i) = ""
    END IF
NEXT i
PRINT
s$ = ""
FOR i = 1 TO LEN(a$)
    s$ = s$ + b$(i)
NEXT i
PRINT s$

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

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

Leave a Comment