Графическое программирование на Ms Fortran
Категория реферата: Рефераты по информатике, программированию
Теги реферата: изложение 8 класс, рефераты бесплатно
Добавил(а) на сайт: Janutan.
Предыдущая страница реферата | 12 13 14 15 16 17 18 19 20 21 22 | Следующая страница реферата
real kr,kc
character*12 ValElem
character*6 vl
character*1 one
record /videoconfig/ vc ! Подключ. структуры videoconfig
record /rcCOORD/ rc ! и rccoord, определенных в файле fgraph.fd
call ClearScreen($GCLEARSCREEN)! Очистка экрана
call GetVideoConfig(vc) ! Определение видеоконфигурации
nx=vc.NumXPixels ! см. файл fgraph.fd
ny=vc.NumYPixels ! см. файл fgraph.fd
nr=vc.NumTextRows ! см. файл fgraph.fd
nc=vc.NumTextCols ! см. файл fgraph.fd
i2=SetBkColor($GRAY) ! Установка цвета фона
i2=SetColor(2) ! Цвет рисования зеленый
i2=SetTextColor(6) ! Цвет текста красный
kr=0.8
kc=0.75
call SetTextWindow(Int(kr*nr)+2,2,nr-1,Int(kc*nc)) ! Текстовое окно
i2=rectangle($GBORDER,1,Int(kr*ny),Int(kc*nx),ny-1)! Рамка области ввода
do i=1,3
do j=1,3
call SetTextPosition(1,2,rc) ! Установка начальной позиции
write(vl,11) i, j ! Помещение индексов массива в буфер (внутренний файл) (по формату 11)
call OutText(' Ведите элемент массива А'//vl)
ValElem=' ' ! Символьное обнуление
Рекомендуем скачать другие рефераты по теме: 1 класс контрольная работа, диплом школа.
Предыдущая страница реферата | 12 13 14 15 16 17 18 19 20 21 22 | Следующая страница реферата