Страница: 3/5
2 - Просмотр содержимого файла – на экран поочередно выдаются раннее созданные записи в виде:
Фамилия хозяина:
Имя хозяина:
марка машины:
модель маштны:
тип кузова:
номер машины:
регион:
год выпуска:
цвет:
3 – Добавление записи – Создание новой записи и файле добавляя его в конец записи.
4 – Поиск по номеру палаты – Позволяет находить данные о отдыхающем по
номеру палаты , в котором зарегистрирован отдыхающий.
5 - Выход из программы - выход из программы
6.Описание программы.
6.1Инструкция по использованию программы.
Для запуска этой программы необходимо перейти на диск 3.5“A” прилагаемый к данной работе и войти в директорию «KYRSOVAI».
Создания базы данных.
Для того чтобы создать базу данных пользователю необходимо нажать пункт «СОЗДАНИЕ ФАЙЛА» в главном меню с помощью «ENTER».После этого появится следующая строка: «ЗАДАЙТЕ ИМЯ ФАЙЛА КОТОРЫЙ БУДЕТ СОЗДОВАТЬСЯ». Далее через «ENTER» вводятся данные.
Дополнение данных.
Для дополнения данных необходимо нажать кнопку «ENTER» . После
этого появиться следующая строка: «ЗАДАЙТЕ ИМЯ ФАЙЛА В КОТОРЫЙ БУДЕТ ДОБОВЛЯТЬСЯ ЗАПИСЬ»
Выыход.
Возврощает в главную програму.
6.2 Описание процедур.
Creatfile-создание файла;
Addrecord-добавление запеси;
Inputfile-ввод данных;
Redzap-корректировка;
Openfile-просмотр;
Clearfile-удаление.
Вывод.
Проделанная работа позволяет любому пользователю с легкостью создавать большие объемы информации, обрабатывать их, сортировать, делать выборки по определенным критериям.
Использование такой программы в современном мире значительно облегчает деятельность человека.
Program Tamazov;
uses Crt,Dos;
type prokat=record
Sname_Hozaina,Name_Hozaina:string[15];
markauto:string[20];
model_auto:string[20];
tip_kyzova:string[20];
nomer_auto:string[20];
region:integer;
god_vipyska:integer;
color:string[20];
end;
var f:file of prokat;
zn,filename:string;
k:integer;
label 11;
{-----------------------------------------------------------}
procedure Creatfile;
begin
writeln('Задайте имя файла,который будет создаваться');
readln(filename);
assign(f,filename);
rewrite(f);
end;
{-----------------------------------------------------------}
procedure Addrecord;
var rez:integer; ch:char;
begin
while rez<>1 do
begin
writeln('Задайте имя файла,в который будет добавляться запись');
readln(filename);
assign(f,filename);
reset(f);
rez:=IOResult;
if rez<>0 then
begin
writeln('Проверьте правильность имени файла!');
writeln('Будет ли повторное задание имени файла?(Y/N)');
readln(ch);
if (ch='n') or (ch='N') then halt (0);
end;
end;
seek(f,filesize(f));
end;
{==========================================================}
procedure Inputfile;
var st:prokat;
k:char;
begin
repeat
writeln('Введите данные о новом клиенте : ');
write('Фамилия Хозяина : '); readln(st.Sname_Hozaina);
write('Имя Хозяина:' ); readln(st.Name_Hozaina);
write('марка машины:'); readln(st.markauto);
write('модель машины:'); readln(st.model_auto);
write('тип кузова:'); readln(st.tip_kyzova);
write('номер машины: '); readln(st.Nomer_auto);
write('регион:'); readln(st.region);
write('год выпуска: '); readln(st.God_vipyska);
write('цвет: '); readln(st.color);
write(f,st);
write('Надо ли вводить данные о новом клиенте ? (Y/N)>');readln(k);
writeln;
until(k='n') or (k='N');
Реферат опубликован: 31/03/2007