Dr Racket Ders Notu
Dr Racket derslerine kaldığımız yerden devam ediyoruz.Dersleri biraz karışık veriyorum, en son ilk baştan son haline doğru düzenleyeceğim.Bugün ki dr racket konumuz bir öğrencinin genel not ortalamasını hesaplamak veya numarasını soy adını verilen bir değişkeni nasıl çekeceğimiz üzerine ek olarak birde iki nokta arasındaki uzaklığı hesaplayan bir fonksiyon yazacağız.
(define-struct student (name surname phone grades))
(student-name (make-student “aa” “nn” 213213 90))
(define std1 (make-student “asdsad” “nn” 213213 100))
(student-name std1)
;——————————————————————–
(define-struct point(x y z))
(define (distance a b)
(sqrt
(+
(sqr (- (point-x a) (point-x b)))
(sqr (- (point-y a) (point-y b)))
(sqr (- (point-z a) (point-z b))))))
(distance (make-point 4 5 6) (make-point 4 7 9) )
;——————————————————————–
;(define-struct student (name surname phone grades))
(define (newf std)
(if (>= (student-grades std) 75) ‘BC
‘DC))
(newf (make-student ‘deniz ‘demirel 130301047 78))
(newf std1)
;————————————————————————-
(define-struct newstudent (number name surname CEN133 CEN131 EEE101))
(define deniz(make-newstudent ‘130301047 ‘deniz ‘demirel 60 70 90))
(newstudent-CEN131 deniz)
(define (average std)
(/ (+ (newstudent-CEN131 std)
(newstudent-CEN133 std)
(newstudent-EEE101 std)) 3))
(average deniz)
;—————————————————–
(define (lettergrade std)
(cond [ (and (>=(average std) 85)
(<= (average std) 100)) ‘AA]
[ (and (>=(average std) 70)
(< (average std) 85)) ‘BA]))
(lettergrade deniz)
;——————————–
;2.yol
Etiketler: dr racket ders notları, dr racket ders notu, dr racket dersi, dr racket dersleri
Eklenme Tarihi: 28 Kasım 2014
Konu hakkında yorumunuzu yazın