::: ::: Jazyk Scheme | Kvadratická rovnice

0 x hodnoceno

Kvadratická rovnice ve Scheme

Program vypočítá kořeny kvadratické rovnice (x) ze zadaných nenulových vstupních členů (a b c).


(define D
 (lambda (a b c)
  (- (* b b) (* 4 a c)) ))
(define K1
 (lambda (a b c)
  (/ (+ (- b) (sqrt (D a b c))) (* 2 a))))
(define K2
 (lambda (a b c)
  (/ (- (- b) (sqrt (D a b c))) (* 2 a))))
(D 10 30 20)
(K1 10 30 20)
(K2 10 30 20)
(newline)
(D 2 2 1)
(K1 2 2 1)
(K2 2 2 1)

sfksdfblůysldg

 


No comments

Reklama (sponzoruje chod webu)
Analytics
Created by E.Sc. Petr Mejzlik, DiS.           © 2009 - 2017 X-IDEA.cz          Tento web používá COOKIES