close

Вход

Забыли?

вход по аккаунту

?

Книга

код для вставкиСкачать
№1. Дана символьная
фраза (Международный
женский день - 8 Марта).
Подсчитать количество
пробелов в этой фразе.
a$= «Международный женский
день - 8 Марта»
for i=1 to len(a$)
if mid$(a$,i,1)= « » then k=k+1
next i
print «В исходной фразе»;к;
«пробелов»
end
№2. Дана произвольная
символьная фраза
(вводится с экрана).
Подсчитать количество
пробелов в этой фразе.
input «Введите фразу »,a$
for i=1 to len(a$)
if mid$(a$,i,1)= « » then k=k+1
next i
print «В исходной фразе»;к;
«пробелов»
end
№3. Дана произвольная
символьная фраза
(вводится с экрана).
Подсчитать количество
повторений буквы «П» в
этой фразе.
input «Введите фразу »,a$
for i=1 to len(a$)
if mid$(a$,i,1)= «П» then k=k+1
next i
print «В исходной фразе»;к;
«повторений буквы П»
end
№4. Подсчитать число
вхождений в текст
(вводится с клавиатуры)
заданного символа,
вводимого с клавиатуры.
input «Введите фразу »,a$
input «Введите какой символ надо
искать »,b$
for i=1 to len(a$)
if mid$(a$,i,1)= b$ then k=k+1
next i
print «В исходной фразе»;к; «раз
встречается символ»;b$
end
№5. Дана произвольная
символьная фраза (вводится
с экрана). Запрашивается с
экрана какое слово надо
найти в этой фразе.
Подсчитать количество
повторений этого слова в
этой фразе.
input «Введите фразу »,a$
input «Количество какое слово
искать »,В$
for i=1 to len(a$)
if mid$(a$, i, len(B$))= В$ then k=k+1
next i
print «В исходной фразе»; к;
«повторений слова »; В$
end
№6. Дана произвольная
символьная фраза (вводится с
экрана). Разбить ее на
отдельные слова и записать их
в столбик.
input «Введите фразу »,a$
m=1
for i=1 to len(a$)
if mid$(a$,i,1)= « » then dl=i-m
print mid$(a$,m,dl)
m=i+1
next i
end
№7. Дана произвольная
символьная фраза (вводится
с экрана). Подсчитать
количество слов в этой
фразе. Между словами
только один пробел.
input «Введите фразу »,a$
for i=1 to len(a$)
if mid$(a$,i,1)= « » then k=k+1
next i
print «В исходной фразе»;к+1;
«слов»
end
№8. Заменить в тексте,
который вводится с экрана,
точку на «!»
input «Введите фразу »,a$
for i=1 to len(a$)
if mid$(a$,i,1)= «.» then
mid$(a$,i,1)= «!»
next i
print а$
end
№9. Из заданной строки
получить новую, заменив все
запятые на точки. Распечатать
полученную строку.
INPUT "Введите строку -"; S$
T$=" "
FOR I=1 TO LEN(S$)
X$=MID$(S$,I,1)
IF X$="," THEN T$=T$+"." ELSE
T$=T$+X$
NEXT I
PRINT T$
END
№10. В заданной строке
подсчитать отдельно
количество символов "a" и
"b".
INPUT "Введите строку -"; S$
A=0 : B=0
FOR I=1 TO LEN(S$)
IF MID$(S$,I,1)="a" THEN A=A+1
IF MID$(S$,I,1)="b" THEN B=B+1
NEXT I
PRINT "Буква (c)a(c) встретилась ";
A; " раз(а)"
PRINT "Буква (c)b(c) встретилась ";
B; " раз(а)"
END
• №11. Составить
программу, которая
печатает заданное слово
задом наперед.
INPUT "Введите слово -"; S$
FOR I=LEN(S$) TO 1 STEP-1
PRINT MID$(S$,I,1);
NEXT I
END
№12. Подсчитать, сколько
раз среди символов заданной
строки встречается буква
"F".
INPUT "Введите строку -"; S$
K=0
FOR I=1 TO LEN(S$)
IF MID$(S$,I,1)="F" THEN K=K+1
NEXT I
PRINT "Буква `F` встретилась "; K; "
раз(а)"
END
• №13. Ввести строку.
Подсчитать сколько раз в
ней встречается сочетание
«ма».
№14. Задано произвольное
число (вводится с экрана).
Подсчитать сумму цифр этого
числа.
INPUT "Введите строку -"; S$
FOR I=1 TO LEN(S$)
X$=MID$(S$,I,2)
IF X$="ма" THEN K=K+1
NEXT I
PRINT “количество сочетаний ‘ма’
равно”,K
END
input «Введите число »,a$
for i=1 to len(a$)
b$=mid$(a$,i,1)
s=s+val(b$)
next i
print «Сумма цифр числа равна:»;s
end
Документ
Категория
Презентации по математике
Просмотров
18
Размер файла
501 Кб
Теги
1/--страниц
Пожаловаться на содержимое документа