Interface

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 "Системи керування" денної форми навчання

Укладач Юрій Вікторович Лашко

Відповідальний за випуск В.Ю. Кучеренко

Видавничий відділ КДПУ Тираж примірників

61