Графическое программирование на Ms Fortran
Категория реферата: Рефераты по информатике, программированию
Теги реферата: изложение 8 класс, рефераты бесплатно
Добавил(а) на сайт: Janutan.
Предыдущая страница реферата | 12 13 14 15 16 17 18 19 20 21 22 | Следующая страница реферата
if (registerfonts('D:MSLIB*.fon').LT.0) then ! инициализация
i2=registerfonts('C:MSLIB*.fon') ! шрифтов
end if ! библиотеки
i2=setfont("t'Helv Cyrillic'h18w8b"C) !Установка шрифта
! i2=settextcolor(2) ! Установка цвета текста
! nr=vc.numtextrows
! nc=vc.numtextcols
call moveto(xdin+40,ydin+10, xy)
call outgtext (' ¦ ¦ + +') ! Вывод текста в текущ. позицию
call moveto(xdin+30,ydin+30, xy)
call outgtext ('+ГЕбМГ +.+.')
call moveto(xdin+50,ydin+50, xy)
call outgtext (' 1998')
end
Пример использования функции Getch, возвращающей код нажатой клавиши.
! Программа печати кода нажатой клавиши
$debug
interface to function getch()
integer*2 getch [C, alias:'_getch'] ! Интерфейс Си функции
end
integer *2 getch [EXTERN]
integer *2 scod
integer i
do i=1,26 ! Отступ в 26 строк
print*
Рекомендуем скачать другие рефераты по теме: 1 класс контрольная работа, диплом школа.
Предыдущая страница реферата | 12 13 14 15 16 17 18 19 20 21 22 | Следующая страница реферата