Daire Alanı ve Çevresi Hesabı
Tanım
Bu programda yarıçapı girilen dairenin alanı ve çevresi hesaplanacak ve komut satırında gösterilecektir.
(setq yarıcap (getreal "Daire yarıçapını giriniz :")) ;2
(setq alan (* pi (expt yarıcap 2))) ;3
(setq cevre (* 2 pi yarıcap)) ;4
(terpri) ;5
(princ "Daire Alanı: ") ;6
(princ alan) ;7
(terpri) ;8
(princ "Daire Çevresi: ") ;9
(princ cevre) ;10
(terpri) ;11
)
Açıklamalar
1 Başlangıç satırında defun c: ile dac isimli yeni bir komut tanımlanır.
2 setq ile oluşturulan yarıcap isimli değişkene bir değer girilmesi sağlanır.
3 yarıcap değişkeninin expt fonksiyonu ile 2 derecen kuvveti (karesi) hesaplanır, bu değer ile pi değerinin çarpımı * fonksiyonu (çarpım operatörü) ile bulunur. Çarpımın sonucu ise alan değişkenine atanır.
4 * fonksiyonu ile yarıcap değişkeni, pi değeri ve 2 sayısının çarpılmasını sağlanır. Bulunan değer cevre değişkenine atanır.
5 Verilecek mesajdan önce komut satırı hazırlanır.
6 Komut satırında "Daire Alanı: " mesajının yazılması sağlanır
7 terpri fonksiyonu kullanılmadan yeni bir mesaj girildiğinden "Daire Alanı: " mesajının yanında hesaplanan alan değişkenin değeri yazılması sağlanır
8 Verilecek mesajdan önce komut satırı temizlenir.
9 Komut satırında "Daire Çevresi: " mesajı yazılır. 10 terpri fonksiyonu kullanılmadan yeni bir mesaj girildiğinden "Daire Çevresi: " mesajının yanında hesaplanan cevre değişkenin değeri yazılır.
11 Komut satırı temizlenir.
Örnek Lisp Dosyasını İndirin
004-cizim.lsp