редакція фізико-математичної літератури, 1979.
. Гризлов В.І., Гризлова Т.П. Турбо Паскаль 7.0.- М.: ДМК, 1998.
. Гурський Д. Mathcad для студентів і школярів. Популярний самовчитель / Д. Гурський, Є. Турбіна.- СПб.: Питер, 2005.
. Дьяконов В.П. Довідник з MathCAD. М.: СК Пресс.
. Меженний О.А. Turbo Pascal. Самовчитель.- М.: Видавничий дім «Вільямс», 2005.
. Немнюгин С.А. Turbo Pascal: практикум.- СПб.: Питер, 2003.
. Миколаїв В.І.. Чалов Д.В.. Сибіру В.Н. Інформатика. Теоретичні основи: Учеб. посібник.- СПб.: СЗТУ. 2002.
. Офіцерів Д.В. та ін Програмування на персональних ЕОМ: Практикум: Навчальний посібник.-Мн.: Виш.шк., 1993.
. Савельєв І.В. Курс загальної фізики, т.1: Навчальний посібник.- 2-е вид., Перераб.- М.: Наука. Головна редакція фізико-математичної літератури, 1982.
. Симонович С.В. та ін Інформатика. Базовий курс.- СПб.: Питер, 2003.
. Фаронов В.В. Турбо Паскаль 7.0. Початковий курс. Навчальний посібник.- М.: «Нолидж», 1997.
Додаток А
Лістинг програми
Program Kyrsovaia; crt; c1=4.2; c2=2.375;=1000; r2=1017; auto=record: string;: real;:real;:real;:real;:real;;=record:string;:real;:real;:real;:real;;I,PRVI,PRVV:integer;,oldCar:auto;:jidkosti;:file of auto;: file of jidkosti; Vichisl (m: string; oldCar: auto); rasch: jidkosti; (f); not eof (f) do read (f, rasch);. namecar:=m;. sekrashvoda:= (oldCar.moschnost * oldCar.KPD) /
(c1 * (oldCar.tvih-oldCar.tvhod));. sekrashtosol:=(oldCar.moschnost * oldCar.KPD) /
(c2*(oldCar.tvih-oldCar.tvhod));.sekteplvoda:=oldCar.nasos*r1*c1*(oldCar.tvih-oldCar.tvhod);.sektepltosol:=oldCar.nasos*r2*c2*(oldCar.tvih-oldCar.tvhod);(f,rasch);(f);;(«Расчет успішно проведений »);; Proverka (var I: integer; m: string; PRVV: integer;
oldrasch: jidkosti; car: auto); oldCar: auto; VR, j: integer; (t, «fl1.txt»); (t); VR:=0; not eof (t) do (t, oldCar); m=oldCar.name thenI of 1: PRVV:=1;
: begin Vichisl (m, oldCar); VR:=1; end;
: begin
write ("?");
for j:=1 to 15 do
write ("?");
write ("?");
for j:=1 to 8 do
write ("?");
write ("?");
for j:=1 to 4 do
write ("?");
write ("?");
for j:=1 to 3 do
write ("?");
write ("?");
for j:=1 to 4 do
write ("?");
write ("?");
for j:=1 to 5 do
write ("?");
write ("?");
for j:=1 to 7 do
write ("?");
write ("?");
for j:=1 to 7 do
write ("?");
write ("?");
for j:=1 to 8 do
write ("?");
write ("?");
for j:=1 to 8 do
write ("?");
write ("?");
