Как сделать гусеницу в паскале
setsh 13 + random 4
rt -40 + random 80 fd 5
make «L fput pos :L
[-3,55936 23,384641] [-0,086069 19,787942]
[0,523278 14,825211] [1,391519 9,901172]
pu setpos last :L pd stamp
pu setpos first :L
op (and xcor < 300 xcor > -300 ycor
setsh 13 + random 4
rt -40 + random 80 fd 5
make «L fput pos :L
Обратите внимание на его расцветку, она задается переменными red, green и blue. В приведенном примере красный цвет пропорционален текущему радиусу малого круга и проявляется только на и рожках, зеленый пропорционален i, что дает поперечные полосы, а синий зависит от произведения i * j и проявляется в виде голубых полосок.
Теперь внесем при вычислении RR0 за счет добавления еще одного слагаемого: Мы получим картинку с «утолщениями», явно претендующую на то, чтобы Зигмунд Фрейд предлагал ее своим пациентам для диагностики психических отклонений.
Закомментируйте строку и уберите комментарий со строки .
Опыты со слагаемым RR1 наиболее эффектны — попробуйте поменять множитель при синусе (60), множитель при t и показатель степени, в которую возводится синус (второй параметр функции IntPower). Вы будете вознаграждены появлением на экране загадочных существ. Однако подбираемся к главному — еще более усложним формулу вычисления для RR0, а именно добавим еще одно слагаемое с произведением синусов в разных степенях: Чтобы «запустить» эту формулу, раскомментируйте строку . 
Первое слагаемое с RR1 дает уже рассмотренные нами утолщения «туловища», а вот второе — рожки на торе, или, точнее, уже на гусенице. Причем множитель при s дает количество рожек на малом круге, множитель при t — на большом круге, показатели степени определяют плавность или крутизну рожек, а передний числовой множитель (60) — их высоту.
Давайте сделаем нашу гусеницу «более лохматой». Для этого раскомментирум строку . 
Если показатель степени при синусе нечетный, то отростки будут не только наружу, но и внутрь, придавая существам на экране довольно мерзопакостную внешность. По правде говоря, наша виртуальная гусеница получилась не столько с рожками, как было заявлено, сколько с колючками. 
Основы программирования
Доставка цветов и букетов в Электросталь dostavka-byketov.ru.
Рейтинг
Архив
-
(1) (1) (1) (1) (1) (1) (1) (3) (3) (3) (1) (1)
Движение гусеницы
Задача : создать приложение, выводящее на экран анимированное изображение
Использованный API : .NET Framework 3.5
Язык : Visual C#
Среда разработки : MS Visual Studio 2008
Процедура Line. “Звезды на экране”
Программа выводит на экран 12 «звездочек», каждая из которых содержит по 10 линий.
Координаты центральной точки каждой звездочки задаются случайным образом в диапазоне от 100 до 500 (400 + 100) пикселей.
Цвет также задается случайным образом.
Длина линий может быть до 20 пикселей и меньше.
Для вывода линии на экран используется процедура Line.
Процедура Circle. “Разноцветные окружности”
g, h, i, x, y, r: integer;
for i := 1 to 30 do begin
x := random(1000) + 100;
y := random(800) + 100;
Программа выводит на экран 30 окружностей разным цветом в разных местах окна.
Для вывода окружности на экран используется процедура Circle, которая принимает три параметра – координаты центральной точки и радиус окружности. В данном коде они определяются случайным образом с помощью функции random.
Прямоугольники. Процедуры Rectangle, Bar и Setfillstyle
Модуль Graph включает несколько процедур для вывода на экран прямоугольников. Самая очевидная из них – это rectangle. Данная процедура принимает четыре параметра – координаты верхнего левого и нижнего правого угла. В результате получается прямоугольник без заливки. Цвет контура можно задать с помощью процедуры setcolor до того, как будет вызвана процедура rectangle.
Другой способ построения прямоугольников – это использование процедуры bar. В отличие от rectangle она выводит заполненный прямоугольник. Способ заливки и цвет задается с помощью процедуры setfillstyle, первый параметр которой – это стиль заливки (от 0 до 12, см. таблицу стилей заливки), а второй – цвет (от 0 до 15, см. таблицу цветов).
For Informatics
var x, y: integer;
begin
Window.SetSize(256, 256); //Задаем размер окна
//Проходим по всем точкам окна и закрашиваем их
for x := 0 to 255 do
for y := 0 to 255 do
setpixel(x, y, rgb(x, 150, y));
end.
Команда setpixel(x, y, rgb(x, 150, y)); позволяет задавать цвет каждого пикселя в зависимости от его позиции на экране.
Попробуйте заменить строчку setpixel(x, y, rgb(x, 150, y)); на : setpixel(x, y, rgb(x, y, x+y)); setpixel(x, y, rgb(x, y, x*y));
Простая анимация с помощью sleep. Рисуем луну
uses GraphABC;
var x: integer;
begin
Window.SetSize(800, 600);
Window.Clear(clDarkBlue);
LockDrawing;
for x := 550 downto 150 do
begin
Brush.SetColor(clGold); // рисуем диск Луны
FillCircle(400, 200, 100);
Brush.SetColor(clDarkBlue); // рисуем темно-синюю тень
FillCircle(x, 200, 100);
Redraw;
sleep(10); // задержка в 10 милисекунд
end;
end.
Команда sleep(10) создает задержку в 10 милисекунд.
Команды LockDrawing и Redraw обеспечивают анимацию без «мерцания»
Попробуйте убрать команды LockDrawing и Redraw из программы. Посмотрите, что получилось?