• Помогите пожалуйста. Мне нужно в программе pascal abc составить картину на любую тему. вот что нужно написать обязательно:
    Ellipse
    SetPenColor
    SetBrushColor
    Rectangle
    линия
    овал
    Пожалуйста!!!!!!  там мне  не нужно, чтобы что-нибудь двигалось. Мне нужна обычная!!))
    Там к примеру: солнце, небо, облака, дорога, трава, дерево, машина))  Можете свое)

Ответы 1

  • 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.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years