Последовательность букв из n элементов .подсчитать сколько букв «а» в тексте и сколько букв,с которой начинается текст- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
CLS : F = 1: LOCATE , , 1
 PRINT "Vvedite stroku: ";
  DO: DO: Kb$ = INKEY$: LOOP WHILE Kb$ = ""
    IF Kb$ = " " THEN F = 1
    IF F = 1 AND Kb$ = "a" THEN a1 = a1 + 1: F = 0
    IF Kb$ = "a" THEN a2 = a2 + 1
    PRINT Kb$;
  LOOP UNTIL Kb$ = CHR$(13)
PRINT "Bukv 'a' v nachale slova ="; a1
PRINT "Bukv 'a' v predlogenii   ="; a2
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
input "vvedite kolichestvo elementov massiva ",n
dim a$(n)
for i=1 to n
input"vvedite element massiva ",a$(i)
next
'буква, с которой начинается текст'
b$=left$(a$(1),1)
'ищем буквы а и А и считаем их с помощью счётчика k'
'параллельно ищем первую букву и считаем её с помощью счётчика m'
for i=1 to n
for j=1 to len(a$(i))
if mid$(a$(i),j,1)="a" or mid$(a$(i),j,1)="A" then k=k+1
if mid$(a$(i),j,1)=b$ then m=m+1
next
next
print"bukv a v massive=",k
print"pervaya bukva=";b$;" ona vstretilas ";m" raz"
1
2
3
4
5
6
7
8
9
10
11
input "vvedite text ",a$
'буква, с которой начинается текст'
b$=left$(a$,1)
'ищем буквы а и А и считаем их с помощью счётчика k'
'параллельно ищем первую букву и считаем её с помощью счётчика m'
for i=1 to len(a$)
if mid$(a$,i,1)="a" or mid$(a$,i,1)="A" then k=k+1
if mid$(a$,i,1)=b$ then m=m+1
next
print"bukv a v texte=",k
print"pervaya bukva=";b$;" ona vstretilas ";m" raz"

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment