if prompt nПеременная меньше нуля prompt nПеременная больше или равна

( 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 ) )
 )