Цветовая схема:
C C C C
Шрифт
Arial Times New Roman
Размер шрифта
A A A
Кернинг
1 2 3
Изображения:
  • ХМАО - Югра, г. Нижневартовск
  • +7 (904) 483-50-68
  • sammitportal@mail.ru

11 класс: Графические возможности языка Паскаль (Домашнее задание)

11 класс: Графические возможности языка Паскаль (Домашнее задание)

На прошлом уроке мы познакомились с большим количеством графических процедур, но апробировать еще не успели.
Сегодня займемся именно этим. Для самостоятельного задания предлагаю написать программу, рисующую вашего любимого мультгероя.
Вот примеры подобных картинок...

 
Желательно под героем написать его имя.
Познакомиться со всеми графическими процедурами можно ЗДЕСЬ.

Текст программы вставляем в комментарий к этому сообщению, в теме указываем Фамилию и Имя.
Удачи!
Нравится0
Дарья Самолукова 11Б
15 марта 2021 16:30:13
Домашняя работа
Program project4;
Uses Graph;
Var    Gd, Gm, k : SmaLLInt;
Begin
    Gd:=Detect;
    Gm:=Detect;
    InitGraph(Gd, Gm,'');

    begin

       SetColor(11);
      SetFillStyle(1,11);

    Circle(GetMAXx div 2,GetMAXy div 2,300);
      Ellipse(GetMAXx div 4+GetMAXx div 6 ,GetMAXy div 4,0,360,90,250);
      FillEllipse(GetMAXx div 4+GetMAXx div 6 ,GetMAXy div 4,90,250);
      Ellipse(GetMAXx div 4+GetMAXx div 3 ,GetMAXy div 4,0,360,90,250);
      FillEllipse(GetMAXx div 4+GetMAXx div 3 ,GetMAXy div 4,90,250);
      FloodFill(GetMAXx div 2,GetMAXy div 2,11);

      Rectangle(GetMAXx div 2+GetMAXx div 20,GetMAXy div 4+GetMAXy div 4,GetMAXx div 2+GetMAXx div 8,GetMAXy div 2+GetMAXy div 3 );
        FloodFill(GetMAXx div 2+GetMAXx div 8 -1,GetMAXy div 2+GetMAXy div 3 -1 ,11);

      Rectangle(GetMAXx div 2-GetMAXx div 20,GetMAXy div 4+GetMAXy div 4,GetMAXx div 2-GetMAXx div 8,GetMAXy div 2+GetMAXy div 3 );
      FloodFill(GetMAXx div 2-GetMAXx div 8 +1,GetMAXy div 2+GetMAXy div 3 -1 ,11);

      Ellipse(GetMAXx div 2-GetMAXx div 6,GetMAXy div 2+GetMAXy div 15,0,360,60,100);
      FillEllipse(GetMAXx div 2-GetMAXx div 6,GetMAXy div 2+GetMAXy div 15,60,100);
      Ellipse(GetMAXx div 2+GetMAXx div 6,GetMAXy div 2+GetMAXy div 15,0,360,60,100);
      FillEllipse(GetMAXx div 2+GetMAXx div 6,GetMAXy div 2+GetMAXy div 15,60,100);

       SetColor(15);
       SetFillStyle(1,15);

       Circle(GetMAXx div 2-120,GetMAXy div 2-60,70);
       FloodFill(GetMAXx div 2-120+40,GetMAXy div 2-60,15);
        SetColor(15);
       SetFillStyle(1,15);
       Circle(GetMAXx div 2+120,GetMAXy div 2-60,70);
       FloodFill(GetMAXx div 2+120+40,GetMAXy div 2-60,15);


        SetFillStyle(1,0);
         SetColor(0);
       Circle(GetMAXx div 2-120,GetMAXy div 2-60,30);
       FloodFill(GetMAXx div 2-120,GetMAXy div 2-60,0);
          SetFillStyle(1,0);
         SetColor(0);
       SetFillStyle(1,0);
       Circle(GetMAXx div 2+120,GetMAXy div 2-60,30);
         FloodFill(GetMAXx div 2+120,GetMAXy div 2-60,0);
         SetFillStyle(1,0);
         SetColor(0);
       Line(GetMAXx div 2,GetMAXy div 2,GetMAXx div 2-30,GetMAXy div 2+30);
       Line(GetMAXx div 2-30,GetMAXy div 2+30,GetMAXx div 2+30,GetMAXy div 2+30);
       Line(GetMAXx div 2+30,GetMAXy div 2+30,GetMAXx div 2,GetMAXy div 2);
       FloodFill(GetMAXx div 2,GetMAXy div 2+1,0);
        SetFillStyle(1,4);
         SetColor(4);
       Arc(GetMAXx div 2,GetMAXy div 2+100,180,360,60);
       Line(GetMAXx div 2-60,GetMAXy div 2+100,GetMAXx div 2+60,GetMAXy div 2+100);
       FloodFill(GetMAXx div 2,GetMAXy div 2+100+10,4);


    end;
    Readln;
    CloseGraph;
    End.  
Ответить Ссылка Нравится0
Нравится0
17 марта 2021 06:41:12
Дарья, жаль что под героем не написано его имя.
Ответить Родитель Ссылка Нравится0