Анимация в 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;

Объяснение кода листинга программы

  1. procedure stolb(x,y:integer); - объявление процедуры с именем stolb, которая принимает два целочисленных параметра x и y
  2. setpencolor(clred); - установка цвета кисти на красный
  3. setbrushcolor(clRed); - установка цвета заливки на красный
  4. setbrushstyle(bsSolid); - установка стиля заливки на сплошной (без просветов)
  5. rectangle(x-3,y,x+3,y2-50); - рисование прямоугольника с заданными координатами и размерами

Оцени полезность:

9   голосов , оценка 3.556 из 5
Похожие ответы