(define x +)
(define y 1)
(define z 2)
(define w -)
Archiv pro štítek: PP
ukol01_priklad03_reseni
(define pyramid
(lambda (d v)
(let ((a (* d (/ (sqrt 2) 2))))
(* a (+ a (sqrt (+ (* 4 (* v v)) (* a a))))))))
ukol01_priklad04_reseni
(define my-negative_01?
(lambda (x)
(if (< x 0) #t #f)))
(define my-negative_02?
(lambda (x)
(< x 0)))
ukol01_priklad05_reseni
(define my-proc
(lambda (x)
(cond ((> x 0) (+ x 2))
((= x 0) (+ x))
((< x 0) (- x 2)))))
ukol01_priklad01
Přepište následující výraz do prefixové notace.
Nápověda: Procedura počítající přirozený logaritmus je navázaná na symbol log.
ukol01_priklad02
Vytvorte vazby na symboly x, y, z, w tak, aby následující symbolické výrazy vracely dané
hodnoty:
> (x y z)
3
> (w y (x y y))
-1
ukol01_priklad03
Vytvořte proceduru pyramid pocítající povrch pravidelného ctyrbokého jehlanu. Tato
procedura očekává dva vstupní parametry, délku úhlopříčky podstavy d a výšku v jehlanu.
Pro výpočet povrchu P využijte tento vztah:
kde
Příklad použití:
> (pyramid 1 1)
2.0
ukol01_priklad04
Vytvořte proceduru (predikát) my-negative?, která zjistí, zdali je argument záporné číslo.
Příklady použití:
> (my-negative? -2)
#t
> (my-negative? 4)
#f
ukol01_priklad05
Vytvorte proceduru my-proc realizující funkci f definovanou následovně:
Příklady použití:
> (my-proc 1)
3
> (my-proc 0)
0
> (my-proc -1)
-3
ukol01_priklad06
Vytvorte proceduru implies, která realizuje pravdivostní funkci logické spojky implikace.
Príklady použití:
> (implies #f #f)
#t
> (implies #f #t)
#t
> (implies #t (> 2 3))
#f
> (implies (< 2 3) +) #t > (implies cons even?)
#t