Графическое программирование на Ms Fortran
Графическое программирование на Ms Fortran
Курс лекций по дисциплине по специальности «ПГС» после техникума
Факультет – строительный; кафедры – «Металлические и деревянные конструкции» и «Железобетонные и каменные конструкции»
Задачи курса
Усвоение основных принципов разработки инженерных алгоритмов и графических программ, реализуемых в дальнейшем на различных языках программирования. Язык Fortran рассматривается не как самоцель, а как инструмент обучения программированию.
Литература
1) Уорд Т., Бромхед Э. Фортран и искусство программирования персональных ЭВМ. - М.: Радио и связь, 1993.-352с.
2) Программирование на Фортране 77/ Дж. Ашкрофт, Р. Элдридж и др. - М.: Радио и связь, 1990.-272с.
3) Бартеньев О.В. Фортран для студентов. - М.: "Диалог-МИФИ", 1999.-400с.
4) Рыжиков Ю.И. Программирование на Фортране Pоwer Statiоn для инженеров. Практич. рук-во. - СПб.: КОРОНАпринт, 1999.-160с.
5) Н.А Рак, В.И Смех, С.Б. Щербак Программирование инженерных задач на FORTRANе: Уч. методич. пособие по дисц. "Выч. техн. и программир." - Мн.: БГПА, 1998.-45с.
6) Соловьев П.В. FORTRAN для персонального компьютера: Справ. пособие. - М.: Арист, 1991.-224с.
7) Н.А Рак, В.И Смех, С.Б. Щербак Графическое программирование: Уч. методич. пособие по дисц. "Выч. техн. и программир." - Мн.: БГПА, 1997.-40с.
8) Бартеньев О.В. Графика OрenGL: программирование на Фортране. М.: ДИАЛОГ-МИФИ, 2000.-368с.
Этапы разработки графических программ
Для разработки графических программ на Fortran необходимо иметь в наличии библиотеки графических процедур, содержащиеся в файле Graphics.lib.
Разработка графических программ состоит из следующих этапов:
Подключение графической библиотеки
Установка видео режима
Установка среды изображения
Создание и управление графическими объектами
Восстановление первоначальной конфигурации перед выходом из программы
Графические процедуры представляют собой функции и подпрограммы. Каждая программа, использующая графическую библиотеку должна ЯВНО объявить процедуры. Отдельную используемую графическую процедуру можно объявить, написав ее интерфейс (смотри справку NORTON GUIDE). Сразу все графические процедуры можно описать, включив в программу файлы FGRAPH.FI и FGRAPH.FD. FGRAPH.FI – содержит объявление процедур в операторах INTERFACE (см. далее).
Оператор INTERFACE объявляет имя процедуры (функции), ее атрибуты и типы формальных параметров. Оператор используется для обеспечения корректности вызовов п/п. Компилятор выполняет проверку числа и типов параметров в вызове п/п с параметрами, указанными в интерфейсе.
Пример:
INTERFACE TO INTEGER FUNCTION Func (p, d, q)
Integer*2 p
Real d типы параметров
Real*8q
END
где: INTEGER – тип функции; FUNCTION – функция; Func – имя функции; p, d, q – формальные параметры.
Здесь объявлена целая функция (возвращающая целое значение) Func с тремя входными параметрами p, d, q. Вызов данной функции обычен:
K = Func (p,d,q)
INTERFACE TO ________________ SUBROUTINE Mix (a,b,c) – объявляет п/п (находится в библиотечном файле с расширением .LIB), находящейся в другом файле.
Вызов п/п обычен CALL MIX (a,b,c)
Файл FGRAPH.FD содержит объявления структурных и символических констант и объявлений операторов EXTERNAL для графических процедур.
Пример, кода файл FGRAPH.FD:
имя
структуры
STRUCTURE /videoconfig/
Integer*2 numxpixels
элементы структуры
а) Integer*2 numypixels
………………………. операторы объявления
типов и/или RECORD.
END STRUCTURE
б) INTEGER*2 setvideomode [extern] PARAMETER ($YELLOW = #153f3f)
в) EXTERNAL getvideoconfig
PARAMETER ($BRIGHTWHITE = #3f3f3f)
г) INTEGER*4$YELLOW,$BRIGHTWHITE
а) Определение составного типа переменной (структуры).
Обратиться к элементу структуры (для присвоения или получения значения) можно следующим способом:
X = videoconfig.numxpixels