Page 1 of 1
Программерам
Posted: 2005-05-21 16:29:35
by Fenrir
Люди нужно сделать прогу на QBasic смысл:
Дана строка из слов, разделённых пробелами.Распечатать те слова, в которых отсутствуют буквы k,l,m,o
Плиз хелп
очень надо
з.ы. Если кто играет на ДРВ за работу могу отблагодарить
Posted: 2005-05-22 12:19:47
by Yoko
вспоминая детство...
Code: Select all
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
Posted: 2005-05-22 18:09:26
by Fenrir
Ты лучший
сенк огромное спасибо
Posted: 2005-05-27 03:28:09
by Goggy
вот млин неуспел...
надо было мне раньше появляться в форуме
Posted: 2005-05-28 21:48:52
by Destruction
Гм... ага, надо бы, а то вот Yoko отвлекается от важных дел
