Разработка программы для построения кривых Серпинского i-го порядка
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: шпаргалки, решебник по алгебре
| Добавил(а) на сайт: Колобков.
Предыдущая страница реферата | 1 2 3 4 5 6 7 8 | Следующая страница реферата
( loop ( when ( > ( get-internal-run-time) fintime )
( return-from pause ) ) ) )
)
;;
;; Функция целочисленного деления
;;
(
defun div ( a b ) ( round ( / a b ) )
)
;;
;; Функция рисования прямой:
;; Параметры: <Direction> - направление рисования (0-7)
;; <Size> - длинна прямой
;;
(
defun Line( Direction Size )
( setq x Px y Py )
(
case Direction
( 0 ( setq x ( + x Size) ) )
( 1 ( setq x ( + x Size ) y ( - y Size ) ) )
( 2 ( setq y ( - y Size) ) )
( 3 ( setq x ( - x Size ) y ( - y Size ) ) )
( 4 ( setq x ( - x Size) ) )
( 5 ( setq x ( - x Size ) y ( + y Size ) ) )
Рекомендуем скачать другие рефераты по теме: оформление доклада титульный лист, рефераты.
Категории:
Предыдущая страница реферата | 1 2 3 4 5 6 7 8 | Следующая страница реферата
Главная