Помогите пожалуйста. Мне нужно в программе pascal abc составить картину на любую тему. вот что нужно написать обязательно:EllipseSetPenColorSetBrushColorRectangleлинияовалПожалуйста!!!!!! там мне не нужно, чтобы что-нибудь дв...
Помогите пожалуйста. Мне нужно в программе pascal abc составить картину на любую тему. вот что нужно написать обязательно:
Ellipse
SetPenColor
SetBrushColor
Rectangle
линия
овал
Пожалуйста!!!!!! там мне не нужно, чтобы что-нибудь двигалось. Мне нужна обычная!!))
Там к примеру: солнце, небо, облака, дорога, трава, дерево, машина)) Можете свое)
Гость
Ответ(ы) на вопрос:
Гостьprogram pr1;
uses graph,crt;
var gd,gm:integer;
begin gd:=0;gm:=0;
initgraph(gd,gm, 'c:\bp\bgi');
setcolor(12);
circle(200,200,50);
line(200,202,200,175); line(200,202,180,202);
arc(200,150,0,180,15);
line(190,250,155,265); line(210,250,240,265); line(155,265,240,265); outtextXY(193,155,'12'); outtextXY(195,235,'6'); outtextXY(235,200,'3'); outtextXY(155,200,'9');
readln; readln;
closegraph;
end.
Не нашли ответ?
Похожие вопросы