Слова буквой э 1 класс

Меню

1.Теория

2.Задачи 1 уровня(без разбивки на слова)

3.Контрольная № 1

4.Задачи 2 уровня( разбивка на слова)

5.Контрольная № 2

6.Дополнительные задачи

А)задача на числа

Б)задача на шифровку

7.Конец

Переменные,значениями которых являются строки символов,- символьные

или строковые переменные

Символьные переменные

Основные функции символьных переменных языка Бейсик

1.Asc(x$) переводит двоичный код символа в десятичное число 2.Len(x$) находит длину символьной переменной, включая пробелы. 3.Mid$(x$,y,z) выдает последовательность Z символов из строки X$, с позиции Y 4.Str$(x) преобразует значение X из числовой формы в символьную. 5.Chr$(x) преобразует код в символ 6.Left$(a$,n) выделяет N символов слева из строки а$ 7.Right$(a$,n) выделяет N символов справа из строки а$

Меню

Задача № 1 подсчитать сколько раз встречается буква а среди символов

данной строки

Rem подсчет количества букв cls input”введите строку”;a$ l=len(a$) for i= 1 to l b$=mid$(a$,i,1) if b$=“a” then k=k+1 next i print”букв а”;k end

k

Программа

Меню

L=len(a$)

I=1 to l

K=2

B$=mid$(a$,i,1)

B$=«a»

K=k+1

Введите строку;a$

Вырезка по одной букве

Задача № 2 составить программу,которая переворачивает слово задом

наперед

Rem cls c$=“” input”введите строку”;a$ l=len(a$) for i= l to 1 step -1 b$=mid$(a$,i,1) c$=c$+b$ next i print c$ end

I=6

I=5

I=4

C$

Конец

Программа

Меню

Собака

L=6

L=len(a$)

I=2

I=3

I=1

B$=«a»

B$=«а”

B$=«o»

B$=«к»

B$=«б”

B$=«c»

C$=«a»

K=2

С$=“ака”

C$=«aк»

B$=mid$(a$,i,1)

C$=«акабо”

C$=«акаб”

C$=C$+B$

Вырезка по одной букве от конца к началу

Введите строку;a$

C$=«»

I=L to 1 step -1

C$=«абакос”

Задача № 3 заменить букву а на букву б во введенной с экрана строке

Макака

М

А

К

А

К

А

М

Б

К

Б

К

Б

H$

H$

Rem замена одной буквы на другую cls H$=“” input”введите строку”;a$ l=len(a$) for i= 1 to L b$=mid$(a$,i,1) if b$=“a” then h$=h$+”б” else H$=H$+B$ end if next i print H$ end

Программа

Меню

I=1 to l

K=2

B$=mid$(a$,i,1)

B$=«a»

Введите строку;a$

L=len(a$) :H$=«»

H$=h$+”б”

H$=H$+B$

Вырезка по одной букве

Задача № 4 заменить сочетание абра на сочетание мен во введенной с

экрана строке

Абракадабра

А$

Абра

Мен

К

А

Д

Мен

H$

Адаб

Дабр

Абра

H$

Када

Rem замена сочетаний букв на другую cls H$=“” input”введите строку”;a$ l=len(a$) for i= 1 to L B$=mid$(A$,i,4) с$= mid$(A$,i,1) if b$=“aбра” then H$=H$+”мен” i=i+3 else H$=H$+С$ end if next i print H$ end

Программа

Меню

I=1 to l

С$=mid$(a$,i,1)

K=2

B$=mid$(a$,i,4)

B$=«aбра»

I=I+3

Введите строку;a$

L=len(a$) :H$=«»

H$=h$+”мен”

H$=h$+”мен”

H$=h$+с$

Вырезка по четыре буквы

Задача № 5 заменить сочетание мен на сочетание абра во введенной с

экрана строке

Сменамен

А$

Сме

С

Абра

А

Абра

H$

Мен

Аме

Мен

H$

