Нужно нарисовать рисунок (грузовик) - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Рисунок 34 (грузовик) Заранее спасибо

Решение задачи: «Нужно нарисовать рисунок (грузовик)»

textual
Листинг программы
uses graph;
var x,y:integer;
begin
initgraph(x,y,'');
x:=getmaxX div 2;
y:=getmaxY div 2;
setfillstyle(1,15);
bar(0,0,2*x,2*y);
setfillstyle(1,0);
bar(x-150,y,x-10,y+50);
bar(x-100,y-100,x-40,y);
bar(x+10,y-90,x+60,y-20);
bar(x+10,y-20,x+100,y+50);
setcolor(0);
setlinestyle(0,0,3);
line(x-10,y+50,x+10,y+50);
line(x+60,y-90,x+100,y-20);
fillellipse(x-80,y+80,30,30);
fillellipse(x+40,y+80,30,30);
setfillstyle(1,15);
fillellipse(x-80,y+80,20,20);
fillellipse(x+40,y+80,20,20);
readln
end.

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

  1. Используется библиотека graph, которая предоставляет функции для работы с графиками.
  2. Переменные x и y инициализируются значением 0.
  3. Вычисляются координаты верхнего и нижнего правого углов грузовика.
  4. Устанавливается стиль заполнения баров (в данном случае, сплошная заливка).
  5. Рисуются бары, представляющие части грузовика.
  6. Устанавливается стиль линии (в данном случае, тонкая линия).
  7. Рисуется левая и верхняя сторона грузовика.
  8. Устанавливается цвет линии.
  9. Рисуются правая и нижняя стороны грузовика.
  10. Рисуется передняя и верхняя сторона грузовика.
  11. Устанавливается цвет заливки (в данном случае, светло-серая заливка).
  12. Рисуется задняя и нижняя сторона грузовика.
  13. Загружается изображение в виде эллипса.
  14. Загружается изображение в виде эллипса.
  15. Устанавливается стиль заполнения эллипсов (в данном случае, сплошная заливка).
  16. Устанавливается размер эллипсов.
  17. Рисуются передний бампер грузовика.
  18. Рисуется задняя часть грузовика.
  19. Устанавливается цвет заливки (в данном случае, темный цвет заливки).
  20. Выводится сообщение об окончании работы программы.

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

6   голосов , оценка 4 из 5