Подсчитать количество запятых в заданном тексте

@Farrukh · Регистрация: 05.02.2009

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

Подсчитать количество запятых в заданном тексте. Кто нибудь знаеть это в Q-Basic?

@DeMax · 12.11.2010, 08:52

Если текст вводится с клавиатуры, то:

PureBasic

INPUT T$
DO
Q = INSTR(Q + 1, T$, ",")
IF Q > 0 THEN N = N + 1 ELSE EXIT DO
LOOP
PRINT N

Если же текст читается и файла, то:

PureBasic

INPUT "FILE NAME "; F$
OPEN F$ FOR INPUT AS #1
DO
Q = 0
LINE INPUT #1, T$
DO
Q = INSTR(Q + 1, T$, ",")
IF Q > 0 THEN N = N + 1 ELSE EXIT DO
LOOP
LOOP UNTIL EOF(1)
PRINT N

@кот Бегемот · 12.11.2010, 17:45

вся беда в том, что в Qbasic запятую в текст просто так ввести нельзя

@softmob · 12.11.2010, 18:17

Сообщение от кот Бегемот

вся беда в том, что в Qbasic запятую в текст просто так ввести нельзя

PureBasic

CLS
LINE INPUT "vvedite text: "; t$
FOR i = 1 TO LEN(t$)
    IF MID$(t$, i, 1) = "," THEN k = k + 1
NEXT
PRINT k

@Farrukh 0 / 0 / 0 Регистрация: 05.02.2009 Сообщений: 31
		1
	Подсчитать количество запятых в заданном тексте 11.02.2009, 18:27. Показов 1484. Ответов 3 Метки нет (Все метки) Подсчитать количество запятых в заданном тексте. Кто нибудь знаеть это в Q-Basic? 0

@кот Бегемот Платежеспособный зверь 8861 / 4290 / 1629 Регистрация: 28.10.2009 Сообщений: 11,451
	12.11.2010, 17:45	3
	вся беда в том, что в Qbasic запятую в текст просто так ввести нельзя 0

	12.11.2010, 18:17

Опции темы