Lisp Dili Geometrik Şekillerin Alanı

Merhaba arkadaşlar. Bu yazımda Kare, Dikdörtgen, Daire ve Üçgen’in alanlarını hesaplayan fonksiyonları lisp dili ile yazacağız. Kareyi ele alarak başlayalım.

Kare Alanı Hesaplama

(define (karealan x)(if (< x 0) "Negatif sayı uzunluk olamaz "
                        (* x x)))

(karealan 5)

Gelen uzunluğun 0’dan büyük olması gerektiği için if şartımıza (< x 0) ifadesini ekledim.

Dikdörtgen Alanı Hesaplama

(define (dikdortgenalan x y) (if (< x 0) "Negatif uzunluk olamaz"
                         (if(< y 0) "Negatif Uzunluk olamaz"
                         (* x y))))
(dikdortgenalan 12 8)

Burada da iki tane değerimiz olduğu için her ikisi için de if yazıp negatif değer olup olmadığının kontrolünü sağladım.

Daire Alanı Hesaplama

(define (dairealan r)(if (< r 0) "Yarıçap negatif olamaz"
                         (* 3.14 r r)))
(dairealan 3)

Burada fonksiyon içerisine pi değerini 3.14 olarak ekledim. İsterseniz pi değerini kullanıcı tarafından alan bir fonksiyon da yazabiliriz.

(define (dairealan2 pi r)(if (< r 0) "Yarıçap negatif olamaz"
                             (* pi r r)))
(dairealan2 3 4)

Burada ise pi değerimizi 3 olacak şekilde biz yolladık.

Dik Üçgenin Alanı Hesaplama

(define (dikucgenalani alt dik)(/ (* alt dik) 2))

(dikucgenalani 4 6)

Bu kodda uzunlukların negatif olma durumunu yazmadım. Öncekiler ile aynı kod bakarak yazabilirsiniz. Tüm kodların çıktısını da hemen aşağı bırakıyorum.lisp ile geometrik şekillerin alanlarını hesaplama

 

 

Bunlara Göz Atmak İsteyebilirsiniz

Bir yanıt yazın

E-posta adresiniz yayınlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir