Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
Инфоурок / Информатика / Конспекты / Изучаем язык BASIC.Занятие 24 Подсчет количества букв в предложении, какие встречаются чаще.

Изучаем язык 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


Выберите курс повышения квалификации со скидкой 50%:

Автор
Дата добавления 23.09.2015
Раздел Информатика
Подраздел Конспекты
Просмотров162
Номер материала ДВ-004679
Получить свидетельство о публикации
Похожие материалы

Включите уведомления прямо сейчас и мы сразу сообщим Вам о важных новостях. Не волнуйтесь, мы будем отправлять только самое главное.
Специальное предложение
Вверх