Студопедия

КАТЕГОРИИ:


Архитектура-(3434)Астрономия-(809)Биология-(7483)Биотехнологии-(1457)Военное дело-(14632)Высокие технологии-(1363)География-(913)Геология-(1438)Государство-(451)Демография-(1065)Дом-(47672)Журналистика и СМИ-(912)Изобретательство-(14524)Иностранные языки-(4268)Информатика-(17799)Искусство-(1338)История-(13644)Компьютеры-(11121)Косметика-(55)Кулинария-(373)Культура-(8427)Лингвистика-(374)Литература-(1642)Маркетинг-(23702)Математика-(16968)Машиностроение-(1700)Медицина-(12668)Менеджмент-(24684)Механика-(15423)Науковедение-(506)Образование-(11852)Охрана труда-(3308)Педагогика-(5571)Полиграфия-(1312)Политика-(7869)Право-(5454)Приборостроение-(1369)Программирование-(2801)Производство-(97182)Промышленность-(8706)Психология-(18388)Религия-(3217)Связь-(10668)Сельское хозяйство-(299)Социология-(6455)Спорт-(42831)Строительство-(4793)Торговля-(5050)Транспорт-(2929)Туризм-(1568)Физика-(3942)Философия-(17015)Финансы-(26596)Химия-(22929)Экология-(12095)Экономика-(9961)Электроника-(8441)Электротехника-(4623)Энергетика-(12629)Юриспруденция-(1492)Ядерная техника-(1748)

Порядок выполнения работы. 1. Изучите теоретический материал




1. Изучите теоретический материал.

2. Напишите модуль IntLib и вставьте в него две простые подпрограммы для целых чисел - процедуру и функцию:

unit IntLib; interfaceprocedure ISwap(var I,J: integer); function IMax(I,J: integer): integer; implementationprocedure ISwap; var Temp: integer; begin Temp:= I; I:= J; J:= Temp end; { конец процедуры ISwap } function IMax; begin if I > J then IMax:= I else IMax:= J end; { конец функции IMax } end. { конец модуля IntLib }

3. Наберите этот модуль, запишите его в файл INTLIВ.PAS, а затем скомпилируйте. В результате получите код модуля в файле INTLIВ.ТРU.

4. Оставьте модуль в том же каталоге, где находится следующая программа, которая использует модуль IntLib (текст программы также наберите в среде Borland Pascal):

program IntTest; uses IntLib; var A,B: integer; begin Write ('Введите два целочисленных значения: '); Readln (A,B); ISwap (A,B); Writeln ('A = ',A,' B = ',B); Writeln ('Максимальное значение равно ',IMax(A,B)); end. { конец программы IntTest }

5. Выполните программу IntTest.

6. Запишите текст программы, модуля и результатов работы программы в тетрадь для практических работ.

7. Выполните задание:

Даны действительные a, b, c. Получить

Использовать для нахождения min и max подпрограммы, находящиеся в модуле.

8. Ответьте на контрольные вопросы.

 

Форма отчёта: Отчет выполняется в тетрадях по практическим работам в письменном виде. Программа отлаживается в IDE Borland Pascal и в виде файлов копируется на сетевой диск или на дискету.

 

Содержание отчета:

1. Тема работы.

2. Цель работы.

По каждому из заданий:

3. Условие задачи.

4. Постановка задачи.

5. Текст программы и модуля на языке PASCAL.

6. Результаты расчетов (входные и выходные данные).

 

Система оценки: двухбалльная.

 

 

Контрольные вопросы

 

1. Что такое модуль?2. Каковы основные составные части модуля?3. Что собой представляет заголовок модуля?4. Как оформляется интерфейсная часть?5. Как оформляется реализационная часть?6. Как оформляется инициализационная часть?

 

Список использованной литературы

 

1. Голицина О.Л., Попов И.И. Основы алгоритмизации и программирования: Учебное пособие. - М.: Форум: Инфра-М, 2002.





Поделиться с друзьями:


Дата добавления: 2014-11-16; Просмотров: 359; Нарушение авторских прав?; Мы поможем в написании вашей работы!


Нам важно ваше мнение! Был ли полезен опубликованный материал? Да | Нет



studopedia.su - Студопедия (2013 - 2024) год. Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав! Последнее добавление




Генерация страницы за: 0.01 сек.