Есть ответ 👍

Как сделать цветок в PascalABC с 5 кругов
Мне нужна код

133
385
Посмотреть ответы 3

Ответы на вопрос:

LG1612
4,8(70 оценок)

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

uses graphABC;

begin

{горшок}

setpencolor(clBrown);

setbrushcolor(clBrown);

Line(52, 280, 110, 452);

Line(110, 452, 196, 452);

Line(196, 452, 243, 280);

Line(243, 280, 52, 280);

{зальём горшок цветом}

floodfill(120, 400, clBrown);

{стебли}

setpenwidth(5);

setpencolor(clGreen);

Line(58, 129, 127, 277);

Line(142, 56, 142, 280);

Line(229, 123, 164, 278);

{лепестки цветов}

setpencolor(clPurple);

Line(44, 101, 29, 70);

Line(45, 98, 67, 68);

Line(55, 95, 55, 64);

Line(55, 95, 74, 73);

Line(71, 99, 83, 81);

Line(71, 110, 95, 109);

Line(73, 116, 92, 123);

Line(60, 122, 83, 135);

Line(50, 132, 48, 145);

Line(49, 132, 33, 143);

Line(41, 123, 19, 133);

Line(43, 115, 13, 124);

Line(44, 109, 14, 108);

Line(37, 103, 17, 94);

Line(136, 50, 131, 64);

Line(135, 46, 117, 67);

Line(125, 48, 98, 62);

Line(135, 38, 102, 37);

Line(130, 30, 103, 22);

Line(128, 22, 112, 7);

Line(146, 12, 155, -6);

Line(158, 14, 166, -7);

Line(159, 28, 175, 12);

Line(163, 40, 191, 47);

Line(158, 47, 172, 58);

Line(147, 49, 162, 68);

Line(134, 19, 129, 6);

Line(218, 91, 210, 78);

Line(216, 91, 198, 80);

Line(225, 83, 213, 60);

Line(243, 88, 240, 62);

Line(251, 89, 267, 74);

Line(255, 106, 278, 110);

Line(245, 116, 264, 132);

Line(238, 118, 248, 142);

Line(231, 125, 232, 141);

Line(219, 112, 197, 129);

Line(219, 112, 183, 108);

{середины цветков}

setpencolor(clYellow);

setbrushcolor(clYellow);

Circle(53, 116, 16);

Circle(142, 37, 17);

Circle(231, 103, 20);

end.

Dariy69
4,8(84 оценок)

Объяснение:

uses GraphABC;

begin

 setwindowsize(500,500);

 SetPenWidth(5);

 SetPenColor(clDarkBlue);

 Drawcircle(250,250,50);

 SetPenColor(clRed);

 Drawcircle(200,200,50);

 Drawcircle(300,200,50);

 Drawcircle(200,300,50);

 Drawcircle(300,300,50);

end.


Нет, это разные понятия

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.
  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS