Какая из букв (первая или последняя) встречаются в слове X чаще

@Reebok163 · Регистрация: 27.01.2014

Author24 — интернет-сервис помощи студентам

Составьте программу, выясняющую какая из букв (первая или последняя) встречаются в слове X чаще.

Комментарий модератора

Сообщение от Правила

4.3. Создавайте темы с осмысленными и понятными названиями - это серьезно повышает шансы, что на ваш вопрос ответят.
4.4. На каждый вопрос создавайте по одной теме - это помогает избежать путаницы в ответах и облегчает поиск.

@~~gehh~~ · 08.04.2014, 14:48

Вот код программы.
Она проверена.

QBasic/QuickBASIC

DEFSTR X
DEFINT I
CLS
i1=0
i2=0
INPUT "введите слово";x
x1= LEFT$(x, 1)
x2=RIGHT$(x, 1)
IF x1=x2 THEN
   PRINT "буквы одинаковые"
   STOP
END IF
FOR i=1 TO LEN(x)
   ix=INSTR(i, x, x1)
   IF ix<>0 THEN
      i1=i1+1
      i=ix+1
   END IF
NEXT i
FOR i=1 TO LEN(x)
   ix=INSTR(i, x, x2)
   IF ix<>0 THEN
      i2=i2+1
      i=ix+1
   END IF
NEXT i
IF i1>i2 THEN
   PRINT "первая чаще"
ELSEIF i1<i2 THEN 
   PRINT "вторая чаще"
ELSE
   PRINT "одинаково"
END IF
END

Удачи вам!

	08.04.2014, 14:48

Опции темы

Какая из букв (первая или последняя) встречаются в слове X чаще

Решение