Есть ответ 👍

Составить алгоритм из 10 действий на основании школьных предметов.
2. Привести свои примеры 10 формальных и 10 неформальных исполнителей.
( Образец: Собака – лает ОЧЕНЬ

232
272
Посмотреть ответы 1

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


Program drawfigure;   uses  graph;   var      gd,gr: integer;   procedure drawhouse(x,y: word);     const     wallside=70;     windowside=20;     var     houseroof: array[1..4] of pointtype;     begin     setfillstyle(1,10);     bar(x,y-wallside,x+wallside,y); rectangle(x,y-wallside,x+wallside,y);     setfillstyle(1,1);     bar(x+wallside div 2-windowside div 2,y-wallside+wallside div 2-windowside div 2,        x+wallside div 2-windowside div 2+windowside,y-wallside+wallside div 2-windowside div 2+windowside); rectangle(x+wallside div 2-windowside div 2,y-wallside+wallside div 2-windowside div 2, x+wallside div 2-windowside div 2+windowside,y-wallside+wallside div 2-windowside div 2+windowside);     setfillstyle(1,2);     houseroof[1].x: =x; houseroof[1].y: =y-wallside;     houseroof[2].x: =x+wallside;     houseroof[2].y: =y-wallside;     houseroof[3].x: =x+wallside div 2; houseroof[3].y: =y-wallside-wallside div 2;     houseroof[4].x: =x; houseroof[4].y: =y-wallside;     fillpoly(4,houseroof);     end;   procedure drawtree(x,y: word);     const     treefh=90;     treefw=8;   var     ci: byte;     branchfh,branchfw: byte;     begin     setfillstyle(1,6);     bar(x,y-treefh,x+treefw,y);     for ci: =1 to 6 do       begin       branchfh: =random(5)+1;   branchfw: =random(8)+10;       bar(x-branchfw,y-treefh+ci*10,x,y-treefh+ci*10+branchfh);       bar(x+treefw,y-treefh+ci*10,x+treefw+branchfw,y-treefh+ci*10+branchfh);       end;   end; begin   randomize;   initgraph(gd,gr,'');   drawhouse(100,280); drawhouse(230,270); drawhouse(430,290);   drawhouse(330,180);   drawtree(195,278); drawtree(325,275);   drawtree(265,350);   drawtree(360,290);   drawtree(400,240); drawtree(580,285);   drawtree(110,370);   readln; closegraph; end.

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

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

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

Caktus Image

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

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

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

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

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

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

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

GTP TOP NEWS