Практическая часть:
Блок схема:
Начало
assign(f,'laba4.txt')
rewrite(f)
n
i=1, n
x
f,x,','
append(f)
n
x
f,x,','
i=1, n
close(f)
Конец
Словесное описание алгоритма:
Цель: В файл записать целые числа. В конец файла добавить n целых чисел. Записываемые числа вводятся с клавиатуры.
Создается файл laba4.txt
Начинается запись в файл.
Запускается цикл в который пользователь вводит n целых чисел.
Конец цикла.
Продолжается запись в ранее существующий файл.
Запускается цикл в который пользователь вводит дополнительные n целых чисел.
Конец цикла.
Закрывается файл.
Листинг программы:
Program number4;
{Программа для записи целых чисел в файл и добавление чисел в конце файла}
var
f: text;
n,i,x:integer;
begin
assign(f,'laba4.txt');{Файловая переменная связывается с именем файла}
write('Введите колличество чисел : ');
rewrite(f);{Начинается запись в файл}
writeln(f,'Лабораторная работа №4');
readln(n);
writeln(f,'Введенные числа числа');
for i:=1 to n do
begin
readln(x);
write(f,x,',');
end;
write('Введите колличесто чисел для дозаписи : ');
append(f); {Продолжается запись в файл}
writeln(f,' ');
writeln(f,'Дозаписанные числа');
readln(n);
for i:=1 to n do
begin
readln(x);
write(f,x,',');
end;
close(f);{Файл закрывается}
end.
Выводы по работе:
Изучен синтаксис создания и использования файлов в TurboPascal 7.0.
Освоены навыки написания программы с использованием файлов в TurboPascal 7.0
Список используемой литературы:
Фараонов В.В. Турбо Паскаль Начальный курс: Учебное пособие. -Издание 7-е, переработанное – М.: Нолидж, 2002- 575с.