Sergej Kurakin aka ZaZa - WEB-developer
Задача №1: решил через 2 процедуры
tai startas
eisim
eik.į [-277 -30]
žvelk 90
eik
taškas
tai eik
jeigu spalva.po <> 12 [priekin 5 keisk.kadrą kadras + 1 lauk 50 eik]
taškas
Задача №2: одна маленькая процедура (спрашивает имя и фамилия и потом выводит имя ввиде цветочка, и фамилию в столбик 10 раз)
tai startas
eisim
vvl
teksto.statos [Arial][12 400 0 0 0]
tebus “vardas ( dialogas [Vardas ?] )
tebus “pavarde ( dialogas [Pavardė ?] )
ppsp bet.koks 15
kartok 8 [piešk.tekstą :vardas kairėn 360 / 8]
ppsp bet.koks 15
eik.į [20 50]
žvelk 0
kartok 10 [priekin 20 piešk.tekstą :pavarde]
taškas
Задача №3: Тут я запарился, но начал хорошо. Она посмотрела и сказала что хорошо, только надо поправить, а потом компьютер сглюкнул и всё пропало. Мне защитали так, за идею.
Задача №4: Опять 2 процедуры. Вроде легко, я совсем не понял.
tai startas
piešim
krv 0 [0 0 0 pš rodykis dėmesio naudosim.kadrus melas]
krv 1 [10 0 0 pš rodykis dėmesio naudosim.kadrus melas]
taškas
tai judom
rinkis kai.paspausta ~
[0 [es tik [0][eik.į pelė] tik [1][eik.į pelė + [10 10]]] ~
-1 [pð tik [0][eik.į pelė] tik [1][eik.į pelė + [10 10]]]]
judom
taškas
Правильность и отсутствие ошибок, а так-же то что вы получите хорошую оценку, использовав этот код, я не гарантирую.
Pranešimai:
(pranešimas [Hello!]) - langas su pranešimu, viskaskita kaip pas dialoga, išskirus teksta pagal nutilejimą.
Išvedimas:
rašyk [tu tu tu] - parašo ir perkelia
rodyk [tu tu tu] - parašo ir palieka ten pat
parodyk - parodo visa struktura
spausdink.eilutę - atspausdyna eilutes (spel)
piešk.tekstą [zaza] - piešia tekstą
teksto.statos - šriftas, spalva, dydis - dialogas
(далее…)
В университете, на полном серьёзе начали преподавать Comenius Logo. Так, главное без стесняния, как серьёзный язык, и почти серьёзный графический редактор. Правда с маленькой поправкой, что оно на детей расчитано. Как вы видели - даже была контрольная.
Для начала заметим, что всё это дело переведано на гос. язык - Литовкий и все команды с литовкими национальными символами. Причём придирчего офигено. Вместо “ė” - “e” в слове “kairėn” (налево) не напишешь - прикинеться тупым, и не пропустит…
А далее пойдёт набор комманд, как памятка, для себя:
Вычистить экран (сокращение): vvl
Объявление переменной: tebus “varname varvalue (для использования переменной :varname)
Для того что бы начать рисовать: piešim
Для того что бы перестать рисовать: eisim
N шагов вперёд: priekin N
N шагов назад: atgal N
Поворот на N ° вправо: dešinėn N
Поворот на N ° влево: kairėn N
Цикл на N раз (N считывается вначале цикла): kartok N [ выражения ]
Для того что бы закрасить какой либо законченный объект, нужно войти в него, выбрать цвет (команда pasirink.spalvinimo.spalvą, цвета от 0 до 16 ), заставить его покрасить (команда: spalvink)
Для выбора цвета линии: pasirink.pieštuko.spalvą и нимер цвета с 0 до 16
А процедуры пишут там, через какой-то объект эксплорер… Ага - хватит ахинеии, да?