Как нарисовать оленя в pascal abc ?

3019011376 13 апр. 2021 г., 11:16:17

Uses graphABC ;

begin

setwindowsize(600, 500) ;

setbrushcolor(clMedGray) ;

Ellipse(320, 30, 490, 400) ;

Ellipse(120, 30, 300, 400) ;

setbrushcolor(clCream) ;

Ellipse(335, 40, 480, 380) ;

Ellipse(140, 40, 280, 380) ;

setbrushcolor(clMedGray) ;

Ellipse(100, 430, 500, 130) ;

setbrushcolor(clNavy) ;

Ellipse(250, 240, 200, 310) ;

Ellipse(350, 240, 400, 310) ;

setbrushcolor(clwhite) ;

Ellipse(240, 270, 220, 300) ;

Ellipse(360, 270, 380, 300) ;

setbrushcolor(clblack) ;

Ellipse(270, 330, 330, 370) ;

line(300, 370, 300, 400) ;

Arc(300, 280, 120, 220, - 40) ;

line(50, 350, 200, 350) ;

line(30, 340, 190, 340) ;

line(10, 330, 180, 330) ;

line(410, 330, 570, 330) ;

line(400, 340, 560, 340) ;

line(390, 350, 550, 350) ;

line(240, 230, 220, 150) ;

line(230, 230, 180, 80) ;

line(220, 230, 180, 150) ;

line(360, 230, 380, 150) ;

line(370, 230, 430, 80) ;

line(380, 230, 430, 150) ;

end.

Эта.

Nikitashapoval2 10 февр. 2021 г., 01:47:37 | 5 - 9 классы

Нужно написать программу на pascal abc?

Нужно написать программу на pascal abc.

EvGen4iK514 1 мар. 2021 г., 21:04:24 | 5 - 9 классы

Нужно написать программу на pascal abc?

Нужно написать программу на pascal abc.

Swetikk 23 июл. 2021 г., 00:55:34 | 5 - 9 классы

Нужно написать программу pascal abc?

Нужно написать программу pascal abc.

Lubasmirnova 3 сент. 2021 г., 22:27:11 | 5 - 9 классы

Помогите записать выражения на языке Pascal и вычислить их с помощью ABC Pascal?

Помогите записать выражения на языке Pascal и вычислить их с помощью ABC Pascal.

Морожа 12 июл. 2021 г., 18:39:06 | 5 - 9 классы

Pascal ABC, без repeat, если можно?

Pascal ABC, без repeat, если можно.

Natalyashmigiri 4 февр. 2021 г., 18:25:43 | 5 - 9 классы

Как сделать алгоритм в Pascal ABC?

Как сделать алгоритм в Pascal ABC?

Координатами 22 нояб. 2021 г., 22:46:36 | 5 - 9 классы

Нарисовать N вложенных равнобедренных прямоугольных треугольников?

Нарисовать N вложенных равнобедренных прямоугольных треугольников.

N вводится с клавиатуры.

Pascal ABC.

Valentinmehanik 12 июн. 2021 г., 02:03:25 | 5 - 9 классы

Напишите пожалуйста программу для Ежика из смешариков, нарисовать в Pascal ABC?

Напишите пожалуйста программу для Ежика из смешариков, нарисовать в Pascal ABC.

Размер поля 800 * 600.

СРОЧНО!

Ilyazoroev98 29 нояб. 2021 г., 20:20:00 | студенческий

Помогите с Pascal ABC?

Помогите с Pascal ABC.

Eeesssaaa 27 авг. 2021 г., 08:15:01 | студенческий

Задание 1Pascal ABC?

Задание 1

Pascal ABC.