( if ( < a 0 )
( prompt "\nПеременная a меньше нуля" )
( prompt "\nПеременная a больше или равна нулю" ))
( IF ( >= d 0 )
( progn
( setq x1 ( / ( + ( * b -1 ) ( sqrt d ) )
( * 2 a ) )
( setq x2 ( / ( - ( * b -1 ) ( sqrt d ) )
( * 2 a ) )
( prompt "\nX1=" )
( print x1 )
( prompt "\nX2=" )
( print x2 )
); конец progn
( prompt "\nДействительных корней нет" ); "иначе"
)
(if (= a b)
(progn
(setq a (+ а 10))
(setq b (- b 10))
)
)
(cond (тест1 результат1 ...)...)
(cond
((= s "Y") 1)
((= s "y") 1)
((= s "Д") 1)
((= s "д") 1)
((= s "N") 0)
((= s "n") 0)
((= s "Н") 0)
((= s "н") 0)
( cond
( c1 f11 f12 ... f1n1 )
( c2 f21 f22 ... f2n1 )
...
( cm fm1 fm2 ... fmnm )
)
( setq a ( getint "\n1 - фаска, 2 - галтель, 3 - выточка" ) )
( cond
( ( = a 1 ) .... ); фаска
( ( = a 2 ) .... ); галтель
( ( = a 3 ) .... ); выточка
)
( setq flag ( not
( or ( <= a 0 ) ( <= b 0 ) ( <= c 0 ) ) ) )
( setq flag nil )
( cond
( ( > a 0 ) ( setq flag T ) )
( ( > b 0 ) ( setq flag T ) )
( ( > c 0 ) ( setq flag T ) )
)