Анимация в Pascal - Pascal ABC (250553)
Формулировка задачи:
Нарисовать термометр, в котором температура постепенно увеличивается с -30 до +30 градусов, а затем приходит с +30 до -30 градусов.
Решение задачи: «Анимация в Pascal»
textual
Листинг программы
procedure stolb(x,y:integer);//рисование столбца begin setpencolor(clred); setbrushcolor(clRed); setbrushstyle(bsSolid);//вот это rectangle(x-3,y,x+3,y2-50); end;
Объяснение кода листинга программы
- procedure stolb(x,y:integer); - объявление процедуры с именем
stolb
, которая принимает два целочисленных параметраx
иy
- setpencolor(clred); - установка цвета кисти на красный
- setbrushcolor(clRed); - установка цвета заливки на красный
- setbrushstyle(bsSolid); - установка стиля заливки на сплошной (без просветов)
- rectangle(x-3,y,x+3,y2-50); - рисование прямоугольника с заданными координатами и размерами