Вопрос написать программу 1/(a+3)-4b^2-c^3+5d

[серегаserg358]

//otvet.imgsmail.ru/download/208486574_0d3ca5e3d1818c0b7ff87d915ae39c21_800.jpg

 

[MazaHaka]

(define (y a b c d) (+ (/ 1 (+ a 3)) (* -4 b b) (* -1 c c c ) (* 5 d))) (let ( (a (begin (format #t "Enter a: ")(read))) (b (begin (format #t "Enter b: ")(read))) (c (begin (format #t "Enter c: ")(read))) (d (begin (format #t "Enter d: ")(read))) ) (format #t "Result: ~a " (exact->inexact (y a b c d)) ) )

 

[Enim]

Вот держи первая задача y:=1/(a+3) - 4*sqr(b) - sqr(c)*c + 5*d;