Rem замена сочетаний букв на другую cls H$=“” input”введите строку”;a$ l=len(a$) for i= 1 to L B$=mid$(A$,i,3) с$= mid$(A$,i,1) if b$=“мен” then H$=H$+”абра” i=i+2 else H$=H$+С$ end if next i print H$ end

Программа

Меню

I=1 to l

С$=mid$(a$,i,1)

K=2

B$=mid$(a$,i,3)

B$=«мен»

H$=h$+”абра”

I=I+2

Введите строку;a$

L=len(a$) :H$=«»

H$=h$+с$

Вырезка по три буквы

Контрольная работа № 1

Меню

Задача № 1 Словом считается набор символов, разделенных одним или

несколькими пробелами. Распечатать все слова во введенной строке.

А$

_Я_ _хочу_спать_

i

_

_

Я

Я

_

С

_

У

У

_

_

8

9

13

14

6

7

10

2

О

Т

Ч

Ь

Х

С

Ь

Ч

П

5

10

8

14

2

Хочу

Спать

H$

H$

C$

B$

_

_

3

4

Я

Конец

kon

nach

2

Rem печать слов input”введите cтроку”;a$ a$=“ “+a$+” “ l=len(a$) for i= 1 to l b$=mid$(a$,i,1) c$=mid$(a$,i+1,1) if b$=“ “ and c$<>” “ then nach=i+1 if b$<>“ “ and c$=” “ then kon=i h$=mid$(a$, nach, kon-nach+1):print H$ end if next i end

1

Kon=I

Программа

Меню

A$=“_ “+a$+”_“

I=1 to l

С$=mid$(a$,i,1)

B$=mid$(a$,I+1,1)

K=2

Nach=I+1

H$=mid$(a$,nach,kon-nach+1)

Введите строку;a$

L=len(a$)

C$=« » and B$<>« »

B$=« » and C$<>« »

Задача № 2 Словом считается набор символов, разделенных одним или

несколькими пробелами. Определить наибольшую длину слова в строке.

max

Max=L1

Длина

L1=len(H$)

Длина

Rem самое длинное слово input”введите cтроку”;a$ a$=“ “+a$+” “ l=len(a$):max=0 for i= 1 to l b$=mid$(a$,i,1) c$=mid$(a$,i+1,1) if b$=“ “ and c$<>” “ then nach=i+1 if b$<>“ “ and c$=” “ then kon=i h$=mid$(a$, nach, kon-nach+1) gosub длина end if next i print max end длина: l1=len(h$) if l1>max then max=l1 return

L1>max

Kon=I

Программа

Меню

A$=“_ “+a$+”_“

I=1 to l

С$=mid$(a$,i,1)

B$=mid$(a$,I+1,1)

K=2

Nach=I+1

H$=mid$(a$,nach,kon-nach+1)

Введите строку;a$

L=len(a$) :мах=0

C$=« » and B$<>« »

B$=« » and C$<>« »

Задача № 3 Словом считается набор символов, разделенных одним или

несколькими пробелами. Определить количество слов, оканчивающихся на ко.

k

K=k+1

Right$(H$,2)=“ko”

Rem слово на ко input”введите cтроку”;a$ a$=“ “+a$+” “ l=len(a$): k=0 for i= 1 to l b$=mid$(a$,i,1) c$=mid$(a$,i+1,1) if b$=“ “ and c$<>” “ then nach=i+1 if b$<>“ “ and c$=” “ then kon=i h$=mid$(a$, nach, kon-nach+1) gosub количество end if next i print k end количество: if right(h$,2)=“ok” then k=k+1 return

Количество

Kon=I

Программа

Количество

Меню

A$=“_ “+a$+”_“

I=1 to l

С$=mid$(a$,i,1)

B$=mid$(a$,I+1,1)

K=2

Nach=I+1

H$=mid$(a$,nach,kon-nach+1)

Введите строку;a$

L=len(a$) :мах=0

C$=« » and B$<>« »

B$=« » and C$<>« »

Задача № 4 Словом считается набор символов, разделенных одним или

несколькими пробелами. Распечатать самое короткое слово,начинающееся на к.если таких слов нет,дать соответствующее сообщение.

