Function Okr(r:Real):Real;
Function Kv(a:Real):Real;
Function Romb(a:Real):Real;
Function Tr(a,b,c:Real):Real;
Implementation
Function Okr; {обчислення площі кола}
Begin
Okr:=Pi*Sqr(r)
End;
Function Kv; {обчислення площі квадрата}
Begin
Kv:=a*a
End;
Function Romb; {обчислення площі ромба}
Begin
Romb:=0.5*a*a
End;
Function Tr; {обчислення площі трикутника}
Var p:Real;
Begin
p:=(a+b+c)/2;
Tr:=Sqrt(p*(p-a)*(p-b)*(p-c))
End;
End.
Unit Volume;
{модуль обчислення об’ємів}
Interface
Uses Area; {підключення модуля (тут не обов’язково!)}
Function Cil(r,h:Real):Real;
Function Kon(r,h:Real):Real;
Function Shar(r:Real):Real;
Implementation
Function Cil; {обчислення об’єму циліндра}
Begin
Cil:=Okr(r)*h
End;
Function Kon; {обчислення об’єму конуса}
Begin
Kon:=Okr(r)*1/3;
End;
Function Shar; {обчислення об'єму кулі}
Begin
Shar:=4/3*Pi*r*r*r
End;
End.
Program DemoUnit;
{демонстрація використання модулів}
Uses Crt,Area,Volume;
Var r,b,s:Real;
Begin
Write('ВВЕДІТЬ ЗНАЧЕННЯ R,B');ReadLn(r,b)
s:=0.5*Okr(r)+Kv(2*r)+0.5*Romb(b);
WriteLn('Площа фігури ',s:6:4,' кв. од.');
End.
Завдання щодо виконання лабораторної роботи
Завдання видається викладачем.
СПИСОК ЛІТЕРАТУРИ
1. Donald E. Knuth. The Art of Computer Programming, volume 3. Massachusetts: Addison-Wesley, 1973. Є російський переклад: Д.Кнут. Искусство программирования для ЭВМ. Т.3. Изд-во “Мир”, М.1978.
2. Сердюченко В.Я., Розробка алгоритмів та програмування мовою Turbo Pascal: Навчальний посібник для техн. Вузів/ Укр.мовою - Х.: ВКП "Парітет" ЛТД, 1995.
3. Бондарев В.М. и др., Основи программирования - Харьков: Фолио; Ростов н/Д:Феникс,1998.
4. Ж. Джонс, К. Харроу, Решение задач в системе Турбо Паскаль, М.: Финансы и статистика, 1991.
5. Бородич Ю.С., Вальвачев А.Н., Кузьмин А.И., Паскаль для персональных компьютеров, Минск:Высшая школа, 1991.
6. Поляков Д.Б., Круглов И.Ю., Программирование в среде Турбо Паскаль,М:МАИ А/О Росвузнаука, 1992.
7. Зуев Е.А., Язык программирования Turbo Pascal 6.0, 7.0. - М. Веста, Радио и связь. 1993.
8. Довгаль С.И.и др. Персональные ЭВМ: Турбо Паскаль v 6.0. Объектное программирование. Локальные сети. Киев,"Информ-система сервис", 1993.
9. Кунгурцев О.Б., Шапо Ф.С., Програмування в системі Турбо-Паскаль для персональних ЕОМ: Навч. посібник.- К.:НМК ВО, 1993.
10. Пильщиков В.Н., Сборник упражнений по языку Паскаль: Учеб. Пособие для вузов.- М.: Наука, 1989.
11. Абрамов С.А. и др., Задачи по программированию- М.: Наука, 1998.
12. Брудно А.Л., Каплан Л.И., Московские олимпиады по программированию, Москва, 1990.
13. Лашко Ю.В., Сидоренко В.Н., Титаренко В.С., Программирование в среде Turbo Pascal.: Учебно-метод. пособие, - Изд-во КфХГПУ, 1996.
14. Гученко Н.И., Киба В.С., Лашко Ю.В., Среда программирования Turbo Pascal.: Справ. Пособие к выполнению лаб., контр. и курсових работ, - Изд-во КфХГПУ, 1998.
15. Сортировка и поиск: Рецептурный справочник, Томас Ниман, Перевод с англійского П.Н.Дубнер, infoscope@glasnet. Ru,1998.
ПРОГРАМУВАННЯ МОВОЮ PASCALметодичні вказівки до практичних занять, виконання лабораторних робіт та самостійної роботи з дисциплін "Програмування" та "Алгоритмічні мови та програмування" для студентів зі спеціальностей: 7.091501 "Комп’ютерні системи та мережі" 7.091401 "Системи керування" денної форми навчання
Укладач Юрій Вікторович Лашко
Відповідальний за випуск В.Ю. Кучеренко
Видавничий відділ КДПУ Тираж примірників
