Witam. Mam 2 pytania związane z tym językiem:
1. Jak zrobić tak, aby wylosować cztery liczby z zakresu 0-3 które się nie powtarzają?
2. Jak wygląda sprawa z wyświetlaniem polskich znaków? Da się wymusić ich wyświetlanie? W załączniku screen z wpisaniem zwykłego polskiego znaku (tylko "ó" wygląda normalnie).
Ad. 1. problem rozwiązany.
to losuj
make "odpowiedzi array 4
setitem 1 :odpowiedzi 0
setitem 2 :odpowiedzi 0
setitem 3 :odpowiedzi 0
setitem 4 :odpowiedzi 0
make "odpowiedzia array 4
setitem 1 :odpowiedzia 0
setitem 2 :odpowiedzia 0
setitem 3 :odpowiedzia 0
setitem 4 :odpowiedzia 0
until [((item 1 :odpowiedzi)+(item 2 :odpowiedzi)+(item 3 :odpowiedzi)+(item 4 :odpowiedzi))=4] [
make "odpowiedz random 4
if (item :odpowiedz+1 :odpowiedzi)=0 [
setitem :odpowiedz+1 :odpowiedzi 1
setitem ((item 1 :odpowiedzi)+(item 2 :odpowiedzi)+(item 3 :odpowiedzi)+(item 4 :odpowiedzi)) :odpowiedzia :odpowiedz
]
]
make "odpowiedz1 (item 1 :odpowiedzia)
make "odpowiedz2 (item 2 :odpowiedzia)
make "odpowiedz3 (item 3 :odpowiedzia)
make "odpowiedz4 (item 4 :odpowiedzia)
end