Входной и выходной файлы

@AciD · Регистрация: 25.10.2011

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

Сейчас на олимпиадных задачах требуется, что бы данные подавались из файла Input.txt и записывались в выходной файл - output.txt. Как это сделать ?
В инете нашел типа Open имя_файла For Формат какой-то там. вобщем у меня не получается пишет, что файл не найден. хотя этот текстовый документ в одной папке с бейсиком.
допустим решение-

QBasic/QuickBASIC
1
2
3
4
CLS
INPUT A
X=2*A+4
?X

что нужно написать, что бы А подавалось в программу с текстового документы и результат записывался туда же.

@softmob · 01.11.2011, 09:31

QBasic/QuickBASIC
1
2
3
4
5
OPEN "I", 1, "INPUT.TXT"
OPEN "O", 2, "OUTPUT.TXT"
INPUT #1, a
PRINT #2, 2*a +4
CLOSE #1,#2

@AciD · 01.11.2011, 09:34 **[ТС]**

File not found. пишет.(

@softmob · 01.11.2011, 09:52

проверь что точно есть файл INPUT.TXT и он находится в ток же категории что и qbasic если нет создай его.

@AciD · 01.11.2011, 10:20 **[ТС]**

Есть. INPUT.txt находится в одной папке с QBasic. А открывать не хочет. в чем может быть проблема?

Добавлено через 26 минут
Закрыто. Я идиот.))) зачем-то печатал txt после названия файла...

@AciD · 10.11.2011, 10:53 **[ТС]**

такой вопрос
в входном файле содержится текст заклинания, к примеру -
Zv Ra Ca Dab RAR
как заполнить массив с входного файла? при этом количество символов в нем заранее неизвестно.
Помогите!! в Воскресенье олимпиада, кровь износу выиграть надо

@Quiet Snow · 10.11.2011, 13:56

как заполнить массив с входного файла?

Формат массива? Формат входного файла? Как можно подробнее...

количество символов в нем

В нём это в чём?

@AciD · 10.11.2011, 13:58 **[ТС]**

Извиняюсь за некорректное выражение мыслей, не выспался.
В общем во входном файле написано вышеуказанное заклинание. Мне нужно заполнить массив словами с этого заклинания. Слова разделают только пробелы. При этом не обязательно вышеуказанное заклинания подается, т.е. количество элементов заранее мы не знаем.

@Quiet Snow · 10.11.2011, 14:02

Читаем строку лайн инпутом, отшибаем пробелы слева и справа, считаем кол-во пробелов, заводим строковый массив из кол-ва элементов на единицу больше кол-ва пробелов. Дальше в цикле перефигачиваем все слова в массив. Чё сложного?

@AciD · 10.11.2011, 14:04 **[ТС]**

хм. А как сделать так что если следующий символ пробел то стопЭ Бейсик, вводи следующий элемент. уже задолбался, хотя вроде как просто все

@Quiet Snow · 10.11.2011, 14:28

хм. А как сделать так что если следующий символ пробел то стопЭ Бейсик, вводи следующий элемент.

Нужно думать головой, написать прогу фигня по сравнению с тем, сколько усилий нужно приложить к составлению верного алгоритма. Просто старайся придерживаться утверждения: что любую, хоть сколь сложную прогу можно всегда разложить на мелкие детали и написать простой принцип её реализации.
Вот попробуй это:

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
CLS
 OPEN "I", 1, "INPUT.TXT"
   LINE INPUT #1, S$
   S$ = LTRIM$(RTRIM$(S$))
     FOR i = 1 TO LEN(S$)
        IF MID$(S$, i, 1) = " " THEN k = k + 1
     NEXT
 
   DIM R$(k + 1): k = 1
     FOR i = 1 TO LEN(S$)
        Sm$ = MID$(S$, i, 1)
        IF Sm$ = " " THEN
          k = k + 1
          ELSE R$(k) = R$(k) + MID$(S$, i, 1)
        END IF
     NEXT
 
 CLOSE 1
 
  ' -  Отладка  -
  FOR i = 1 TO k
     PRINT R$(i)
  NEXT

@AciD · 10.11.2011, 14:30 **[ТС]**

Ты гений. Хотя...я думаю ты в курсе(;

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@AciD 22 / 22 / 19 Регистрация: 25.10.2011 Сообщений: 122
	01.11.2011, 09:34 [ТС]
	File not found. пишет.( 0

@softmob 1255 / 705 / 359 Регистрация: 20.02.2010 Сообщений: 1,035
	01.11.2011, 09:52
	проверь что точно есть файл INPUT.TXT и он находится в ток же категории что и qbasic если нет создай его. 0

@AciD 22 / 22 / 19 Регистрация: 25.10.2011 Сообщений: 122
	01.11.2011, 10:20 [ТС]
	Есть. INPUT.txt находится в одной папке с QBasic. А открывать не хочет. в чем может быть проблема? Добавлено через 26 минут Закрыто. Я идиот.))) зачем-то печатал txt после названия файла... Миниатюры 0

@AciD 22 / 22 / 19 Регистрация: 25.10.2011 Сообщений: 122
	10.11.2011, 10:53 [ТС]
	такой вопрос в входном файле содержится текст заклинания, к примеру - Zv Ra Ca Dab RAR как заполнить массив с входного файла? при этом количество символов в нем заранее неизвестно. Помогите!! в Воскресенье олимпиада, кровь износу выиграть надо 0

@AciD 22 / 22 / 19 Регистрация: 25.10.2011 Сообщений: 122
	10.11.2011, 13:58 [ТС]
	Извиняюсь за некорректное выражение мыслей, не выспался. В общем во входном файле написано вышеуказанное заклинание. Мне нужно заполнить массив словами с этого заклинания. Слова разделают только пробелы. При этом не обязательно вышеуказанное заклинания подается, т.е. количество элементов заранее мы не знаем. 0

@Quiet Snow Кормпилятор 5044 / 1718 / 409 Регистрация: 25.04.2010 Сообщений: 4,827 Записей в блоге: 2
	10.11.2011, 14:02
	Читаем строку лайн инпутом, отшибаем пробелы слева и справа, считаем кол-во пробелов, заводим строковый массив из кол-ва элементов на единицу больше кол-ва пробелов. Дальше в цикле перефигачиваем все слова в массив. Чё сложного? 0

@AciD 22 / 22 / 19 Регистрация: 25.10.2011 Сообщений: 122
	10.11.2011, 14:04 [ТС]
	хм. А как сделать так что если следующий символ пробел то стопЭ Бейсик, вводи следующий элемент. уже задолбался, хотя вроде как просто все 0

@AciD 22 / 22 / 19 Регистрация: 25.10.2011 Сообщений: 122
	10.11.2011, 14:30 [ТС]
	Ты гений. Хотя...я думаю ты в курсе(; 1