1099574
столько раз учителя, ученики и родители
посетили сайт «Инфоурок»
за прошедшие 24 часа
+Добавить материал
и получить бесплатное
свидетельство о публикации
в СМИ №ФС77-60625 от 20.01.2015
Дистанционные курсы профессиональной переподготовки и повышения квалификации для педагогов

Дистанционные курсы для педагогов - курсы профессиональной переподготовки от 1.410 руб.;
- курсы повышения квалификации от 430 руб.
Московские документы для аттестации

ВЫБРАТЬ КУРС СО СКИДКОЙ ДО 90%

ВНИМАНИЕ: Скидка действует ТОЛЬКО до конца апреля!

(Лицензия на осуществление образовательной деятельности №038767 выдана ООО "Столичный учебный центр", г.Москва)

ИнфоурокИнформатикаКонспектыИзучаем язык 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


Общая информация

Номер материала: ДВ-004679

Вам будут интересны эти курсы:

Курс повышения квалификации «Табличный процессор MS Excel в профессиональной деятельности учителя математики»
Курс повышения квалификации «Методика преподавания информатики в начальных классах»
Курс повышения квалификации «Внедрение системы компьютерной математики в процесс обучения математике в старших классах в рамках реализации ФГОС»
Курс повышения квалификации «Организация работы по формированию медиаграмотности и повышению уровня информационных компетенций всех участников образовательного процесса»
Курс «Оператор персонального компьютера»
Курс «WEB-ВЕРСТКА (HTML, CSS)»
Курс повышения квалификации «Сетевые и дистанционные (электронные) формы обучения в условиях реализации ФГОС по ТОП-50»
Курс повышения квалификации «Развитие информационно-коммуникационных компетенций учителя в процессе внедрения ФГОС: работа в Московской электронной школе»
Курс повышения квалификации «Использование компьютерных технологий в процессе обучения в условиях реализации ФГОС»
Курс повышения квалификации «Применение MS Word, Excel в финансовых расчетах»
Курс профессиональной переподготовки «Управление в сфере информационных технологий в образовательной организации»
Курс профессиональной переподготовки «Теория и методика обучения информатике в начальной школе»
Курс повышения квалификации «Современные тенденции цифровизации образования»
Курс повышения квалификации «Специфика преподавания дисциплины «Информационные технологии» в условиях реализации ФГОС СПО по ТОП-50»
Курс повышение квалификации «Применение интерактивных образовательных платформ на примере платформы Moodle»

Благодарность за вклад в развитие крупнейшей онлайн-библиотеки методических разработок для учителей

Опубликуйте минимум 3 материала, чтобы БЕСПЛАТНО получить и скачать данную благодарность

Сертификат о создании сайта

Добавьте минимум пять материалов, чтобы получить сертификат о создании сайта

Грамота за использование ИКТ в работе педагога

Опубликуйте минимум 10 материалов, чтобы БЕСПЛАТНО получить и скачать данную грамоту

Свидетельство о представлении обобщённого педагогического опыта на Всероссийском уровне

Опубликуйте минимум 15 материалов, чтобы БЕСПЛАТНО получить и скачать данное cвидетельство

Грамота за высокий профессионализм, проявленный в процессе создания и развития собственного учительского сайта в рамках проекта "Инфоурок"

Опубликуйте минимум 20 материалов, чтобы БЕСПЛАТНО получить и скачать данную грамоту

Грамота за активное участие в работе над повышением качества образования совместно с проектом "Инфоурок"

Опубликуйте минимум 25 материалов, чтобы БЕСПЛАТНО получить и скачать данную грамоту

Почётная грамота за научно-просветительскую и образовательную деятельность в рамках проекта "Инфоурок"

Опубликуйте минимум 40 материалов, чтобы БЕСПЛАТНО получить и скачать данную почётную грамоту

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