Инструкция
1
Для создания текстового файла в Паскаль необходимо задать переменные соответствующего типа, которые будут записываться в соответствующий раздел памяти. Чтобы это осуществить можно воспользоваться различными функциями языка. Все данные и переменные записываются при помощи стандартной операции Writeln (достаточно задать дополнительный параметр).Program CreateFile;
var textfile: Text; nametype: String; textstring: String; a, b: integer;Где textfile — переменная типа Text, содержащая в себе имя файла. Nametype — тип ввода текста, которой присваивается String. Textstring — текстовая строка соответствующего типа. A и b являются вспомогательными переменными, которые хранят целоисчисляемые цифровые значения.
var textfile: Text; nametype: String; textstring: String; a, b: integer;Где textfile — переменная типа Text, содержащая в себе имя файла. Nametype — тип ввода текста, которой присваивается String. Textstring — текстовая строка соответствующего типа. A и b являются вспомогательными переменными, которые хранят целоисчисляемые цифровые значения.
2
Предложите пользователю ввести тип нужного файла nametype. Его необходимо связать с самим файлом textfile.Writeln('Please, type the name of data typing');
Readln(nametype);
Assign(textfile, nametype);
Readln(nametype);
Assign(textfile, nametype);
3
Откройте файл для записи данных и предложите пользователю ввести сначала количество строк для записи, а затем их содержимое. Данные будут поочередно вноситься в сам документ.Rewrite(textfile);
Writeln('Type numbers of strings:');
Readln(b); {переменная, которая хранит количество строк}
Writeln('Please, type the strings:');
Writeln('Type numbers of strings:');
Readln(b); {переменная, которая хранит количество строк}
Writeln('Please, type the strings:');
4
Для записи фиксированного количества строк воспользуйтесь циклом, первый параметр которого должен соответствовать номеру первой строчки файла, в данном случае цифре 1.for a:=1 to b do
begin
Readln(textstring);
Writeln(textfile, textstring); {функция записи в файл}
end;
begin
Readln(textstring);
Writeln(textfile, textstring); {функция записи в файл}
end;
5
Завершите работу с файлом и закончите программу использованием соответсвующих функций. Также выведите уведомление об успешной записи. Во избежание проблем с выводо выставьте повторный readln.close(textfile);
Writeln('Success');
readln;
End.
Writeln('Success');
readln;
End.
6
Файл успешно создан. Откомпилируйте и сохраните скрипт через меню используемой среды программирования.