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

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

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

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

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

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

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

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

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

библиотека
материалов

Занятие 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% уже осенью 2017 года.


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

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

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

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

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