4 задания по qBasic - Помощь студентам - Страница 2

Sazary · 09.05.2009, 19:18

Код:

CLS
INPUT "Text: "; a$
i = 1
flag = 0
dlina = LEN(a$)
b$ = ""

FOR i = 1 TO dlina
 IF MID$(a$, i, 1) = "(" THEN
  flag = 1
 END IF

 IF flag = 0 THEN
  b$ = b$ + MID$(a$, i, 1)
  END IF

 IF MID$(a$, i, 1) = ")" THEN
  flag = 0
  END IF

NEXT i

PRINT "new"
PRINT b$

matsode · 11.05.2009, 22:39

спасибо большое за помощь.

09.05.2009, 19:18	#11
Sazary В тени Старожил Регистрация: 19.12.2008 Сообщений: 5,788	Код: `CLS INPUT "Text: "; a$ i = 1 flag = 0 dlina = LEN(a$) b$ = "" FOR i = 1 TO dlina IF MID$(a$, i, 1) = "(" THEN flag = 1 END IF IF flag = 0 THEN b$ = b$ + MID$(a$, i, 1) END IF IF MID$(a$, i, 1) = ")" THEN flag = 0 END IF NEXT i PRINT "new" PRINT b$` Вполне очевидно, чтобы что-то понять, необходимо книги читать. Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем. ___________________________________ ___________________________________ _______ [=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль]

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
2 задания на множества	Lirik18	Паскаль, Turbo Pascal, PascalABC.NET	4	01.05.2009 11:45
перехват задания на печать	Bogood	Win Api	4	20.03.2009 08:47
Задания по языку Pascal	Corpse	Паскаль, Turbo Pascal, PascalABC.NET	5	04.05.2008 19:43
необходимо решить задания	Жека2110	Фриланс	2	10.02.2008 20:18

11.05.2009, 22:39	#12
matsode Регистрация: 07.05.2009 Сообщений: 7	спасибо большое за помощь.