lisp programlama dili

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.

İ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 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.

 

Umarım faydalı olmuştur. Kolay gelsin

Bir cevap yazın