mirror of https://github.com/2martens/uni.git
SE3-1: Aufgabe 1 geloest.
This commit is contained in:
parent
ca6fb5942a
commit
1c4d015147
|
@ -1 +1,34 @@
|
|||
#lang racket
|
||||
|
||||
#|
|
||||
SE 3 Funktional Blatt 1
|
||||
Abgebende: Jim 2martens, 2noack, 0giebel
|
||||
|#
|
||||
|
||||
; 1.1
|
||||
|
||||
(define (degreeToRadian degrees)
|
||||
(/ (* degrees pi) 180)
|
||||
)
|
||||
|
||||
(define (radianToDegree radians)
|
||||
(/ (* radians 180) pi)
|
||||
)
|
||||
|
||||
; 1.2
|
||||
(define (my-acos cosinus)
|
||||
; berechnen von alpha
|
||||
(atan
|
||||
; berechnen des tangens
|
||||
(/
|
||||
; berechnen des Sinus
|
||||
(sqrt (- 1 (sqr cosinus)))
|
||||
cosinus
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
; 1.3
|
||||
(define (nmToKM nauticMiles)
|
||||
(* nauticMiles 1.852)
|
||||
)
|
Loading…
Reference in New Issue