Claw.ru | Рефераты по информатике, программированию | Графическое программирование на Ms Fortran Графическое программирование на Ms Fortran | Категория реферата: Рефераты по информатике, программированию | Теги реферата: изложение 8 класс, рефераты бесплатно | Добавил(а) на сайт: Janutan. Предыдущая страница реферата | 2  3  4  5  6  7  8  9  10  11  12 | Следующая страница реферата

Пример работы с координатными системами. Приведены стандартная головная программа и п/п.

$DEBUG          ! Производит дополнительные проверки при компиляции

include 'fgraph.fi'      ! Включение интерфейсов графических

interface to function getch()

  integer getch[C,alias:’_getch’]

end

program    graph_examples

implicit   NONE          ! Запретить неявное объявление типов

integer *2 dum           ! Фиктивная переменная

integer getch[EXTERN]

include    'fgraph.fd'   ! Объявление типов графических функций

dum=setvideomode($MAXRESMODE)  ! Установить видеорежим с максимальным разрешением

call graph_win()

dum=getch() ! Задержка до нажатия любой клавиши

dum=setvideomode($DEFAULTMODE) ! Установить предыдущий видеорежим

end

subroutine graph_win()

include    'fgraph.fd'

integer*2 dum

!      DOUBLE PRECISION dg,dv,maxdim,xcen,ycen

real*4 dg,dv,maxdim,xcen,ycen

record /xycoord/xy

record /videoconfig/vc

! Перемещение начала координат в точку (50,100)

call setvieworg(50,100,xy)

Рекомендуем скачать другие рефераты по теме: 1 класс контрольная работа, диплом школа.





Предыдущая страница реферата | 2  3  4  5  6  7  8  9  10  11  12 | Следующая страница реферата