schet

F=1

Запуск

Rem слово на к input”введите cтроку”;a$ a$=“ “+a$+” “ l=len(a$):max=0 for i= 1 to l b$=mid$(a$,i,1) c$=mid$(a$,i+1,1) if b$=“ “ and c$<>” “ then nach=i+1 if b$<>“ “ and c$=” “ then kon=i h$=mid$(a$, nach, kon-nach+1) gosub schet end if next i if f=1 then print M$ else print “таких слов нет” end schet: if left$(h$,1)=“k” and L1> max then max=l1:m$=h$:f=1 return

L1=len(H$)

Нет

Max=L1

Kon=I

Программа

Меню

A$=“_ “+a$+”_“

I=1 to l

С$=mid$(a$,i,1)

F=1

B$=mid$(a$,I+1,1)

K=2

end

Nach=I+1

H$=mid$(a$,nach,kon-nach+1)

schet

Введите строку;a$

L=len(a$) :max=-0

Left$(H$,1)=«k» and L1>max

F=1

M$

C$=« » and B$<>« »

M$=H$

B$=« » and C$<>« »

Задача № 5 Словом считается набор символов, разделенных одним или

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

Переворот

Вырезка

Выделение слов

Запуск

Rem повторяющиеся символы input”введите cтроку”;a$ a$=“ “+a$+” “ l=len(a$) for i= 1 to l b$=mid$(a$,i,1) c$=mid$(a$,i+1,1) if b$=“ “ and c$<>” “ then nach=i+1 if b$<>“ “ and c$=” “ then kon=i h$=mid$(a$, nach, kon-nach+1) gosub polindrom end if next i if f=1 then print A$ else print “таких слов нет” end polindrom: l1=len(h$):m$=«» for k= L1 to 1 step -1 r$=mid$(h$,k,1) M$=R$+M$ next k if M$=H$ then f=1:a$=left$(a$,nach-1)+right$(a$,l-kon):l=l-l1 return

Нет

Kon=I

I=I-L1

Программа

Меню

polindrom

A$=“_ “+a$+”_“

I=1 to l

С$=mid$(a$,i,1)

F=1

B$=mid$(a$,I+1,1)

K=2

R$=mid$(H$,k,1)

M$=M$+R$

end

Nach=I+1

F=1

A$=left(A$,nach-1)+right$(A$,L-kon)

H$=mid$(a$,nach,kon-nach+1)

polindrom

Введите строку;a$

L=len(a$) :=-0

L1=len(H$):m$=«»

K=L1 to 1 step-1

F=1

A$

C$=« » and B$<>« »

H$=M$

B$=« » and C$<>« »

Задача № 6 Словом считается набор символов, разделенных одним или

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

Выделение слов

Повтор

Сравнение каждой буквы с последующими

Запуск

Повтор

Rem вырезка симметричных слов input”введите cтроку”;a$ a$=“ “+a$+” “ l=len(a$) for i= 1 to l b$=mid$(a$,i,1) c$=mid$(a$,i+1,1) if b$=“ “ and c$<>” “ then nach=i+1 if b$<>“ “ and c$=” “ then kon=i h$=mid$(a$, nach, kon-nach+1) gosub повтор end if next i if f=1 then print A$ else print “таких слов нет” end повтор: l1=len(h$):d=0 for k= 1 to L1 m$=mid$(h$,k,1) for t=k to L1 if m$=mid$(h$,t,1) then d=1 next t next k if d=0 then F=1: print H$ return

Нет

T=k to L1

Kon=I

D=0

Программа

Меню

A$=“_ “+a$+”_“

I=1 to l

С$=mid$(a$,i,1)

F=1

B$=mid$(a$,I+1,1)

K=2

R$=mid$(H$,k,1)

end

R$=mid$(H$,t,1)

D=1

Nach=I+1

H$=mid$(a$,nach,kon-nach+1)

D=0

H$

H$

Введите строку;a$

L=len(a$) :=-0

L1=len(H$):d=0

