Графическое программирование на Ms Fortran
Категория реферата: Рефераты по информатике, программированию
Теги реферата: изложение 8 класс, рефераты бесплатно
Добавил(а) на сайт: Janutan.
Предыдущая страница реферата | 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 | Следующая страница реферата