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

Изучаем язык BASIC. Занятие 28 Нахождение слов по некоторым признакам и их перестановка.

Идёт приём заявок на самые массовые международные олимпиады проекта "Инфоурок"

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

1. Бесплатные наградные документы с указанием данных образовательной Лицензии и Свидeтельства СМИ;
2. Призовой фонд 1.500.000 рублей для самых активных учителей;
3. До 100 рублей за одного ученика остаётся у учителя (при орг.взносе 150 рублей);
4. Бесплатные путёвки в Турцию (на двоих, всё включено) - розыгрыш среди активных учителей;
5. Бесплатная подписка на месяц на видеоуроки от "Инфоурок" - активным учителям;
6. Благодарность учителю будет выслана на адрес руководителя школы.

Подайте заявку на олимпиаду сейчас - https://infourok.ru/konkurs


Международный конкурс по математике «Поверь в себя»

для учеников 1-11 классов и дошкольников с ЛЮБЫМ уровнем знаний

Задания конкурса по математике «Поверь в себя» разработаны таким образом, чтобы каждый ученик вне зависимости от уровня подготовки смог проявить себя.

Конкурс проходит полностью дистанционно. Это значит, что ребенок сам решает задания, сидя за своим домашним компьютером (по желанию учителя дети могут решать задания и организованно в компьютерном классе).

Подробнее о конкурсе - https://urokimatematiki.ru/

  • Информатика

Поделитесь материалом с коллегами:

Занятие 28

Задана строка символов, поменять местами самое длинное слово с самым коротким.

CLS

INPUT A$

A$=A$ + “

K = 1 : S=0

L = LEN(A$)

DO

N = INSTR (K,A$,““)

S = S + 1

SL$(S) = MID$(A$, K, N-K)

SK(S)=LEN(SL$(S))

K = N + 1

LOOP WHILE N <> L

min = 1000: max = -1000

FOR I = 1 TO S

IF SK(I) < min THEN min = SK(I) : D = I

IF SK(I) > max THEN max = SK(I) : D1 = I

NEXT I

SWAP SL$(D), SL$(D1)

FOR I = 1 TO S

PRINT SL$(D); “;

NEXT I

Задана строка символов, поменять местами второе слово с четным количеством букв с последним.

Ввод

FOR I = 1 TO S

IF SK(I) /2= SK(I) \2 THEN D = D + 1: M=I

IF D = 2 THEN EXIT FOR

NEXT I

SWAP SL$(M), SL$(S)

FOR I = 1 TO S

PRINT SL$(D); “;

NEXT I

Задана строка символов, поменять местами предпоследнее слово с нечетным количеством букв с первым.

Ввод

FOR I = S TO 1 STEP -1

IF SK(I) /2 <> SK(I) \2 THEN D = D + 1: M=I

IF D = 2 THEN EXIT FOR

NEXT I

SWAP SL$(M), SL$(1)

FOR I = 1 TO S

PRINT SL$(D); “;

NEXT I

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

Ввод

max = -1000

B$ = QqWwRrTtPpSsDdFfGgHhJjKkLlZzXxCcVvBbNnMm

FOR I =1 TO LEN(B$)

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

FOR J =1 TO S

IF SK(J)> max AND X$ = MID$(SL$(J),1,1) THEN max = SK(J) : D = J

NEXT J, I

PRINT SL$(D)


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

Ввод

B$ = QqWwRrTtPpSsDdFfGgHhJjKkLlZzXxCcVvBbNnMm

FOR I =1 TO LEN(B$)

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

FOR J =1 TO S

IF X$ = MID$(SL$(J),1,1) AND X$ = MID$(SL$(J),2,1) THEN PRINT SL$(J);“;

NEXT J, I

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

Задана строка символов, напечатать все слова, заканчивающиеся на 2 согласные буквы, если таких нет сообщить об этом.

Ввод

F = 0

B$ = QqWwRrTtPpSsDdFfGgHhJjKkLlZzXxCcVvBbNnMm

FOR I =1 TO LEN(B$)

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

FOR J =1 TO S

IF X$ = MID$(SL$(J),S-1,1) AND X$ = MID$(SL$(J),S,1) THEN F=1: PRINT SL$(J);“;

NEXT J, I

IF F = 0 THEN PRINT Слов нет

Задана строка символов, выбрать слова, у которых две последние буквы гласные, если таких нет, то записать все слова в обратном порядке.

IF F = 0 THEN

FOR I = S TO 1 STEP -1

PRINT SL$(I);“;

NEXT I

END IF

Самые низкие цены на курсы профессиональной переподготовки и повышения квалификации!

Предлагаем учителям воспользоваться 50% скидкой при обучении по программам профессиональной переподготовки.

После окончания обучения выдаётся диплом о профессиональной переподготовке установленного образца (признаётся при прохождении аттестации по всей России).

Обучение проходит заочно прямо на сайте проекта "Инфоурок".

Начало обучения ближайших групп: 18 января и 25 января. Оплата возможна в беспроцентную рассрочку (20% в начале обучения и 80% в конце обучения)!

Подайте заявку на интересующий Вас курс сейчас: https://infourok.ru/kursy

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

УЖЕ ЧЕРЕЗ 10 МИНУТ ВЫ МОЖЕТЕ ПОЛУЧИТЬ ДИПЛОМ

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

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

Список всех тестов можно посмотреть тут - https://infourok.ru/tests

Похожие материалы

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