K=1 to L1

F=1

C$=« » and B$<>« »

R$=mid$(H$,t,1)

B$=« » and C$<>« »

Задача № 7 Словом считается набор символов, разделенных одним или

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

nachkon

nachkon

Rem четные слова input”введите cтроку”;a$ a$=“ “+a$+” “ l=len(a$) for i= 1 to l b$=mid$(a$,i,1) c$=mid$(a$,i+1,1) if b$=“ “ and c$<>” “ then nach=i+1 if b$<>“ “ and c$=” “ then kon=i h$=mid$(a$, nach, kon-nach+1) gosub nachkon end if next i if f=0 then print “таких слов нет” end nachkon: l1=len(h$) m$=left$(h$,1) n$=right$(h$,1) if m$=n$ and L1 mod 2=0 then f=1:print H$ return

Нет

Kon=I

Программа

Меню

A$=“_ “+a$+”_“

I=1 to l

С$=mid$(a$,i,1)

N$=right$(H$,1)

F=1

B$=mid$(a$,I+1,1)

K=2

end

F=1

Nach=I+1

H$

H$=mid$(a$,nach,kon-nach+1)

Введите строку;a$

L=len(a$) :=-0

L1=len(H$):d=0

M$==left$(H$,1)

F=1

L1 mod 2=0 And m$=n$

C$=« » and B$<>« »

B$=« » and C$<>« »

Контрольная работа № 2

Меню

Задача № 1 с клавиатуры вводится целое число

Вычислить сумму цифр его составляющих.

s

Х=abs(x) :a$=str$(x): l=len(a$)

Rem сумма цифр cls s=0 input”введите число”;x x=abs(x):as=str$(x) l=len(a$) for i= 1 to L k=val(mid$,a$,i,1) s=s+k next i print s end

S=s+k

Программа

Меню

I=1 to L

K=val(mid$,a$,i,1)

Введите число х

Преобразование каждого символа в число

Задача № 2 с клавиатуры вводится целое число

Вычислить сумму цифр его составляющих.

2 способ

Rem сумма цифр cls s=0 input”введите число”;x x=abs(x): n=0:s=0:a=x while a>=1 a=a/10 n=n+1 wend for i= 1 to n-1 R1=X mod 10 S=S+R1 X=(X-R1)/10 next i S=S+X print S end

S=s+x

Программа

Меню

a>=1

a=a/10

n=n+1

X=(X-r1)/10

S

Введите число х

X= ABS(x): n=0: S=0: a=X

I=1 to n-1

R1=X mod 10: S=S+R1

Подсчет количества цифр

Задача № 3 зашифровать, введенный с экрана текст

Введите текст A$ Введите текст, с помощью которого происходит шифровка B$

Rem шифровка cls B$=“умею ли я с помощью электронно- вычислительной машины находить значения функций, а также обЪемы многогранников.” input”введите текст для шифровки”;A$ L=len(A$):L1=len(B$) for i= 1 to L R$=Mid$(A$(i,1) Gosub chifr next i end chifr: for k=1 to L1 T$=mid$(B$,k,1) if T$=R$ then print k; :goto 1 next k 1 return

shifr

shifr

T$=R$

Программа

Меню

a=a/10

K

L=len(A$):L1=len(B$)

I=1 to L

K=1 to L1

R$=mid$(A$,I,1)

T$$=mid$(B$,K,1)

Печатается номер места символа из текста для шифровки в фразе, с помощью которой происходит шифрование.

Вырезка из текста по одной букве

Задача № 3 зашифровать, введенный с экрана текст

Rem расшифровка cls B$=“умею ли я с помощью электронно- вычислительной машины находить значения функций, а также обЪемы многогранников.” A$=“” 1 input”введите код”; K if K=0 then print A$ : end R$=mid$(A$,k,1) A$=A$+R$ goto 1

Введите текст, с помощью которого происходит расшифровка B$

K=0

Программа

Меню

Введите код К

A$

R$=mid$(B$,k,1)

A$=A$+R$

Ввод 0 означает конец шифровки