Question

Помогите пж
Нужно нарисовать флаг Украины в паскале

Answer 1

uses graphABC,crt;

var x,y,k: integer; xx,yy,a,h,w: real;

begin

lockdrawing; {убирає мерцаніє}

hidecursor;  {Убирає курсор}

setwindowsize(400,400);

repeat

a:=0; k:=10; h:=10; w:=0.5; {a - скільки разів буде виконуватися цикл, k - задання довжини хвильок, h- збільшення хвиль, w - частота хвиль}

while a<=6 do     {проходження циклу}

     begin

     clearwindow(clskyblue);

     setbrushcolor(clbrown);

     rectangle(90,60,100,400);

     xx:=1*k; yy:=H*sin( w*xx + a );

     while xx<=2.9*k do

           begin

           y:=round( H*sin(w*xx + a ));

           x:=round(xx*k);

           putpixel(x,y+280,clblack); {верхня хвиляста лінія}

           putpixel(x,y+330,clblack); {середня}

           putpixel(x,y+380,clblack); {нижня}

           xx:=xx+0.02;   {хвидкість крайніх ліній прапоку}

           end;

     line(100,280+round(yy),100,380+round(yy)); {ліва бокова лінія прапоку}

     line(290,280-round(yy),290,380-round(yy)); {права бокова лінія прапоку}

     floodfill(150,300,clBlue);

     floodfill(150,350,clYellow);

     a:=a+0.2; {швидкість руху прапоку}

     sleep(50); {швидкість виконання програми}

     redraw;

     end;

     

until keypressed;

end.