Есть ответ 👍

Напишите программу на paskalabc график: круг, домик и лицо человека

118
495
Посмотреть ответы 2

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


Домик uses graphabc;   beginsetwindowsize(800,600); setpencolor(clblue); setbrushcolor(clblue); rectangle(0,0,800,400); setpencolor(clgreen); setbrushcolor(clgreen); rectangle(0,400,800,600);   setpencolor(clblack); setbrushcolor(clsilver); rectangle(50,300,250,500); rectangle(250,500,500,300); line(50,300,150,200); line(150,200,250,300); line(400,200,500,300); line(150,200,400,200); floodfill(150,250,clsilver); floodfill(300,250,clmaroon); setbrushcolor(claqua); rectangle(110,360,190,440); rectangle(280,360,360,440); setbrushcolor(clsilver); rectangle(280,180,320,230); setbrushcolor(clmaroon); rectangle(400,350,470,500); setbrushcolor(claqua); circle(150,270,20); setbrushcolor(clbrown); rectangle(650,400,670,500); setbrushcolor(clgreen); ellipse(570,150,750,420); end.круг uses graphabc; var a,b,c,i,count: integer; beginfloodfill(1, 1, clblue); {çàêðàøèâàåì ïðÿìîóãîëüíèê}setbrushstyle(bsclear); {ñîçäà¸ì êðóãè}{êîðäèíàòû êðóãà}a: =100; b: =100; c: =50; count: =1; for i: =1 to 15 do {}beginif(count < = 4) thenbegincircle(a,b,c); floodfill(a, b, clwhite); a: =a+90; end; if(count = 5) thenbegincircle(a,b,c); floodfill(a, b, clwhite); a: =100; b: =b+90; count: =0; end; count: =count+1; end; end.вот еще одна прогаprogram grnebo; uses graphabc,crt; varx,y: integer; n,i,r,k: integer; m: array [1..6] of integer; beginrandomize; m[1]: =clred; m[2]: =clyellow; m[3]: =clgreen; m[4]: =clblue; m[5]: =clolive; m[6]: =clsilver; for i: =1 to 50 do beginx: =300 + random(510)-200; y: =250 + random(400)-200; r: =10; delay(100); k: = random(6)+1; setbrushcolor(m[k]); circle(x,y,r); end; end.лицо uses crt,graphabc; var x,y,ul,gr,nt,w,r,h: integer;     c: char;     label 1; procedure uslov; begin   if w=0 then drawpicture(nt,x,y,r,h);   if w=1 then drawpicture(ul,x,y,r,h);   if w=2 then drawpicture(gr,x,y,r,h); end; begin r: =650; h: =400; w: =1; hidecursor; 1: circle(300,200,100);     arc(300,350,100,60,120);     circle(340,170,20);     circle(340,180,10);     circle(260,170,20);     circle(260,180,10);     roundrect (290,180,310,230,10,10);     line(300,100,300,140);     line(260,110,250,140);     line(340,110,350,140);     savewindow('d: \g');     clrscr;     circle(300,200,100);     line (250,250,350,250);     circle (340,170,20) ;     circle (340,180,10);     circle (260,170,20);     circle (260,180,10);     roundrect (290,180,310,230,10,10);     line (300,100,300,140);     line (260,110,250,140);     line (340,110,350,140);     savewindow('d: \n');     clrscr;     circle(300,200,100);     arc(300,220,50,210,-30);     circle (340,170,20) ;     circle (340,180,10);     circle (260,170,20);     circle (260,180,10);     roundrect (290,180,310,230,10,10);     line (300,100,300,140);     line (260,110,250,140);     line (340,110,350,140);     savewindow('d: \u');     clrscr; gr: =loadpicture('d: \g'); nt: =loadpicture('d: \n'); ul: =loadpicture('d: \u'); uslov; repeat if keypressed then   begin   c: =readkey;   case c of   #110: begin       clrscr;       w: =0;       drawpicture(nt,x,y,r,h);   //нейтраль       end;   #117: begin       clrscr;       w: =1;       drawpicture(ul,x,y,r,h); //улыбка       end;   #104: begin       clrscr;       w: =2;       drawpicture(gr,x,y,r,h);   //грусть       end;   #72: begin // клавиша вверх       clrscr;       y: =y-5;       uslov;       end;   #75: begin //клавиша вправо       clrscr;       x: =x+5;       uslov;       end;   #80: begin //клавиша вниз       clrscr;       y: =y+5;       uslov;       end;   #77: begin //клавиша влево       clrscr;       x: =x-5;       uslov;       end;   #44: begin //клавиша "< " меньше       clrscr;       r: =r-7;       h: =h-5;       uslov;       end;   #46: begin //клавиша "> " больше       clrscr;       r: =r+7;       h: =h+5;       uslov;       end;   #114: begin //клавиша "r" красный       clrscr;       setpencolor(clred);       goto 1       end;   #103: begin //клавиша "g" зеленый       clrscr;       setpencolor(clgreen);       goto 1       end;   #98: begin //клавиша "b" синий       clrscr;       setpencolor(clblue);       goto 1       end;   #121: begin //клавиша "y" желтый       clrscr;       setpencolor(clyellow);       goto 1       end;   #97: begin //клавиша "a" черный       clrscr;       setpencolor(clblack);       goto 1       end;   #113: begin //клавиша "q" увеличение контура втрое       clrscr;       setpenwidth(3);       goto 1       end;   #119: begin //клавиша "w" уменьшение контура       clrscr;       setpenwidth(1);       goto 1       end;   #59: begin // f1       clrscr;       writeln('   перемещение - стрелки лево, право, вверх, вниз');       writeln('   увеличить рисунок - "> "');       writeln('   уменьшить рисунок - "< "');       writeln('   контур толще   - "q"');       writeln('   контур тоньше - "w"');       writeln('   улыбка   - "u"');       writeln('   грусть   - "h"');       writeln('   нейтрал.- "n"');       writeln('   красный - "r"');       writeln('   зеленый - "g"');       writeln('   синий   - "b"');       writeln('   желтый   - "y"');       writeln('   черный   - "a"');       writeln('     - "f1"');       writeln;       writeln;       writeln('       выход из окна - любое действие над картинкой');       end;   end;   end; until c=#27; end.
AilaRait
4,5(88 оценок)

ответ:

очоквгечлесшнагечпевгдгелуеевшаувлалаповвогевшевшевш5ушыелечлпчл щгаппцгенвшвншвлрчлрадгащны

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

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

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

Caktus Image

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

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

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

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

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

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

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

GTP TOP NEWS