Инфоурок Информатика КонспектыИзучаем язык BASIC. Занятие 26. Вставка и удаление символов из предложения.

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

Скачать материал

Занятие 26

Вставка и удаление символов из  предложения.

Распечатать все слова предложения на букву К нечетной длины, если таких нет выдать сообщение.

 

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

K = 0

FOR I = 1 TO S

IF MID$(SL(I),1,1 = “K” AND SK(I)/2<>SK(I)\2 THEN PRINT SL$(I);“; : K = 1

NEXT I

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

 

Отредактировать заданное предложение, удалив из него все слова, длиной больше 3.

Ввод

FOR I = 1 TO S

IF SK(I) <= 3 THEN PRINT SL$(I); “;

NEXT I

 

Отредактировать заданное предложение, удалив из него все слова, четной длины и длиной меньше 10.

Ввод

FOR I = 1 TO S

IF SK(I)/2 = SK(I)\2 AND SK(I) <= 10 THEN PRINT SL$(I); “;

NEXT I

 

Отредактировать заданное предложение, удалив из него все слова, с четным номером  и переворачивать слова с нечетным номером.

Ввод

FOR I = 1 TO S  STEP 2

FOR J = SK(I)  TO 1  STEP -1

PRINT MID$(SL$(I),J,1);

NEXT J

PRINT “;

NEXT I

 

Распечатать все слова предложения нечетной длины, в которых есть буква t, если таких нет выдать сообщение.

FOR I = 1 TO S

IF SK(I)/2<>SK(I)\2 THEN

W = 0

FOR J=1 SK(I)

IF MID$(SL$(I),J,1)=”t” THEN W = 1

NEXT J

IF W = 1 THEN PRINT SL$(I);

ENDIF

PRINT “;

NEXT I

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

 

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

1.     Распечатать все слова четной длины, в которых нет буквы О, если таких слов нет выдать сообщение.

2.     Вывести на экран самое длинное слово, предварительно перенеся первый символ в конец этого слова.

Ввод

max = -1000

FOR I = 1 TO S

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

NEXT I

PRINT MID$(SL(d),2); MID$(SL$(d),1,1)

3.     напечатать все слова нечетной длины отличных от второго слова, если таких нет выдать сообщение.

FOR I = 1 TO S

IF SK(I)/2<>SK(I)\2 THEN

W = 0

FOR J=1 SK(I)

IF SK(I) = SK(2) AND MID$(SL$(I),J,1)=MID$(SL$(2),J,1) THEN W = 1

NEXT J

IF W = 1 THEN PRINT SL$(I);

ENDIF

PRINT “;

NEXT I

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

 

Просмотрено: 0%
Просмотрено: 0%
Скачать материал
Скачать материал "Изучаем язык BASIC. Занятие 26. Вставка и удаление символов из предложения."

Методические разработки к Вашему уроку:

Получите новую специальность за 2 месяца

Специалист по студенческому спорту

Получите профессию

Копирайтер

за 6 месяцев

Пройти курс

Рабочие листы
к вашим урокам

Скачать

Скачать материал

Найдите материал к любому уроку, указав свой предмет (категорию), класс, учебник и тему:

6 626 290 материалов в базе

Скачать материал

Другие материалы

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

Оставьте свой комментарий

Авторизуйтесь, чтобы задавать вопросы.

  • Скачать материал
    • 23.09.2015 705
    • DOCX 34.5 кбайт
    • Оцените материал:
  • Настоящий материал опубликован пользователем Гегелашвили Татьяна Павловна. Инфоурок является информационным посредником и предоставляет пользователям возможность размещать на сайте методические материалы. Всю ответственность за опубликованные материалы, содержащиеся в них сведения, а также за соблюдение авторских прав несут пользователи, загрузившие материал на сайт

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

    Удалить материал
  • Автор материала

    Гегелашвили Татьяна Павловна
    Гегелашвили Татьяна Павловна
    • На сайте: 8 лет и 6 месяцев
    • Подписчики: 0
    • Всего просмотров: 133863
    • Всего материалов: 41

Ваша скидка на курсы

40%
Скидка для нового слушателя. Войдите на сайт, чтобы применить скидку к любому курсу
Курсы со скидкой

Курс профессиональной переподготовки

Копирайтер

Копирайтер

500/1000 ч.

Подать заявку О курсе

Курс профессиональной переподготовки

Педагогическая деятельность по проектированию и реализации образовательного процесса в общеобразовательных организациях (предмет "Математика и информатика")

Учитель математики и информатики

300 ч. — 1200 ч.

от 7900 руб. от 3950 руб.
Подать заявку О курсе
  • Сейчас обучается 35 человек из 16 регионов

Курс повышения квалификации

Применение компьютерных моделей при обучении математике и информатике в рамках ФГОС ООО

72 ч. — 180 ч.

от 2200 руб. от 1100 руб.
Подать заявку О курсе
  • Сейчас обучается 47 человек из 24 регионов

Курс повышения квалификации

Компьютерная грамотность для пенсионеров

36 ч. — 180 ч.

от 1580 руб. от 940 руб.
Подать заявку О курсе

Мини-курс

Сохранение и продвижение традиционных российских ценностей и культуры

4 ч.

780 руб. 390 руб.
Подать заявку О курсе

Мини-курс

Техническое обслуживание и диагностика сельскохозяйственной техники

5 ч.

780 руб. 390 руб.
Подать заявку О курсе

Мини-курс

Интегрированное управление бизнес-процессами

3 ч.

780 руб. 390 руб.
Подать заявку О курсе