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

МсХованск1й 12 июн. 2021 г., 02:03:29

Uses GraphABC ;

Begin

SetWindowSize(800, 600) ;

SetWindowTitle ('Ёжик') ;

SetPenWidth(15) ;

{рисуем ноги}

SetPenColor(clMaroon) ;

MoveTo(320, 520) ;

LineTo(320, 600) ;

LineTo(460, 600) ;

LineTo(460, 520) ;

LineTo(420, 520) ;

LineTo(390, 580) ;

LineTo(360, 520) ;

LineTo(320, 520) ;

MoveTo(390, 580) ;

LineTo(390, 600) ;

FloodFill(340, 540, clFuchsia) ;

FloodFill(440, 540, clFuchsia) ;

{рисуем туловище}

Circle(390, 315, 200) ;

FloodFill(390, 315, clFuchsia) ;

{рисуем очки}

SetPenColor(clPurple) ;

Circle(320, 300, 70) ;

Circle(460, 300, 70) ;

MoveTo(260, 260) ;

LineTo(220, 240) ;

MoveTo(520, 260) ;

LineTo(560, 240) ;

{рисуем глаза}

Circle(340, 310, 30) ;

FloodFill(340, 310, clBlack) ;

Circle(440, 310, 30) ;

FloodFill(440, 310, clBlack) ;

{рисуем нос и рот}

SetPenColor(clMaroon) ;

MoveTo(360, 370) ;

LineTo(420, 370) ;

MoveTo(390, 370) ;

LineTo(390, 400) ;

SetPenColor(clRed) ;

MoveTo(360, 440) ;

LineTo(420, 440) ;

LineTo(390, 460) ;

LineTo(360, 440) ;

{рисуем челку}

SetPenColor(clMaroon) ;

MoveTo(380, 120) ;

LineTo(390, 180) ;

LineTo(400, 120) ;

MoveTo(380, 140) ;

LineTo(340, 190) ;

MoveTo(400, 140) ;

LineTo(440, 190) ;

{рисуем руки}

MoveTo(200, 400) ;

LineTo(180, 440) ;

LineTo(180, 500) ;

LineTo(200, 520) ;

LineTo(240, 520) ;

LineTo(240, 480) ;

LineTo(220, 480) ;

LineTo(220, 460) ;

LineTo(240, 450) ;

FloodFill(200, 440, clFuchsia) ;

MoveTo(580, 400) ;

LineTo(600, 440) ;

LineTo(600, 500) ;

LineTo(580, 520) ;

LineTo(540, 520) ;

LineTo(540, 480) ;

LineTo(560, 480) ;

LineTo(560, 460) ;

LineTo(540, 450) ;

FloodFill(580, 440, clFuchsia) ;

{рисуем иголки}

SetPenColor(clPurple) ;

MoveTo(180, 330) ;

LineTo(100, 240) ;

LineTo(140, 220) ;

LineTo(180, 220) ;

LineTo(180, 120) ;

LineTo(200, 100) ;

LineTo(220, 120) ;

LineTo(280, 120) ;

LineTo(390, 20) ;

LineTo(500, 120) ;

LineTo(560, 120) ;

LineTo(580, 100) ;

LineTo(600, 120) ;

LineTo(600, 220) ;

LineTo(640, 220) ;

LineTo(680, 240) ;

LineTo(600, 330) ;

FloodFill(380, 80, clBlue) ;

End.

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

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

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

Аселя12345 12 июн. 2021 г., 03:25:12 | 5 - 9 классы

Напишите программу на Pascal?

Напишите программу на Pascal.

Даяна1001 20 апр. 2021 г., 06:51:44 | 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.

12345678903 12 мая 2021 г., 09:42:14 | 5 - 9 классы

Помогите написать программу в Pascal abc?

Помогите написать программу в Pascal abc.

Wendyумная 13 апр. 2021 г., 11:16:13 | 5 - 9 классы

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

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

Hottunho 6 дек. 2021 г., 01:34:10 | 5 - 9 классы

Помогите нарисовать пожалуйста Ежика из мультфильма смешарики или любого мультперсонажа?

Помогите нарисовать пожалуйста Ежика из мультфильма смешарики или любого мультперсонажа.

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

Rafaelimaev 25 июл. 2021 г., 11:11:16 | 10 - 11 классы

Написать программу вычисления pascal abc?

Написать программу вычисления pascal abc.

3453467 21 окт. 2021 г., 17:43:18 | 10 - 11 классы

Написать программу вычисления Pascal abc?

Написать программу вычисления Pascal abc.