Оглавление:
Задача — Создание текстового файла и запись данных в него
— программирование на Pascal, Си, Кумир, Basic-256, Python
Создать текстовый файл, записать в него построчно данные, которые вводит пользователь. Окончанием ввода пусть служит пустая строка.
В первую очередь нужно создать файл по указанному адресу и открыть его на запись. В разных языках программирования это делается по-разному.
После того как файл открыт на запись, можно запустить бесконечный цикл, в котором будет считываться с клавиатуры строка и далее записываться в файл. Тело цикла также должно содержать проверку на пустую строку: если была введена пустая строка, то цикл должен прерываться.
Pascal
var
f: text;
name, str: string;
begin
write(‘Файл: ‘);
readln(name);
assign(f, name);
rewrite(f);
while True do begin
readln(str);
if str = » then break;
writeln(f, str);
end;
close(f);
end. Файл: test1
hello world
one two three
back
3 4 5 6
В том же каталоге, где сохранена программа, будет создан файл test1 с содержимом, которое было введено в терминале.
Язык Си
#include <stdio.h>
#include <string.h>
#define N 255
main() {
FILE *f;
char s[N], name[N];
gets(name);
f = fopen(name,»w»);
while (1) {
gets(s);
if (strlen(s) == 0) break;
fprintf(f,s);
fprintf(f,»n»);
}
fclose(f);
} nums.txt
one two tree …
один два …
1 2 3 4 …
1 10 11 100 …
В том же каталоге, что и программа создается файл nums.txt, куда записываются строки, введенные пользователем.
Python
fname = input(‘Файл: ‘)
f = open(fname,’w’)
while True:
s = input()
if s == »: break
f.write(s+’n’)
f.close() Файл: /home/pl/Рабочий стол/text2.txt
Ввод данных в
текстовый файл
____________
1 а 2 б wwwww
Будет создан файл text2.txt в каталоге /home/pl/Рабочий стол/ и содержащий данные, введенные пользователем в процессе выполнения программы.
КуМир
использовать Файлы П
алг
нач
цел ф
лит имя, строка
вывод «Имя файла: »
ввод имя
ф := открыть на запись (имя)
вывод «Вводите строки ниже:», нс
нц пока да
ввод строка
если строка = «!» то
закрыть(ф)
выход
все
Фвывод ф, строка
Фвывод ф, нс
кц
кон
Basic-256
print «Имя файла: «;
input name$
open name$
while True
input s$
if s$ = «» then gosub stop
writeline s$
end while
stop:
close Имя файла: text.txt
Это текст
который записывается
в файл.
Файл text.txt создается в каталоге, где сохранена программа, и в него записываются строки ниже.