Задачи по теме: «Символьная тип данных»
1. Написать программу, определяющую размер строки в битах.
I – размер строки в битах А$ – строка символов.
CLS
INPUT “введите строку”; A$
I=LEN(A$)*8
PRINT “размер строки в битах”, I
END
2. Дана строка символов, состоящая только из цифр. Определить сумму всех цифр этой строки.
А$ – строка символов I – номер символа в строке символов
K – длина строки S – сумма цифр
N – преобразование вырезанного символа в цифру
CLS
INPUT “введите строку”; A$
LET K = LEN (A$)
FOR I = 1 TO K
N = VAL (MID$ (A$,I,1) )
S = S + N
PRINT “S=” , S
NEXT i
END
3. Написать программу, которая выдает по названию дня недели его порядковый номер.
I – номер дня недели А$(7) – массив слов (дней недели)
В$ - введенный день недели
CLS
DIM A$(7)
READ A$(1), A$(2), A$(3), A$(4), A$(5), A$(6), A$(7)
DATA понедельник, вторник, среда, четверг, пятница, суббота, воскресенье
INPUT “введите день недели”; В$
FOR i=1 TO 7
IF B$=A$(i) THEN PRINT “порядковый номер”, i
END
4. Написать программу, определяющую размер строки в байтах.
I – размер строки в битах
А$ – строка символов.
CLS
INPUT “введите строку”; A$
I=LEN(A$)
PRINT “размер строки в битах”, I
END
5. Дана строка символов, состоящая только из цифр. Определить сколько раз среди них встречается цифра 5.
А$ – строка символов I – номер символа в строке символов
L – длина строки K – количество цифр 5
N – преобразование вырезанного символа в цифру
CLS
INPUT “введите строку”; A$
LET K = LEN (A$)
FOR I = 1 TO K
IF MID$ (A$,I,1) = “5” THEN K = K + 1
NEXT i
PRINT “K=” , K
END
6. Написать программу, которая выдает по названию месяца название соответствующего времени года.
i – номер месяца А$(12) – массив слов (месяцев)
В$ - введенный месяц
CLS
DIM A$(12)
FOR i = 1 TO 12
READ A$(i)
NEXT i
DATA январь, февраль, март, апрель, май, июнь, июль, август, сентябрь, октябрь, ноябрь, декабрь
INPUT “введите месяц”; В$
FOR i=1 TO 12
IF B$=A$(i) AND i=12 OR i=1 OR i=2 THEN PRINT “зима”
IF B$=A$(i) AND i=3 OR i=4 OR i=5 THEN PRINT “весна”
IF B$=A$(i) AND i=6 OR i=7 OR i=8 THEN PRINT “лето”
IF B$=A$(i) AND i=9 OR i=10 OR i=11 THEN PRINT “осень”
NEXT i
END
7. Определить сумму кодов символов, составляющих заданное слово.
А$ – строка символов.
CLS
INPUT “введите строку”; A$
FOR i = 1 TO LEN(A$)
M = ASC(MID$(A$,i,1))
S = S + M
NEXT i
END
8. Написать программу, подсчитывающую количество слогов по введенному с клавиатуры слову.
А$ – слово I – номер символа в слове
N – длина слова K – количество слогов
CLS
INPUT “введите слово”; A$
N = LEN (A$)
FOR I = 1 TO N
X$= MID$ (A$,i,1)
IF X$ = “a” OR X$ = “я” OR X$ = “о” OR X$ = “ё” OR X$ = “у” OR X$ = “ю” OR X$ = “ы” OR X$ = “и” OR X$ = “э” OR X$ = “е” THEN K = K + 1
NEXT i
PRINT “K=” , K
END
9. Оценки школьника за четверть заданы в виде строки символов. Подсчитать количество троек, четверок и пятерок.
А$ – строка символов I – номер символа в слове
N – длина слова K3 – количество троек
K4 – количество четверок K5 – количество пятерок
CLS
INPUT “введите строку символов”; A$
N = LEN (A$)
FOR I = 1 TO N
X$= MID$ (A$,i,1)
IF X$ = “3” THEN K3 = K3 + 1
IF X$ = “4” THEN K4 = K4 + 1
IF X$ = “5” THEN K5 = K5 + 1
NEXT i
PRINT “Троек”;K3,“Четверок”;K4,“Пятерок”;K5
END
10. Написать программу, подсчитывающую количество знаков препинания в заданном предложении.
А$ – предложение I – номер символа в предложении
N – длина предложения K – количество знаков препинания
CLS
INPUT “введите предложение”; A$
N = LEN (A$)
FOR I = 1 TO N
X$= MID$ (A$,i,1)
IF X$=“,” OR X$=“.” OR X$=“.” OR X$=“:” OR X$=“;” OR X$=“?” OR X$=“!” THEN K = K + 1
NEXT i
PRINT “Знаков препинания”;K
END
11. Написать программу, определяющую размер строки в битах самого короткого из N вводимых с клавиатуры слов.
CLS
INPUT “N=“; N
DIM A$(N)
FOR i=1 TO N
PRINT “введите”; i; “-е слово”
INPUT A$(i)
NEXT i
MIN=32567
L$ = “”
FOR i = 1 TO N
IF LEN (A$)<=MIN THEN L$=A$ : MIN=LEN(L)
NEXT i
PRINT “Размер самого короткого слова в битах”; MIN*8
END
12. Оценки школьника за четверть заданы в виде строки символов. Подсчитать средний балл школьника.
А$ – строка символов I – номер символа в слове
N – длина слова K – средний балл
K3 – количество троек K4 – количество четверок
K5 – количество пятерок
CLS
INPUT “введите строку символов”; A$
N = LEN (A$)
FOR I = 1 TO N
X$= MID$ (A$,i,1)
IF X$ = “3” THEN K3 = K3 + 1
IF X$ = “4” THEN K4 = K4 + 1
IF X$ = “5” THEN K5 = K5 + 1
NEXT i
K=(K3*3+K4*4+K5*5)/(K3+K4+K5)
PRINT “Средний балл”;K
END
Подготовка к самостоятельной работе по теме «Символьная информация»
1. Дана строка символов, состоящая только из цифр. Определить сумму всех цифр этой строки.
2. Дана строка символов, состоящая только из цифр. Определить сколько раз среди них встречается цифра 5.
3. Определить сумму кодов символов, составляющих заданное слово.
4. Оценки школьника за четверть заданы в виде строки символов. Подсчитать количество троек, четверок и пятерок.
5. Написать программу, подсчитывающую количество знаков препинания в заданном предложении.
6. Оценки школьника за четверть заданы в виде строки символов. Подсчитать средний балл школьника.
7. Составить программу подсчета в заданном тексте количества вхождений заданного сочетания символов
