Нарисовать дорожный знак - Pascal ABC

  1. Доброго времени суток. Помогите, пожалуйста, нарисовать дорожный знак "Конец главной дороги" в Паскаль ABC.


textual

Код к задаче: «Нарисовать дорожный знак - Pascal ABC»

uses graphABC;
var c,a,b,u,r,x1,y1,x2,y2,i:integer;
begin
setwindowsize(500,500);
centerwindow;
c:=250;//центр окна
a:=200; //половина длины диагонали ромба
b:=20; //отступ от углов
u:=55; //половина угла закруглния
r:=30; //радиус закругления
setpenwidth(4);//толщина линий
line(c-a,c-b,c-b,c-a);
line(c+b,c-a,c+a,c-b);
line(c+a,c+b,c+b,c+a);
line(c-b,c+a,c-a,c+b);
arc(c,c-a+b+2,r,90-u,90+u);
arc(c+a-b-2,c,r,360-u,u);
arc(c,c+a-b-2,r,270-u,270+u);
arc(c-a+b+2,c,r,180-u,180+u);
a:=150;
b:=10;
u:=40;
r:=15;
setpenwidth(2);
line(c-a,c-b,c-b,c-a);
line(c+b,c-a,c+a,c-b);
line(c+a,c+b,c+b,c+a);
line(c-b,c+a,c-a,c+b);
arc(c,c-a+b+1,r,90-u,90+u);
arc(c+a-b-1,c,r,360-u,u);
arc(c,c+a-b-1,r,270-u,270+u);
arc(c-a+b+1,c,r,180-u,180+u);
floodfill(c,c,clYellow);
a:=(a+b) div 2;
x1:=c-a-b;y1:=c+a-b;
x2:=c+a-b;y2:=c-a-b;
for i:=1 to 5 do
 begin
   line(x1,y1,x2,y2);
   x1:=x1+5;y1:=y1+5;
   x2:=x2+5;y2:=y2+5;
 end;
end.

СДЕЛАЙТЕ РЕПОСТ

9   голосов, оценка 3.889 из 5



Похожие ответы
  1. Основания трапеции параллельны оси X, нижнее основание больше верхнего. Исходная точка, от которой начинается рисование трапеции, сверху справа. Задаем длины оснований трапеции N и K, высоту h, и координаты X1,Y1 одной вершины. Вычисляем координаты второй, третьей и четвертой вершин X2,Y2, X3,Y3, X4,Y4. Рисуем трапецию с помощью операторов Line по координатам четырех точек. Дополнительно необходимо нарисовать окружность, радиусом 5 пикселей, в точке Х1, Y1. (Примечание: для вычисления координат точек используется целочисленное деление DIV).

  1. Напишите программу с рисунком в Pascal ABC любым из 2 задания.

  1. 68. Нарисовать конус, заполненный на половину водой.

  1. 66. Нарисовать звезду на экране.

  1. 74. Нарисовать увеличение круга на экране.

  1. 1.Нарисовать вращающийся треугольник 2.Составить программу, которая спрашивает у пользователя, в каком направлении должен двигаться шар: 1 – по горизонтали, 2 – по вертикали и какого цвета; и показывает нужное направление движения. 3.Написать программу, которая спрашивает у пользователя, как должен вести себя шар: 1 –расти из центра до границ экрана или 2 – уменьшаться от границ экрана к центру и его цвет; и показывать соответствующее изменение шарика.

  1. Нарисовать этот дорожный знак.

  1. Пользователь вводит число (сторону квадрата или сторону домика), необходимо нарисовать домик с крышей Собственно не знаю как нарисовать крышу. Также необходимо сделать окошко у домика (просто квадрат тоже). Вот так рисует тело дома:

  1. Нарисовать N кругов с радиусом от 5 до 50 в случайном месте случайным цветом в рамке.

  1. Помогите нарисовать рисунок.Самая проблема нарисовать 2 круг со штриховкой