Хотел бы попросить помочь мне перевести программу из Visual Basic в qBasic. Или помочь найти конвертер... - VB

Узнай цену своей работы

Формулировка задачи:

Добрый день! Хотел бы попросить помочь мне перевести программу из Visual Basic в qBasic. Или помочь найти конвертер...

Решение задачи: «Хотел бы попросить помочь мне перевести программу из Visual Basic в qBasic. Или помочь найти конвертер...»

textual
Листинг программы
INPUT "введите фразу"; s$
n = LEN(s$)
 
FOR i = 2 TO n
FOR j = n TO i STEP -1
IF ASC(MID$(s$, j - 1, 1)) < ASC(MID$(s$, j, 1)) THEN
x$ = MID$(s$, j - 1, 1)
MID$(s$, j - 1, 1) = MID$(s$, j, 1)
MID$(s$, j, 1) = x$
END IF
NEXT
NEXT
PRINT s$
END

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 3.8 из 5