Question

ПОМОГИТЕ ПОЖАЛУЙСТА ОЧЕНЬ СРОЧНО Нарисовать 3 флага любых в одной программе Pascal ABC ​

Answer 1

белорусь

uses graphABC;

var

 h, w, w1: integer;

 o, r: real;

 xo, xr: integer;

 wMask: word;

const

 oMax = 31;

 rMax = 12;

 ornamentHex: array [1..31] of word = (

   $0e10,$9f10,$3b80,$71c0,$e460,$71c0,$3b80,

   $9f10,$0e10,$2480,$71c0,$db60,$71c0,$2480,

   $0e10,$9f10,$3f80,$7fc0,$ffe0,$f1f0,$7cf0,

   $3870,$90f0,$01e0,$83c0,$c790,$ef00,$7e40,

   $3c60,$1c30,$0d10

 );

begin

 h := windowheight div 3;

 w := windowwidth;

 w1 := w div 9;

 o := windowheight/61;

 r := w1/23;

 setbrushcolor(clWhite);

 setpencolor(clWhite);

 rectangle(0, 0, w1, h*3);

 setbrushcolor(clRed);

 setpencolor(clRed);

 rectangle(w1, 0, w, h*2);

 setbrushcolor(clGreen);

 setpencolor(clGreen);

 rectangle(w1, h * 2, w, h * 3);

 // îðíàìåíò

 for xo:=1 to oMax do

  begin

   wMask := $8000;

   for xr:=1 to rMax do

    begin

     if (ornamentHex[xo] and wMask)=0 then

      begin

       setbrushcolor(clWhite);

       setpencolor(clwhite);

      end

     else

      begin

       setbrushcolor(clRed);

       setpencolor(clRed);

      end;

     wMask := wMask shr 1;

     Rectangle(Round((xr-1)*r), Round((xo-1)*o), Round(xr*r), Round(xo*o)); // top-left

     Rectangle(Round(w1-(xr-1)*r), Round((xo-1)*o), Round(w1-(xr)*r), Round(xo*o)); //top-right

     Rectangle(Round((xr-1)*r), Round(h*3-(xo-1)*o), Round(xr*r), Round(h*3-xo*o)); // bottom-left

     Rectangle(Round(w1-(xr-1)*r), Round(h*3-(xo-1)*o), Round(w1-(xr)*r), Round(h*3-xo*o)); //bottom-right

    end

  end

end.

Бразилия

uses crt,graphabc;

begin

setwindowsize(640, 400);

setpencolor(clGreen);

rectangle(0, 0, 640, 400);

setpencolor(clgreen);

line(320,49,55,200);

line(55,200,320,350);

line(320,350,585,200);

line(585,200,320,49);

circle(320,200,90);

floodfill(310,230,clBlue);

setpenwidth(0);

line(240,160,278,158);{дуги початок}

line(278,158,315,163);

line(315,163,341,169);

line(341,169,410,199);

line(240,160,234,173);

line(234,173,247,172);

line(247,172,254,172);

line(254,172,276,173);

line(276,173,301,175);

line(301,175,320,179);

line(320,179,342,186);

line(342,186,365,194);

line(365,194,372,198);

line(372,198,391,207);

line(391,207,400,212);

line(400,212,408,220);

line(407,210,410,199);{дуги кінець}

floodfill(90,120,clgreen);

floodfill(160,200,clyellow);{залівка}

floodfill(300,170,clwhite);

setpencolor(clwhite);

setpenwidth(2);

setpencolor(clgreen);

setbrushcolor(clwhite);

circle(250,166,5);   {напис початок}

line(260,169,260,162);{o}

line(260,162,265,162);{4r}

line(265,162,265,165);

line(265,165,260,165);

line(270,170,260,165);

line(275,160,275,170);{D}

line(285,150,285,190);

setbrushcolor(clblue);

setpencolor(clwhite);

textout(250,190,'*');{zirka}

end.

россии

uses graphabc;

begin

setwindowsize(400,190);

rectangle(20,20,380,70);

setbrushcolor(clred);

rectangle(20,70,380,120);

setbrushcolor(clblue);

rectangle(20,120,380,170);

end.