Yoko

Люди нужно сделать прогу на QBasic смысл:
Дана строка из слов, разделённых пробелами.Распечатать те слова, в которых отсутствуют буквы k,l,m,o

Плиз хелп очень надо

з.ы. Если кто играет на ДРВ за работу могу отблагодарить

вспоминая детство...

DECLARE SUB printgood (sss$)
CLS
INPUT "Enter your sentence [", s$
s$ = s$ + " "
start = 1
l = LEN(s$)

FOR i = 1 TO l
IF MID$(s$, i, 1) = " " THEN
 printgood MID$(s$, start, i - start)
 start = i + 1
END IF
PRINT "--- (c) Yoko --- FIN"
NEXT

SUB printgood (sss$)
l = LEN(sss$)
FOR k = 1 TO l
 c$ = MID$(sss$, k, 1)
 IF c$ = "k" OR c$ = "l" OR c$ = "m" OR c$ = "o" THEN EXIT SUB
NEXT
PRINT sss$
END SUB

Ты лучший сенк огромное спасибо

вот млин неуспел...
надо было мне раньше появляться в форуме

Гм... ага, надо бы, а то вот Yoko отвлекается от важных дел

_________________
YokoInjection CodeSweeper
Function not found?
Possession of mathematics at the level of art - a gift that is only available for election.
Sorry for my clumsy English.
Skype: d119060