Консультация № 136472
12.05.2008, 13:57
0.00 руб.
0 1 1
Составить программу, которая создает файл следуещей структуры:
№ по порядку
ФИО
№ телефона

Ввести 5 записей и вывести файл на экран

Обсуждение

Неизвестный
12.05.2008, 21:32
общий
это ответ
Здравствуйте, Cobain!
Задачи с пояснениями в приложении.
Удачи!!!


Приложение:
type {Тип для создания типизированого файла} OurFile = record {Номер записи} num: integer; {ФИО} FIO: string; {Номер телефона} Phone: string; end;const {кол-во записей в файле} N=5;var {Объявляем типизированный файл} DataFile: file of OurFile; {Счетчик для For} i: integer; {Переменная тип OurFile} Rec: OurFile;begin {Связываем переменную с файлом} assign(DataFile,‘data.txt‘); {Открываем для перезаписи} ReWrite(datafile); {Цикл заполнения файла} for i:=1 to N do begin {Выводим номер записи} WriteLn(‘Запись №‘, i); {Сохраняем в переменную Rec} Rec.num:=i; {Получаем ФИО и сохраняем его в пременную того же типа какой у файла} Write(‘ФИО: ‘); ReadLn(Rec.FIO); {Получаем телефон} Write(‘Номер телефона: ‘); ReadLn(Rec.Phone); {Записываем заполненную переменную в файл} Write(DataFile, Rec); end; {для чтения} reset(DataFile); WriteLn(‘Содержимое файла: ‘); {Цикл чтения файла} for i:=1 to N do begin {Получаем очередную запись} read(DataFile, Rec); {Выводим содержимое на экран} WriteLn(‘Ноиер записи: ‘, Rec.num); WriteLn(‘ФИО: ‘, Rec.FIO); WriteLn(‘Номер телефона: ‘, Rec.Phone); end; {Закрываем файл} close(dataFile); ReadLn;end.
Форма ответа