В исходной строке а$ определить все слова, отличные от последнего слова. Вывести эти слова в столбик

@QBasic nado · Регистрация: 26.05.2013

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

Помогите решить: В исходной строке а$ определить все слова, отличные от последнего слова. Вывести эти слова в столбик. Отблагодарю.

@xod · 07.07.2014, 13:45

QBasic/QuickBASIC

DEFSTR F, S-T
DEFINT I-L
CLS
INPUT "TEXT"; t
 
t = " " + t
k = LEN(t)
DIM tm(1 TO k)
FOR i = k TO 1 STEP -1
   s1 = MID$(t, i, 1)
   IF s1 = " " THEN
   j = i
   GOTO 100
   END IF
NEXT i
 
100
s2 = MID$(t, j + 1, k - j)
                             
j = 1
l1 = 1
FOR i = 1 TO k
   l2 = INSTR(l1 + 1, t, " ")
   IF l2 <> 0 THEN
      s3 = MID$(t, l1 + 1, l2 - l1 - 1)
      IF s2 <> s3 THEN
         tm(j) = s3
         j = j + 1
      END IF
      l1 = l2
      i = l2
   END IF
NEXT i
                     
FOR i = 1 TO k
   IF tm(i) <> "" THEN PRINT tm(i)
NEXT i
END

@QBasic nado 0 / 0 / 0 Регистрация: 26.05.2013 Сообщений: 7
		1
	В исходной строке а$ определить все слова, отличные от последнего слова. Вывести эти слова в столбик 26.05.2013, 21:20. Показов 2054. Ответов 1 Метки нет (Все метки) Помогите решить: В исходной строке а$ определить все слова, отличные от последнего слова. Вывести эти слова в столбик. Отблагодарю. 0

	07.07.2014, 13:45

Опции темы