Введение 3
1 Описание программного комплекса 4
1.1 Структура программного комплекса 4
1.2 Просмотр всех элементов массива 5
1.3 Ввод информации из текстового файла в массив 5
1.4 Добавление новых элементов в конец массива 5
1.5 Вывод информации из массива в текстовый файл 6
1.6 Сортировка массива по числовому полю 6
1.7 Вставка нового элемента перед выбранным 7
1.8 Вставка нового элемента после выбранного 7
2 Описание работы программы по контрольному примеру 8
2.1 Добавление новых элементов в конец массива и просмотр всех элементов массива 8
2.2 Вывод информации из массива в текстовый файл 9
2.3 Ввод информации из текстового файла в массив 10
2.4 Сортировка массива по числовому полю 10
2.5 Вставка нового элемента перед выбранным 11
2.6 Вставка нового элемента после выбранного 12
Заключение 13
Список использованных источников 14
Приложение А. Текст программы на языке Pascal 15
Приложение А. Текст программы на языке Pascal (частично)
Program Record_Array;
uses crt;
type
TWorldBeg=record //Структура записи
Res:real;
Avtor:string[20];
God:integer;
end;
TVector=array of TWorldBeg; //динамический массив записей
var
V:TVector; //массив записей
m:integer; //выбранный пункт меню
Procedure PrintArray(V:array of TWorldBeg);
//просмотр всех элементов массива:
begin
writeln(' Результат Автор Год');
for var i:=0 to High(V) do
writeln(i,'. ',V[i].Res,', ',V[i].Avtor,', ',V[i].God);
end;
Procedure LoadFromFile(var V:array of TWorldBeg);
//Прочитать из текстового файла записи в массив:
var f:Text; //файловая переменная
i:integer; //номер и количество элементов массива
begin
AssignFile(f,'World.dat');
Reset(f);
i:=0;
while not eof(f) do begin
SetLength(V,i+1);
readln(f,V[i].Res);
readln(f,V[i].Avtor);
readln(f,V[i].God);
inc(i);
end;
writeln('Из файла World.dat прочитано в массив ',i,' записей!');
close(f);
PrintArray(V); //Вывод массива на экран
end;
Procedure Add(var V:array of TWorldBeg);
//Добавить новые элементы массива в конец:
var i:integer; //номер элемента
c:char; //вводимый символ на запрос об окончании ввода
begin
Repeat
SetLength(V,High(V)+2);
1. Синицын, А.К. Навроцкий, А.А. Алгоритмы вычислительной математики. Учебно-методическое пособие по курсу «Основы алгоритмизации и программирования». Минск, БГУИР, 2007.
2. Бусько, В.Л., Корбит, А.Г., Кривоносова, Т.М. Конспект лекций по курсу «Основы алгоритмизации и программирования» для студентов всех специальностей и всех форм обучения. - Мн.: БГУИР, 2004.
3. Голицына, О.Л., Попов И.И. Основы алгоритмизации и программирования: Учеб. пособие. – М.: ФОРУМ, 2004. – 432 с.
4. Национальный Интернет-портал Республики Беларусь [Электронный ресурс] / Нац. Центр правовой формы информ. Респ. Беларусь. – Минск, 2005. – Режим доступа: http://www. pravo.by. – Дата доступа: 25.01.2021.
5. Фаронов, В.В. Программирование на языке высокого уровня: Учебник для ВУЗов. – СПб.: Питер, 2005. – 640 с.
