Исходный код программного модуля Program.pas
uses crt;
{ тип - запись (класс) для описания даты и времени }
type
datetime = record
year: integer;
month: integer;
day: integer;
hh: integer;
mm: integer;
end;
{ тип - запись (класс) для описания записи клиента }
type
client = record
name: string[50]; { ФИО клиента }
service: string[40]; { выбранная услуга }
date: datetime; { год, месяц, день, часы, минуты - дата записи клиента }
price: integer; { стоимость услуги в рублях }
end;
c_file = file of client;{ типизированный файл записей }
const
fname = 'client.dat';{ постоянное имя файла }
{ процедура создания нового файла }
procedure CreateNewFile(var f: c_file);
var
n, i: integer; { число записей в файле и номер текущей записи }
gm: client;{ добавляемая запись }
begin
rewrite(f); { открытие файла на запись }
// ввод данных:
write('Сколько записей ввести в файл? n = ');
readln(n);
writeln('Введите данные о клиентах: ');
for i := 1 to n do
with gm do
begin
writeln('Клиент ', i);
write(' ФИО: ');
readln(name);
write(' Услуга: ');
readln(service);
write(' Год: ');
readln(date.year);
write(' Месяц: ');
readln(date.month);
write(' День: ');
readln(date.day);
write(' Часы: ');
readln(date.hh);
write(' Минуты: ');
readln(date.mm);
write(' Стоимость услуги в рублях: ');
readln(price);
write(f, gm); { запись данных в файл }
end;
close(f); { закрытие файла }
write('Запись в файл завершена. . . ');
readln;
end;
{ вспомогательная процедура для открытия файла на чтение }
Поделитесь с Вашими друзьями: |
