/>
1. Долгушева Л.М. Електронний навчальний посібник. ver 1.2.2010. - Пенза, ПГТА
2. Інформатика: Базовий курс/За ред. С.В. Симоновича. - СПБ.: Питер, 2002. Алгоритмізація та основи програмування/Г.І. Светозарова. - М.: Вища школа, 2006. - 128 с.
. Культин Н.Б. Turbo Pascal у завданнях і прикладах, 2007.
. Немнюгин С.А. Turbo Pascal. Практикум. 2007.
. Немнюгин С.А. Turbo Pascal. Програмування на мові високого рівня. 2006.
. Павловська Е.А., Паскаль. Програмування на мові високого рівня: Підручник для вузів. - СПб.: Пітер, 2007. - 393 с.
. Пікулін В.В., Долгушева Л.М., Бармин М.А., Інформатика та програмування: Навчально-методична розробка. - Львів: Вид-во Пензі. держ. технол. академії, 2006. - С.
Програми
Додаток А. текст програми
А.1. Текст основної програми (Kurs)
uses crt, IO, graph;: FillPatternType = ($ 00, $ 11, $ 10, $ 12, $ 7e, $ fa, $ 18, $ 00); InputData;: = 0;;; paint; R = 100; x = 150; y = 150;
colorG = 7; sum: integer;, gm, m, n, err, i: integer;
a, b: real; ss: string; (gd, gm); (gd, gm,''); GraphResult <> grOk then Halt (1); (colorG); (x , y, R);: = 0;: = 0; i: = 1 to NumberGartner do: = sum + GartnerArray [i]. PriseAll; i: = 1 to NumberGartner do: = a +2 * Pi * GartnerArray [i]. PriseAll/sum; (x, y, x + round (R * cos (a)), y + round (R * sin (a)));;: = 0; b: = 0; i: = 0; i : = 1 to NumberGartner do: = a;: = a +2 * Pi * GartnerArray [i]. PriseAll/sum; (FillPattern, Random (GetMaxColor));
m: = (2 * x + round (R * cos (a-(ab)/2))) div 2;
n: = (2 * y + round (R * sin (a-(ab)/2))) div 2; (m, n, colorG); (GartnerArray [i]. PriseAll , ss); (m, n, ss);
RectAngle (3 * R, i * 25, 3 * R +20, i * 25 +20);
FloodFill (3 * R +2, i * 25 +3, colorG), (3 * R +30, i * 25 +5, GartnerArray [i]. fio);;;: = 0;; ('F1-Введення даних'); ('F2-Запис у файл'); ('F3-Читання з файлу');
Writeln ('F4-Виведення даних');
Writeln ('F5-Видалення');
Writeln ('F6-Пошук');
Writeln ('F7-Сортування');
Writeln ('F8-Діаграма');
Writeln ('F9-Доповнення даних');
Writeln ('F10-Вихід з програми');
