/i/Yazılım

Umuyoruz ki geleceğin yazılımcıları bu altinciden çıkacak!
    başlık yok! burası bom boş!
  1. 1.
    0
    beyler bu kodun iflerinde hata alıyorum var mı yardım edebilecek

    (print "Hasta Sayisini Giriniz")
    (setq HastaSayisi (read))
    (setq gelir 0)
    (loop for i from 1 to HastaSayisi do
    (print "Guvence seciniz:")
    (print "1-SSK")
    (print "2-Emekli")
    (print "3-Bagkur")
    (print "4-Diger")
    (setq Guvence (read))
    (print "Kalinacak gun sayisini giriniz")
    (setq Gun (read))
    (if(eq Guvence 1))
    (setq gelir + (* 5 Gun) gelir)
    (if(eq Guvence 2)
    (setq gelir + (* 6 Gun) gelir))
    (if(eq Guvence 3)
    (setq gelir + (* 7 Gun) gelir))
    (if(eq Guvence 4)
    (setq gelir + (* 10 Gun) gelir))
    )
    (print gelir
    ···
  1. 2.
    0
    up up up
    ···
  2. 3.
    0
    up up up
    ···