Titan:korok

(Változatok közti eltérés)

@@ 1. sor: / 1. sor: @@
-<cim cim1="TITAN-M Példák" cim3="KÖRÖK rekord" prev="titan:nfib" next="titan:lista" back="titan:titan-m"/>
-<code lang="csharp">
-struct Kor
-	Int x
-	Int y
-	Double sugar
-endstruct
-Kiiras(Kor,Kor) -> String
-Kiiras(a,b)
-  | ka < kb	= "Elso kor kisebb"
-  | ka == kb	= "Egyenlok"
-  | otherwise	= "Masodik nagyobb"
-  where
-	ka = Kerulet(a)
-	kb = Kerulet(b)
-Kerulet(Kor) -> Double
-Kerulet(k) = 2*PI*k.sugar
-</code>

Aktuális változat