Текст задом наперед

@LDproger · Регистрация: 04.04.2013

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

1) Вообщем, например, в переменной забито a$="вася пупкин", нам надо, чтобы он вывел так:
н
и
к
п
у
п

я
с
а
в
то есть задом наперед, при этом используя цикл без step.
2) тоже самое только в строчку одно слово a$="пупкин" "никпуп"

@Quiet Snow · 05.04.2013, 04:29

1.

QBasic/QuickBASIC

CLS
LINE INPUT "Vvedite tekst: ", a$
r = LEN(a$)
DO
  PRINT MID$(a$, r, 1)
  r = r - 1
LOOP WHILE r > 0

2. Если правильно понял.

QBasic/QuickBASIC

CLS
LINE INPUT "Vvedite tekst: ", a$
r = LEN(a$)
DO: s$ = MID$(a$, r, 1)
  PRINT s$;
  r = r - 1
LOOP WHILE r > 0 AND s$ <> " "

@LDproger · 05.04.2013, 18:01 **[ТС]**

Мне желательно используя for-next

@m-ch · 05.04.2013, 18:02

А зачем цикл Do через For ведь удобнее?

QBasic/QuickBASIC

CLS
s$ = "vasja pupkin"
FOR i = LEN(s$) TO 1 STEP -1
PRINT MID$(s$, i, 1)
NEXT i

@LDproger · 05.04.2013, 18:11 **[ТС]**

Спасибо, до меня дошло

@Quiet Snow · 05.04.2013, 21:03

А зачем цикл Do через For ведь удобнее?

Так хардкорнее

а если без шуток, то сначала делал вторую задачу
и получил первую путём "обрезания"...

@LDproger 0 / 0 / 0 Регистрация: 04.04.2013 Сообщений: 12
		1
	Текст задом наперед 04.04.2013, 21:20. Показов 1235. Ответов 5 Метки нет (Все метки) 1) Вообщем, например, в переменной забито a$="вася пупкин", нам надо, чтобы он вывел так: н и к п у п я с а в то есть задом наперед, при этом используя цикл без step. 2) тоже самое только в строчку одно слово a$="пупкин" "никпуп" 0

@LDproger 0 / 0 / 0 Регистрация: 04.04.2013 Сообщений: 12
	05.04.2013, 18:01 [ТС]	3
	Мне желательно используя for-next 0

@LDproger 0 / 0 / 0 Регистрация: 04.04.2013 Сообщений: 12
	05.04.2013, 18:11 [ТС]	5
	Спасибо, до меня дошло 0

@Quiet Snow 5001 / 1673 / 409 Регистрация: 25.04.2010 Сообщений: 4,624 Записей в блоге: 2
	05.04.2013, 21:03	6
	А зачем цикл Do через For ведь удобнее? Так хардкорнее а если без шуток, то сначала делал вторую задачу и получил первую путём "обрезания"... 0