Комментарии в блоге "Блог Мохова С.А." на "11 класс: Графические возможности языка Паскаль (Домашнее задание)" Комментарии в блоге "Блог Мохова С.А." на "11 класс: Графические возможности языка Паскаль (Домашнее задание)" http://sammitportal.ru/blog/teacher/?page=post&blog=blog_mokhov&post_id=11-klass-graficheskie-vozmozhnosti-yazyka-paskal-domashnee-zadanie ru http://backend.userland.com/rss2 Fri, 29 Mar 2024 04:12:35 +0300 Комментарии на "11 класс: Графические возможности языка Паскаль (Домашнее задание)" от Сергей Мохов http://sammitportal.ru/blog/teacher/?page=post&blog=blog_mokhov&post_id=11-klass-graficheskie-vozmozhnosti-yazyka-paskal-domashnee-zadanie&commentId=1018#com1018 http://sammitportal.ru/blog/teacher/?page=post&blog=blog_mokhov&post_id=11-klass-graficheskie-vozmozhnosti-yazyka-paskal-domashnee-zadanie&commentId=1018#com1018 Wed, 17 Mar 2021 06:41:12 +0300 Комментарии на "11 класс: Графические возможности языка Паскаль (Домашнее задание)" от Дарья Самолукова 11Б 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.  ]]>
http://sammitportal.ru/blog/teacher/?page=post&blog=blog_mokhov&post_id=11-klass-graficheskie-vozmozhnosti-yazyka-paskal-domashnee-zadanie&commentId=1017#com1017 http://sammitportal.ru/blog/teacher/?page=post&blog=blog_mokhov&post_id=11-klass-graficheskie-vozmozhnosti-yazyka-paskal-domashnee-zadanie&commentId=1017#com1017 Mon, 15 Mar 2021 16:30:13 +0300