Силаенков А.Н. Лекции по технологии программирования
Подождите немного. Документ загружается.
number:=inputbox('Ввод элементов массива','Введи число','0');
val(number,b[i],code);
end;
summas(n,b); //обращение к функции
end;
end.
Лекция №12. Работа с текстовыми файлами
1.Создание текстового файла с помощью редактора кода Delphi
Текстовые файлы связываются с файловыми переменными,
принадлежащими к стандартному типу TextFile. Текстовые файлы
предназначены для хранения текстовой информации. Именно в такого типа
файлах хранятся, например, исходные тексты программ. Компоненты
(записи) текстового файла могут иметь переменную длину, что существенно
влияет на характер работы с ними.
Текстовый файл трактуется в Object Pascal как совокупность строк
переменной длины. Доступ к каждой строке возможен лишь
последовательно, начиная с первой. При создании текстового файла в конце
каждой строки ставится специальный признак eoln (End Of LiNe - конец
строки), а в конце всего файла - признак eof (End Of File - конец файла). Эти
признаки можно протестировать одноименными логическими функциями .
Текстовый файл состоит из символов ASCII. Его можно создавать и
редактировать с помощью любого текстового редактора, поддерживающего
сохранение файлов в формате ASCII, причем с помощью редактора кода
Delphi, либо программ Word,WordPad. В качестве примера создадим
текстовый файл с помощью редактора кода в Delphi.
В главном меню нужно выбрать Файл Создать Другое, при этом
откроется диалоговое окно Новые элементы, в котором выделить
пиктограмму Текст.
Рис. Диалоговое окно Новые элементы
При этом в редакторе кода появится пустая вкладка с именем по
умолчанию File1.txt. Введем в этой вкладке следующие строки
После ввода данных необходимо файл сохранить: Файл-Сохранить
Рис. Диалоговое окно Сохранить как
В диалоговом окне задать имя файла и указать тип файла (exam1.txt).
2. Работа с файлами
\ Для доступа к записям применяются процедуры Read, ReadLn, write,
writeln. Они отличаются возможностью обращения к ним с переменным
числом фактических параметров, в качестве которых могут использоваться
символы, строки и числа. Первым параметром в любой из перечисленных
процедур должна стоять файловая переменная. Обращение осуществляется к
дисковому файлу, связанному с переменной процедурой AssignFile.
В дескрипторе хранится указатель файла, котрый похож на курсор в
текстовом редакторе. Указатель файла обозначсает текущую позицию в
открытом текстовом файле. В режиме вывода указатель файла определяет
позицию, в которую будет заисан следующий элемент данных.
Встроенный в Delphi компилятор поддерживает два стандартных
дескриптора файлов: Input и OutPut. Если дескриптор опущен, то
предполагается, что дескриптором является Input для процедур ввода и
OutPut для процедур вывода.
Пример1. Вычислить суммы элементов в столбцах двумерного
числового массива a [1..2,1..4] данного в файле Mass.txt. Полученные суммы
поместить в файл Mass1.txt.
Исходный массив
1. Разработка интерфейса
Используются компоненты
MemoOutPut ,Button,BitBtn.
2. Обработчик события
Листинг программы
procedure TForm1.Button1Click(Sender: TObject);
var
a:array [1..2,1..4]of integer;//размерность двумерного массива
s:array [1..4]of integer;//Размерность массива сумм столбцов
i,j:integer;
inF:TextFile; // Описание типа файла для чтения
OutF:TextFile;// Описание типа файла для записи
begin
AssignFile(inf,'c:\mass.txt');//связывание inf c файлом
AssignFile(outf,'c:\mass1.txt'); //связывание outf c файлом
Reset(inF);//открывает файл для чтения
for i:=1 to 2 do//считывание информации из файла Inf
for j:=1 to 4 do
read(inf,a[i,j]);
Closefile(inf);//закрытие файла Inf
Rewrite(outF);//создаёт и открывает файл для вывода данных
Writeln(outF,'1 2 3 4 - столбцы');// ввод в файл outF
Writeln(outF,'Суммы по столбцам');//ввод в файл outF
for j:=1 to 4 do //расчет сумм столбцов
begin
s[j]:=0;
for i:=1 to 2 do
s[j]:=s[j]+a[i,j];
write(outf,s[j]);//вывод данных в файл mass1.txt
memoOutPut.lines.add('сумма ' + inttostr(j)+' столбца = '+inttostr(s[j]));
end;
closefile(outf);
end;
end.
Рис. Результат выполнения программы
Пример 2. Использование текстовых
файлов. Чтение текстового файла
exam1.txt, вывод прочитанного в область
просмотра MemOutPut, создание файла
names.txt и запись в него фамилий
студентов.
2. Интерфейс программы
Используются
компоненты:
Button, BitBtn, Memo.
2. Обработчик события
Выполнить
3.Программа
procedure TForm1.Button1Click(Sender: TObject);
var
inFile:TextFile; // Описание типа файла для чтения
OutFile:TextFile;// Описание типа файла для записи
LastName: string[16]; //максимальная длина фамилии
examscore:integer; // экзаменационные оценки
begin
AssignFile(infile,'c:\exam1.txt');
AssignFile(outfile,'c:\names.txt');
Reset(inFile);//открывает файл для чтения
Rewrite(outFile);//создаёт и открывает файл для вывода данных
Writeln(outFile,'Фамилии студентов');// ввод в файл outFile Фамилии
студентов
Writeln(outFile,'_________________');//
MemoOutPut.lines.add('Студент Экзамен');
MemoOutPut.lines.add('_______ _______');
While not(eof(infile))do begin //выполнять пока нет конца файла
Readln(inFile,Lastname,examscore);
writeln(outFile,Lastname,examscore);
MemoOutPut.lines.add(lastname+intTostr(examscore));
end;
end;
end.
4. Вывод результатов
Рис. Результаты работы программы
Лекция №13. Технология разработки программ с использованием
записей и множеств
1.Краткие сведения о записях
Запись представляет собой переменную, которая состоит из структуры
данных, а структура данных, в свою очередь, состоит из компонентов,
которые еще называют полями записи. Нужно заметить, что у каждого поля
записи существует свой тип, это позволяет в записях хранить данные разного
типа и именно это свойство делает работу с записями очень удобной.
Обычно записи объявляют в разделе type, с использованием
зарезервированных слов record и end.
Синтаксис определения типа записи в Delphi имеет вид:
Type
Имя типа записи=record
Список полей 1: тип данных 1;
Список полей 2: тип данных 2;
Список полей N: тип данных N;
End;
Пример определения записей
Type
Stud = record //запись студенты
Math, Physics, History: Integer;// описание полей1: тип целый
Name, familie: string;// описание полей 2: тип строковый
End;
Здесь структура Stud состоит из пяти полей: Math, Physics, History,
которые должны содержать оценки учащихся, и Name, Familie которые
должны содержать имя и фамилию. Заметьте, что в записи присутствуют
поля с разными типами.
Переменные записей можно описать в разделе Var:
Var
Ivanov, Petrov: Stud;
Еще один из плюсов работы с записями состоит в том, что не надо
отдельно присваивать поля одной переменной записи другой переменной
такого же типа, а можно это сделать одним оператором присваивания:
Ivanov := Petrov;
А обычная работа с полями осуществляется при помощи обращения к
переменной, имеющей тип записи, после которой ставится точка "." и идет
название поля. Потом можно производить нужные действия над полем.
Синтаксис очень прост:
<имя переменной типа записи>.<имя поля> := <значение>;
Например:
Ivanov.Mat := 4;
Petrov.Phis := 5;
Иногда требуется, чтобы один тип записи вкладывался в другой. Это может
выглядеть следующим образом:
Tupe
Student=record
Name: string[25];
Denrogd : record {вложенная запись}
Den,mes,god : string;
End;
End;
Можно для доступа к полям записи использовать оператор with...do.
Синтаксис оператора имеет вид:
With <переменная типа записи> do begin
<операторы
End;
Например,
With srudents [1] do begin
Lastname:=’Smith’;
Firstname:=’John’;
Age:=19;
End;
Пример программы с использованием записей. Разработать программу
для формирования и распечатки списка студентов с указанием дат рождения.
1.Интерфейс программы