www.wescheme.org
Aluksi koodataan ohjelma, joka laskee polynomin p(x)=x2 arvon.
1. Kirjoita vasemman puoleiseen kenttään:
; Neliön ala
(define (An x)
(* x x))
Aja ohjelma kirjoittamalla oikeanpuoleiseen (tai alapuolella) olevaan kenttään esimerkiksi (An 5)
2. Muuta ohjelmaa niin, että se laskee neliön piirin.
; Neliön piiri = pn
...
3. Kopioi muutettu toimiva ohjelma WordOnlineen jatkoksi.
4. Muuta ohjelmaa niin, että se laskee suorakulmion piirin.
; Suorakulmion pinta-ala = As
(define (As x y)
...
5. Tee ohjelma, joka laskee polynomin P(x) = 4x +3 arvon.
; Polynomin P(x) = 4x+3 arvo.
(define (P x)
6. Ohjelma, joka kysyy käyttäjältä muuttujan a arvon ja laskee polynomin
P(a) = a2 + 2a + 1 arvon
(require wescheme/fH1ca78qBw)
(define (polynominarvo a)
(+(+(sqr a)(* 2 a)1)))
(local [(define a (string->number (display-read "Lasketaan polynomin a^2+2a+1 arvo. Kirjoita arvo a"))) ]
(begin (display-value "Polynomin a^2+2a +1 arvo on: " (polynominarvo a))))
