Demesio! Kaip sake man ryte Oksana, algoritmų koliokiumas bus pеnktadieni, 2005-11-18.
Внимание! Как мне утром сказала Оксана колёкиум по алгоритмам будет в пятницу, 2005-11-18.
Скачать теорию по Алгоритмам / Parsisiųsti Algoritmų teorija
Demesio! Kaip sake man ryte Oksana, algoritmų koliokiumas bus pеnktadieni, 2005-11-18.
Внимание! Как мне утром сказала Оксана колёкиум по алгоритмам будет в пятницу, 2005-11-18.
Скачать теорию по Алгоритмам / Parsisiųsti Algoritmų teorija
Demesio, MS Excelio užduotis lapkričio 23 dienai:
Внимание, задание для 23 ноября
Задача №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
Continue reading
В университете, на полном серьёзе начали преподавать 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
А процедуры пишут там, через какой-то объект эксплорер… Ага – хватит ахинеии, да?
tai parodykmirte :kiek :ilgis :mazilgis
kartok :kiek [dydeliskva :ilgis :mazilgis]
taškas
tai kvadratas :kraštinė
piešim
kartok 4 [priekin :kraštinė kairėn 90]
eisim
taškas
tai dydeliskva :kraštinė :mažam
kartok 4 [pasirink.pieštuko.spalvą 0 piešim priekin :kraštinė eisim dešinėn 90 kvadratas :mažam kairėn 45 priekin 20 pasirink.spalvinimo.spalvą 1 + bet.koks 15 spalvink atgal 20 kairėn 135]
taškas
Правильность и отсутствие ошибок, а так-же то что вы получите хорошую оценку, использовав этот код, я не гарантирую.
tai žiedas :žiedlapiai :linijų :linija :ilgis
tebus “kampas 360 / :žiedlapiai – 2 * :linijų
kartok :žiedlapiai [žiedlapis :linijų :linija :ilgis dešinėn :kampas]
taškas
tai žiedlapis :linijų :linija :ilgis
tebus “linija :linija
kartok :linijų [piešim priekin :linija eisim atgal :linija dešinėn 2 tebus “linija :linija + :ilgis]
taškas
Правильность и отсутствие ошибок, а так-же то что вы получите хорошую оценку, использовав этот код, я не гарантирую.