| Zobacz poprzedni temat :: Zobacz następny temat |
| Autor |
Wiadomość |
marcin1987a
Dołączył: 15 Paź 2008
Posty: 92
Przeczytał: 0 tematów
Ostrzeżeń: 0/5
|
 Wysłany: Śro 9:57, 03 Cze 2009 Temat postu: scheme odpowiedzi z kolosa |
|
|
Witam prosze o tyh którzy zdali paradygmaty albo jezeli ktos wie jak to zrobic o wystawianie poprawnych odpowiedzi z ostatniego kolosa jakie mieli , pomorzo to tym ktorzy nie zdali 
Post został pochwalony 0 razy
|
|
| Powrót do góry |
|
 |
|
|
 |
Dominik Gwóźdź
Dołączył: 20 Paź 2008
Posty: 102
Przeczytał: 0 tematów
Pomógł: 6 razy
Ostrzeżeń: 0/5
|
| Wysłany: Śro 11:22, 03 Cze 2009 Temat postu: |
|
|
zad. 1. wyszukiwanie najmniejszej wartości z listy
| Kod: |
(define (najmn lista min)
(if (empty? lista) min
(if (< min (first lista)) (najmn (rest lista) min)
(najmn (rest lista) (first lista)))
)) |
przykładowe wywołanie:
| Kod: |
| (najmn (list 9 3 5 6) 1000) |
Post został pochwalony 0 razy
Ostatnio zmieniony przez Dominik Gwóźdź dnia Śro 11:52, 03 Cze 2009, w całości zmieniany 1 raz
|
|
| Powrót do góry |
|
|
Dominik Gwóźdź
Dołączył: 20 Paź 2008
Posty: 102
Przeczytał: 0 tematów
Pomógł: 6 razy
Ostrzeżeń: 0/5
|
| Wysłany: Śro 11:52, 03 Cze 2009 Temat postu: |
|
|
zad. 2
| Kod: |
(define (cosinus x wynik n naktualne)
(if (> naktualne n) wynik
(cosinus x (* wynik (- 1 (/ (* x x) (* (* 3.14 3.14) (* (- naktualne 0.5) (- naktualne 0.5)))))) n (+ 1 naktualne)))) |
przykładowe wywołanie:
Post został pochwalony 0 razy
|
|
| Powrót do góry |
|
|
marcin1987a
Dołączył: 15 Paź 2008
Posty: 92
Przeczytał: 0 tematów
Ostrzeżeń: 0/5
|
| Wysłany: Śro 18:09, 03 Cze 2009 Temat postu: |
|
|
mam tylko pytanie czy moglbys opisac jak cos sie wykonuje w tym pierwszym programie , byłbym wdzięczny
Post został pochwalony 0 razy
|
|
| Powrót do góry |
|
|
Dominik Gwóźdź
Dołączył: 20 Paź 2008
Posty: 102
Przeczytał: 0 tematów
Pomógł: 6 razy
Ostrzeżeń: 0/5
|
| Wysłany: Śro 22:19, 03 Cze 2009 Temat postu: |
|
|
Chyba najlepiej jest zrozumieć te programiki odpalając program w trybie 'Debug' (poziom Advenced Student) i przyciskiem 'Step' możemy oglądać co się dzieje po kolei w programie.
Post został pochwalony 0 razy
|
|
| Powrót do góry |
|
|
marcin1987a
Dołączył: 15 Paź 2008
Posty: 92
Przeczytał: 0 tematów
Ostrzeżeń: 0/5
|
| Wysłany: Śro 23:50, 03 Cze 2009 Temat postu: |
|
|
hm szkoda tylko jak biore debug na advanced i przycisk step to mi sie nic nie dzieje
Post został pochwalony 0 razy
|
|
| Powrót do góry |
|
|
marcin1987a
Dołączył: 15 Paź 2008
Posty: 92
Przeczytał: 0 tematów
Ostrzeżeń: 0/5
|
| Wysłany: Pią 10:25, 12 Cze 2009 Temat postu: pomoc |
|
|
witam wszystkich mam pytanie na zajeciach mialem zadanie zsumowac tylko liczby dodatnie , oczywiscie dzieki operatorowi odd? działa to , ale bylo zeby nie stosowac operatorów wbudowanych czy ktos wie jak to zrobic oto przykladowy kod jaki zrobilem tylko ze jest problem bo if potrzebuje prawdy albo falsz prosze o pomoc jak ktos ma inny pomysl
| Cytat: |
(define lista ( list 1 2 3 4 ))
( define (suma lista)
(cond (( empty? lista) 0 )
(else
(if( / ( first lista) 2) (+ ( first lista) ( suma ( rest lista)))
( suma ( rest lista)))))) |
[/quote]
Post został pochwalony 0 razy
|
|
| Powrót do góry |
|
|
marcin1987a
Dołączył: 15 Paź 2008
Posty: 92
Przeczytał: 0 tematów
Ostrzeżeń: 0/5
|
| Wysłany: Sob 16:31, 13 Cze 2009 Temat postu: sumowanie dodatnich |
|
|
jakby sie komus przydalo to rozwiazlame to sumowanie dodatnich tylko liczb
bez uzycia operatora
oto ten kod
| Kod: |
( define lista ( list 1 2 3 4 5 ))
( define ( sumuj lista)
( cond (( empty? lista ) 0)
(else
( if ( > ( modulo ( first lista) 2 ) 0 ) ( sumuj ( rest lista))
( + ( first lista) ( sumuj ( rest lista))))))) |
Post został pochwalony 0 razy
|
|
| Powrót do góry |
|
|
|
FAQ
Szukaj
Użytkownicy
Grupy
Galerie
Rejestracja
Zaloguj się, by sprawdzić wiadomości
Zaloguj
