Предыдущая страница реферата | 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 | Следующая страница реферата

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