Графическое программирование на Ms Fortran

| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: изложение 8 класс, рефераты бесплатно
| Добавил(а) на сайт: Janutan.

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 класс контрольная работа, диплом школа.

Claw.ru | Рефераты по информатике, программированию | Графическое программирование на Ms Fortran