Предыдущая страница реферата | 12  13  14  15  16  17  18  19  20  21  22 | Следующая страница реферата

! Программа установки текстового окна и ввода элементов массива

! Программа устойчива при некорректном вводе. Выход из программы осуществляется нажатием Esc

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

$STORAGE:2    ! Переменные и константы целого типа:2-х байтовые (integer*2)

$DECLARE      ! Генерация предупреждающих сообщений для необъявленных переменных

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

      interface to function getch()      ! Объявление ф-ции getch, ее

      integer getch [C, alias:'_getch'] ! атрибутов, типов формальных параметров

      end

      program    Demonstr_Text_Window ! Объявление головной программы

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

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

      include 'fgraph.fd' ! Объявление типов графических функций, объявление и задание параметров, определение структур (STRUCTURE) в каждой графической п/п

      i2=SetVideoMode($MAXRESMODE)  ! Установить видеорежим с max разрешением

      call SetTextWin()             ! Вызов п/п

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

      end

      subroutine SetTextWin()

      include    'fgraph.fd'

      integer  getch [EXTERN]  ! Функция возврата кода нажатой клавиши

      integer*2 i2

      integer*2 i, j, k, m

      integer*2 nr, nc          ! Max кол-во строк и столбцов

      integer*2 nx, ny         ! Max кол-во пиксел по X и Y

      real A(3,3)                 ! Вспомогательный массив

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



Предыдущая страница реферата | 12  13  14  15  16  17  18  19  20  21  22 | Следующая страница реферата

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