Как записать слова столбиком в файл? - PascalABC.NET
Формулировка задачи:
Решение задачи: «Как записать слова столбиком в файл?»
textual
Листинг программы
var
sText, Path, FullPath, Change: string;
TextFile: text;
Texts: string;
begin
Writeln('Введите название таблицы');
readln(sText);
Writeln('Введите куда программе сохранить файл');
readln(Path);
FullPath := Path + sText + '.txt';
assign(TextFile, FullPath);
rewrite(TextFile);
while Change <> ';;' do
begin
readln(Change);
writeln(TextFile, Change); // нет ошибки
end;
close(textfile);
end.
Объяснение кода листинга программы
- Объявлены переменные: sText, Path, FullPath, Change типа string; TextFile типа text; Texts типа string.
- Пользователю предлагается ввести название таблицы.
- Пользователю предлагается указать путь, куда сохранить файл.
- Формируется полный путь к файлу с помощью конкатенации строк.
- Открывается файл с помощью функции assign.
- Файл перезаписывается с помощью функции rewrite.
- В цикле while считывается каждое изменение из файла.
- Каждое изменение записывается в файл с помощью функции writeln.
- Цикл продолжается, пока не встретится символ ';;;'.
- Файл закрывается с помощью функции close.