Toplama İşlemi
Tanım
Basit bir programın amacı kullanıcı tarafından girilen iki adet reel sayının toplamını komut satırında ileti olarak göstermektir.
(setq birincisayı (getreal "toplama işlemi için birinci sayıyı giriniz ")) ;2
(setq ikincisayı (getreal "toplama işlemi için ikinci sayıyı giriniz ")) ;3
(setq toplam (+ birincisayı ikincisayı)) ;4
(terpri) ;5
(princ toplam) ;6
(terpri) ;7
)
Açıklamalar
1 Standart başlangıç satırında defun c: ile topla isimli yeni bir komut tanımlanır.
2 setq fonksiyonu komut içerisinde kullanılacak yeni bir değişken oluşturmak için kullanılır, burada birincisayı isimli değişken oluşturulmuştur. getreal fonksiyonu ile de "toplama işlemi için birincisayı sayıyı giriniz " mesajı verilerek oluşturulan değişkene kullanıcı tarafından bir değer girilmesi sağlanılmıştır.
3 Üstteki satırdaki olduğu gibi ikincisayı değişkenine getreal fonksiyonu ile bir değer girilmesi sağlanmıştır.
4 setq fonksiyonuyla oluşturulan toplam isimli değişkene + (toplama operatörü) fonksiyonu ile birincisayı değişkeni ve ikincisayı değişkeninin aritmetiksel toplamı atanmıştır. AutoLISP dahilinde kullanılacak aritmetiksel operatörler değişkenlerin önünde kullanılır.
5 terpri fonksiyonu verilecek mesajların öncesinde komut satırının temizlenmesinde kullanılır.
6 princ fonksiyonu ile toplam değişkeni mesaj olarak komut satırına yazılmıştır.
7 terpri fonksiyonu ile mesaj sonrasında komut satırının temizlenmesi sağlanır.
Örnek Lisp Dosyasını İndirin
003-dac.lsp