Изучаем язык BASIC. Занятие 24 Подсчет количества букв в предложении, какие встречаются чаще

Занятие 24

Подсчет количества букв в предложении, какие встречаются чаще

Задана строка A$, подсчитать сколько гласных букв в предложении.

CLS

INPUT A$

K=0

B$ = "AaEeUuOoIiYy"

FOR I =1 TO LEN(B$)

X$ = MID$(B$,I,1)

FOR J =1 TO LEN(A$)

Y$ = MID$(A$,J,1)

IF X$ = Y$ THEN K = K + 1

NEXT J, I

PRINT "Количество гласных ="; K

Задана строка A$, подсчитать сколько согласных букв в предложении.

CLS

INPUT A$

K=0

B$ = "QqWwRrTtPpSsDdFfGgHhJjKkLlZzXxCcVvBbNnMm"

FOR I =1 TO LEN(B$)

X$ = MID$(B$,I,1)

FOR J =1 TO LEN(A$)

Y$ = MID$(A$,J,1)

IF X$ = Y$ THEN K = K + 1

NEXT J, I

PRINT "Количество гласных ="; K

Какие из гласных букв чаще встречаются в предложении A$.

CLS

INPUT A$

B$ = "AaEeUuOoIiYy"

max = -1000

FOR I =1 TO LEN(B$)

X$ = MID$(B$,I,1)

K=0

FOR J =1 TO LEN(A$)

Y$ = MID$(A$,J,1)

IF X$ = Y$ THEN K = K + 1

NEXT J

IF K > max THEN max = K : D$ = X$

NEXT I

PRINT D$, max

Определить какая из букв реже всего встречается в предложении A$.

CLS

INPUT A$

B$ = "AaEeUuOoIiYy QqWwRrTtPpSsDdFfGgHhJjKkLlZzXxCc

VvBbNnMm "

min = 1000

FOR I =1 TO LEN(B$)

X$ = MID$(B$,I,1)

K=0

FOR J =1 TO LEN(A$)

Y$ = MID$(A$,J,1)

IF X$ = Y$ THEN K = K + 1

NEXT J

IF K < min AND K<> 0 THEN min = K : D$ = X$

NEXT I

PRINT D$, min

Определить какая из букв чаще всего встречается в предложении A$.

CLS

INPUT A$

B$ = "AaEeUuOoIiYy QqWwRrTtPpSsDdFfGgHhJjKkLlZzXxCc

VvBbNnMm "

max = - 1000

FOR I =1 TO LEN(B$)

X$ = MID$(B$,I,1)

K=0

FOR J =1 TO LEN(A$)

Y$ = MID$(A$,J,1)

IF X$ = Y$ THEN K = K + 1

NEXT J

IF K > max THEN max = K : D$ = X$

NEXT I

PRINT D$, max

Определить сколько раз каждая буква встречается в предложении A$.

CLS

INPUT A$

B$ = "AaEeUuOoIiYy QqWwRrTtPpSsDdFfGgHhJjKkLlZzXxCc

VvBbNnMm "

FOR I =1 TO LEN(B$)

X$ = MID$(B$,I,1)

K=0

FOR J =1 TO LEN(A$)

Y$ = MID$(A$,J,1)

IF X$ = Y$ THEN K = K + 1

NEXT J

IF K<> 0 THEN PRINT X$, K

NEXT I

Определить сколько различных цифр встречаются в предложении A$.

CLS

INPUT A$

B$ = "0123456789"

FOR I =1 TO LEN(B$)

X$ = MID$(B$,I,1)

K=0

FOR J =1 TO LEN(A$)

Y$ = MID$(A$,J,1)

IF X$ = Y$ THEN K = K + 1

NEXT J

IF K<> 0 THEN PRINT X$, K : d = d + 1

NEXT I

PRINT d

Вывести на экран последовательность aaaabbbbccccdddd, причем повторяются столько раз, сколько букв в слове.

CLS

A$ = "abcd"

FOR I =1 TO LEN(A$)

FOR J =1 TO LEN(A$)

PRINT MID$(A$,I,1);

NEXT J

NEXT I

Домашнее задание

Какие из согласных букв чаще встречаются в предложении A$.

CLS

INPUT A$

B$ = "QqWwRrTtPpSsDdFfGgHhJjKkLlZzXxCcVvBbNnMm "

max = -1000

FOR I =1 TO LEN(B$)

X$ = MID$(B$,I,1)

K=0

FOR J =1 TO LEN(A$)

Y$ = MID$(A$,J,1)

IF X$ = Y$ THEN K = K + 1

NEXT J

IF K > max THEN max = K : D$ = X$

NEXT I

PRINT D$, max

Вывести на экран последовательность dccbbbaaaa, причем повторяются столько раз, сколько букв в слове.

CLS

A$ = "abcd"

FOR I = LEN(A$) TO 1 STEP -1

FOR J =I TO LEN(A$)

PRINT MID$(A$,I,1);

NEXT J

NEXT I

Вывести на экран последовательность abbcccdddd, причем повторяются столько раз, сколько букв в слове.

CLS

A$ = "abcd"

FOR I =1 TO LEN(A$)

FOR J =1 TO I

PRINT MID$(A$,I,1);

NEXT J

NEXT I