Yoko
http://forum.yoko.com.ua/

Программерам
http://forum.yoko.com.ua/viewtopic.php?f=6&t=4045		 Page 1 of 1
Author:  Fenrir [ 2005-05-21 16:29:35 ]
Post subject:  Программерам
Люди нужно сделать прогу на QBasic смысл:
Дана строка из слов, разделённых пробелами.Распечатать те слова, в которых отсутствуют буквы k,l,m,o

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

з.ы. Если кто играет на ДРВ за работу могу отблагодарить :)
Author:  Yoko [ 2005-05-22 12:19:47 ]
Post subject: 
вспоминая детство...

Code:
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
Author:  Fenrir [ 2005-05-22 18:09:26 ]
Post subject: 
Ты лучший :D сенк огромное спасибо :D
Author:  Goggy [ 2005-05-27 03:28:09 ]
Post subject: 
вот млин неуспел... :(
надо было мне раньше появляться в форуме :)
Author:  Destruction [ 2005-05-28 21:48:52 ]
Post subject: 
Гм... ага, надо бы, а то вот Yoko отвлекается от важных дел :!:
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/