Рефераты | Рефераты по информатике, программированию | Графическое программирование на Ms Fortran | страница реферата 7 | Большая Энциклопедия Рефератов от А до Я
Большая Энциклопедия Рефератов от А до Я
  • Рефераты, курсовые, шпаргалки, сочинения, изложения
  • Дипломы, диссертации, решебники, рассказы, тезисы
  • Конспекты, отчеты, доклады, контрольные работы

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

    $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 |




    Поделитесь этой записью или добавьте в закладки

       




    Категории:



    Разделы сайта




    •