Распечатать слова из файла - QBasic

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

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

Эта программа вытаскивает слова из файла 1.txt и распечатывает их в файл 2.txt. Быстродействие на QBasic не менее 50 000 слов/сек Вопрос Как преобразовать эту программу для вынимания из файла целых предложений? Концом предложения считать . (точку) ! (восклицательный знак) ? (вопросительный. знак) примечание Сложность в том, что предложение может начаться на одной строке, а закончится на другой. Да и предложений может быть несколько на строку...
Листинг программы
  1. CLS
  2. DIM s AS STRING
  3. DIM t AS STRING
  4. CONST p = " "
  5. OPEN "1.txt" FOR INPUT AS #1
  6. OPEN "2.txt" FOR OUTPUT AS #2
  7. DO
  8. LINE INPUT #1, s
  9. DO
  10. i = INSTR(s, ".")
  11. IF i > 0 THEN MID$(s, i, 1) = p
  12. LOOP UNTIL i = 0
  13. DO
  14. i = INSTR(s, ",")
  15. IF i > 0 THEN MID$(s, i, 1) = p
  16. LOOP UNTIL i = 0
  17. DO
  18. i = INSTR(s, "?")
  19. IF i > 0 THEN MID$(s, i, 1) = p
  20. LOOP UNTIL i = 0
  21. DO
  22. i = INSTR(s, "!")
  23. IF i > 0 THEN MID$(s, i, 1) = p
  24. LOOP UNTIL i = 0
  25. DO
  26. i = INSTR(s, " ")
  27. IF i > 0 THEN s = LEFT$(s, i - 1) + p + MID$(s, i + 2)
  28. LOOP UNTIL i = 0
  29. s = LTRIM$(RTRIM$(s))
  30. s = p + s + p
  31. k1 = 1
  32. DO
  33. k2 = INSTR(k1 + 1, s, p)
  34. t = MID$(s, k1 + 1, k2 - k1 - 1)
  35. PRINT #2, t
  36. k1 = k2
  37. LOOP UNTIL k2 = LEN(s)
  38. LOOP UNTIL EOF(1)
  39. END

Решение задачи: «Распечатать слова из файла»

textual
Листинг программы
  1. DIM S AS STRING
  2.  
  3. FOR I = 1 TO 23840
  4.    S = S + "1"
  5. NEXT
  6.  
  7. PRINT S
  8. PRINT I - 1

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

  1. Устанавливается переменная S типа STRING.
  2. Задаётся цикл от 1 до 23840 (включительно).
  3. В каждой итерации цикла к переменной S добавляется строка 1.
  4. После завершения цикла выводится на экран значение переменной S.
  5. Выводится на экран значение переменной I, уменьшенное на 1.

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


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

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

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут