Автор: Пользователь скрыл имя, 15 Октября 2011 в 06:13, курсовая работа
Цель работы - разработка надежного и гибкого кода для требуемого комплекса программ
Введение 5
Глава 1. Постановка задачи 6
1.1. Задание с использованием итерационных циклов 6
1.2. Обработка элементов массива 6
1.3. Файлы 7
Глава 2. Реализация проекта 8
2.1. Основная схема решения задания с использованием итерационных циклов 8
2.2. Основная схема решения задач на элементы массива 8
2.3. Основная схема решения задач с файлами 10
Заключение 15
Приложение А 16
Приложение Б 17
Приложение В 20
end;
procedure Update_rec;
var numrec:longint;
begin
name_file;
assign(BFile,BD);
{$I-}
reset(BFile);
{$I+}
if IOresult=0 then
begin
write('Выбери номер записи ');
readln(numrec);
seek(BFile,numrec-1);
Output_rec;
seek(BFile,numrec-1);
writeln('Изменение записи ');
Add_rec;
close(BFile);
end
else
writeln('не могу найти файл ', BD);
end;
procedure Add_rec_to_end;
begin
name_file;
assign(BFile,BD);
{$I-}
reset(BFile);
{$I+}
if IOresult=0 then
begin
seek(BFile,FileSize(BFile));
Add_rec;
close(BFile);
end
else
writeln('не могу найти файл ', BD);
end;
procedure Delete_rec;
var numdel:longint;
begin
name_file;
assign(BFile,BD);
{$I-}
reset(BFile);
{$I+}
if IOresult=0 then
begin
write('Выбери номер записи ');
readln(numdel);
seek(BFile,FileSize(BFile)-1);
read(BFile,temp);
seek(BFile,numdel-1);
write(BFile,temp);
seek(BFile,FileSize(BFile)-1);
truncate(BFile);
close(BFile);
end
else
writeln('не могу найти файл ', BD);
end;
procedure Output_all_insert;
begin
name_file;
assign(BFile,'BFile.txt');
{$I-}
reset(BFile);
{$I+}
if IOresult=0 then
begin
seek(BFile,0);
while(not Eof (BFile))do
Output_rec;
close(BFile);
end
else
writeln('не могу найти файл ', 'BFile.txt');
end;
{main program}
begin
{ClrScr;}
End_menu:=false;
repeat
writeln('1-Создать новый файл');
writeln('2-Показать все записи');
writeln('3-Изменить запись');
writeln('4-Добавить запись в
writeln('5-Удалить запись');
writeln('6-Показать список
writeln('0-Выход из меню');
writeln('Выбрать : ');
readln(vid);
case vid of
1:Create_new_file;
2:Output_all_rec;
3:Update_rec;
4:Add_rec_to_end;
5:Delete_rec;
6:Output_all_insert;
0:End_menu:=true;
end;
writeln('Press Enter');
readln;
{ClrScr;}
name_file;
assign(BFile,BD);
reset(BFile);
assign(BFile2,'BFILE.txt');
rewrite(BFile2);
with work do
begin
while (not Eof(BFile))do
begin
read(BFile,work);
if STUDVES > 60 then write(BFile2,work);
end;
end;
close(Bfile);
close(BFile2);
until End_menu;
end.
Информация о работе Программирование на языке «Турбо-Паскаль»