Разработка программы для построения кривых Серпинского i-го порядка
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: шпаргалки, решебник по алгебре
| Добавил(а) на сайт: Колобков.
Предыдущая страница реферата | 1 2 3 4 5 6 7 8 | Следующая страница реферата
(
defun InitGraph()
(
case *VMode*
( 4 ;320x200 Color
( mode 4 )
( setq *MaxX* 320 *MaxY* 200 *SquareSize* 128 ) )
( 16 ;640x350 Color
( mode 16 )
( setq *MaxX* 640 *MaxY* 350 *SquareSize* 128 ) )
( 18 ;640x480 Color
( mode 18 ) )
( 106 ;800x600 Color
( mode 106 106 800 600 )
( setq *MaxX* 800 *MaxY* 600 *SquareSize* 512 ) )
( t ( error Unsupported graphics mode: *VMode* ) )
)
)
;;
;; Функция реализует задержку на заданное время
;;
(
defun pause ( time )
( let ( ( fintime ( + ( * time internal-time-units-per-second )
( get-internal-run-time ) ) ) )
Рекомендуем скачать другие рефераты по теме: оформление доклада титульный лист, рефераты.
Категории:
Предыдущая страница реферата | 1 2 3 4 5 6 7 8 | Следующая страница реферата
Главная