Lisp İki Geometrik Şekil Arasında Kalan Alanı Hesaplama

Önceki yazımda geometrik şekillerin alanını hesaplamayı göstermiştim. Bu yazımızda kenarları verilen şekillerin arasında kalan alanı hesaplayan fonksiyonu yazacağız.

İki Kare Arasındaki Alan

Öncelikle normal kare alanını hesaplayan fonksiyonumuzu yazıyoruz.

Daha sonra ise girilen kenar değerlerini sırayla kareAlanı fonksiyonuna gönderip alanlarını alıp birbirinden çıkarıyoruz.

; iki kare arasında kalan alanı bulma

(define (kareAlanı kenar)
  (* kenar kenar))

(define (aradakiAlan buyukKenar kucukKenar)
  (- (kareAlanı buyukKenar) (kareAlanı kucukKenar)))

(aradakiAlan 10 5)

İki Dikdörtgen Arasındaki Alan

Öncelikle dAlanı adında bir fonksiyon oluşturup dikdörtgenin alanını buluyoruz.

Daha sonra uKenar1 ile ilk gelen dikdörtgenin uzun kenarını kKenar1 ile ilk gelen dikdörtgenin kısa kenarını alıp alanını hesaplatıyoruz. Aynı işlemi ikinci dikdörtgen için de yapıyoruz. Kodu aşağıdaki gibidir:

; İki Dikdörtgen Arasındaki Alanı Bulma

(define (dAlanı uzunKenar kısaKenar)
  (* uzunKenar kısaKenar))

(define (aradakiAlanBul uKenar1 kKenar1 uKenar2 kKenar2 )
  (- (dAlanı uKenar1 kKenar1) (dAlanı uKenar2 kKenar2)))

(aradakiAlanBul 10 5 3 4)

İki Daire Arasındaki Alan

Öncelikle Pi değerini tanımlıyoruz isterseniz bu değeri fonksiyon içerisine direkt olarak da yazabilirsiniz.

Daha sonra dairenin alanını hesaplayan kodumuzu ekliyoruz.

Daha da sonra iki halkaAlanı fonksiyonu ile gelen iki dairenin alanlarının farkını alıyoruz.

(define Pi 3.1418)

(define (daireAlanı çap)
    (* Pi (* çap çap)))

(define (halkaAlanı dışÇap içÇap)
    (- (daireAlanı dışÇap) (daireAlanı içÇap)))

(halkaAlanı 12 8)

Umarım faydalı olmuştur. Kolay gelsin