Programlama | Programlama Dilleri | C Programlama Dili |C++

Hata
  • XML Parsing Error at 1:82. Error 9: Invalid character


Kenarlar?na Göre Üçgenleri S?n?flayan Fonksiyon

Haskell programlama dilinde yaz?lm?? bu fonksiyonda argüman olarak bir data yap?s? al?nm??t?r. Bu fonksiyonda uygun tipte girilen üçgenlerin hangi tür üçgenler oldu?u hesaplanm??t?r. Hesaplanabilen üçgen türleri aralar?ndaki kenar durumlar?na göre dik üçgen, ikizkenar üçgen, çe?itkenar üçgen, e?kenar üçgen olabilmektedir.

Ör :

getsat [(S 3 4 5),(S 4 5 6),(S 7 7 7),(S 7 6 7)]
["Dik","Cesit","Eskenar","Ikizkenar"]

Program Kodu :

  1.  
  2.  
  3. data Triangle = S Int Int Int
  4. getsat :: [Triangle] -> [String]
  5. getsat []     = []
  6. getsat (x:xs) = [control x] ++ getsat xs
  7.  
  8. control :: Triangle -> String
  9. control (S a b c) 
  10.                 | (a==b) && (b==c)                                                          = "Eskenar"
  11.                 | (a==b) || (b==c) || (a==c)                                                  = "Ikizkenar"
  12.                 | (((a*a)+(b*b))== c*c)|| (((a*a)+(c*c))== b*b) || (((b*b)+(c*c))== a*a)    = "Dik"
  13.                 | otherwise                                                                    = "Cesit"
  14.  
  15.  

Yorumlar (0)
Sadece kayıtlı kullanıcılar yorum yazabilir!
 
amınıza koyayım amınıza koyayım amınıza koyayım amınıza koyayım amınıza koyayım amınıza koyayım