Переведите код с Pascal на QBasic

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

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

Решение задачи: «Переведите код с Pascal на QBasic»

textual
Листинг программы
DIM s AS STRING
DIM s1 AS STRING
DIM s2 AS STRING
DIM k AS INTEGER
DIM p AS INTEGER
CLS
INPUT "STROKA = "; s
 
s = " " + s + " "
k = 1
DO
   p = INSTR(k, s, "i")
   IF p > 0 THEN
      s1 = LEFT$(s, p - 1)
      s2 = RIGHT$(s, LEN(s) - p)
      s = s1 + "info" + s2
      k = p + 1
   ELSE
      EXIT DO
   END IF
LOOP
s = TRIM$(s)
PRINT s
END

Объяснение кода листинга программы

  1. Задаются переменные: s, s1, s2, k, p
  2. Ввод строки от пользователя: INPUT STROKA =; s
  3. Формирование новой строки: s = ` + s + `
  4. Цикл до тех пор, пока не будет найдено первое вхождение i: p = INSTR(k, s, i) Если p больше 0: Формирование новых строк: s1 = LEFT$(s, p - 1) s2 = RIGHT$(s, LEN(s) - p) Формирование новой строки: s = s1 + info + s2 Увеличение k на p + 1 Иначе: Цикл прекращается
  5. Удаление лишних пробелов: s = TRIM$(s)
  6. Вывод строки на экран: PRINT s

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

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