Dr Racket Ders Notu

yorumsuz
565 kez okundu

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


Sosyal Medyada Paylaş Facebook Twitter Google+
Etiketler: , , ,
Eklenme Tarihi: 28 Kasım 2014

Facebook Yorumları

Konu hakkında yorumunuzu yazın


Time limit is exhausted. Please reload the CAPTCHA.