A InfoWiki wikiből
(Változatok közti eltérés)
(Új oldal, tartalma: „<cim cim1="TITAN-M Példák" cim3="KÖRÖK rekord" prev="titan:nfib" next="titan:lista" back="titan:titan-m"/>”) |
|||
| 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"/> | <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> | ||
A lap 2008. december 8., 21:58-kori változata
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
