Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
Свидетельство о публикации

Автоматическая выдача свидетельства о публикации в официальном СМИ сразу после добавления материала на сайт - Бесплатно

Добавить свой материал

За каждый опубликованный материал Вы получите бесплатное свидетельство о публикации от проекта «Инфоурок»

(Свидетельство о регистрации СМИ: Эл №ФС77-60625 от 20.01.2015)

Инфоурок / Информатика / Конспекты / Изучаем язык BASIC.Занятие 24 Подсчет количества букв в предложении, какие встречаются чаще.
ВНИМАНИЮ ВСЕХ УЧИТЕЛЕЙ: согласно Федеральному закону № 313-ФЗ все педагоги должны пройти обучение навыкам оказания первой помощи.

Дистанционный курс "Оказание первой помощи детям и взрослым" от проекта "Инфоурок" даёт Вам возможность привести свои знания в соответствие с требованиями закона и получить удостоверение о повышении квалификации установленного образца (180 часов). Начало обучения новой группы: 28 июня.

Подать заявку на курс
  • Информатика

Изучаем язык 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% уже осенью 2017 года.


Выберите специальность, которую Вы хотите получить:

Обучение проходит дистанционно на сайте проекта "Инфоурок".
По итогам обучения слушателям выдаются печатные дипломы установленного образца.

ПЕРЕЙТИ В КАТАЛОГ КУРСОВ

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

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