Системы автоматизированного конструирования. Толстоба Н.Д. - 19 стр.

UptoLike

Составители:

Рубрика:

)

;многооператорный if:

(if (= num_file 1)

(progn

(setq f_name "Table_3.txt")

;создаем список

(setq spisok (list a b c))

)

;иначе

(progn

(setq f_name "Table_4.txt")

;создаем список

(setq spisok (list b c a))

)

Циклические конструкции

Для организации цикла с предусловием используется следующая конструкция:

(while (<= a 10)

(some-func a)

(setq a (1+ a))

)

Для организации пошагового цикла с предусловием используется следующая

конструкция:

(repeat 4

(setq a (+ a 10))

(setq b (+ b 10))

)

Селективные конструкции

Когда необходимо предусмотреть большое количество разнообразных вариантов,

то можно использовать конструкцию cond строго соблюдая пунктуацию, показанную ниже:

(cond

((= s "Y") 1)