Grafik ortamla Şanlı Bayrağımız... Uses Crt, Graph; Var a, b:integer; Begin a:=Detect; Initgraph ; setcolor ; Setfillstyle(1,4); Rectangle(100,80,510,340); Floodfill(102,82, Red); Setcolor ; Setfillstyle(1, White); Circle(240,210,99); Floodfill(190,210, White); Setcolor ; Setfillstyle(1, Red); Circle(270,210,80); Floodfill(270,210, Red); Setcolor ; setfillstyle(1, White); Line(420,160,380,260); Line(420,160,460,260); Line(460,260,360,200); Line(380,260,480,200); Line(360,200,480,200); Floodfill(430,203, White); Floodfill(430,240, White); Floodfill(400,240, White); Floodfill(422,167, White); Floodfill(450,205, White); Floodfill(380,205, White); Setcolor ; Setfillstyle(1, red); Circle(40,40,25); Circle(60,40,25); Line(17,50,50,95); Line(50,95,83,50); Floodfill(40,40, Red); Floodfill(25,40, Red); Floodfill(75,40, Red); Floodfill(50,70, Red); setcolor ; settextstyle(0,0,1); Outtextxy(30,34,"I LOVE"); Outtextxy(26,48,"TÜRK0YE"); Setcolor ; Circle(560,40,25); Circle( 5 8 0,40,25); Line(537,50,570,95); Line(570,95,604,50); Floodfill(560,40, Red); Floodfill(545,40, Red); Floodfill(595,40, Red); Floodfill(570,70, Red); setcolor ; Outtextxy(550,34,"I LOVE"); Outtextxy(546,48,"TÜRKiYE"); Setcolor ; Circle(40,370,25); Circle(60,370,25); Line(17,380,50,417); Line(50,417,83,380); Floodfill(40,370, Red); Floodfill(26,350, Red); Floodfill(75,370, Red); Floodfill(50,400, Red); Setcolor ; Outtextxy(30,360,"I LOVE "); Outtextxy(26,374,"TÜRK0YE"); Setcolor ; Circle(560,370,25); Circle(580,370,25); Line(537,380,570,417); Line(570,417,603,380); Floodfill(560,380, Red); Floodfill(545,380, Red); Floodfill(595,380, Red); Floodfill(570,400, Red); Setcolor ; Outtextxy(550,360,"I LOVE"); Outtextxy(546,376,"TÜRKiYE"); settextstyle(0,0,2); Outtextxy(130,20,"NE MUTLU TÜRKÜM DİYENE"); Settextstyle(0,0,2); Outtextxy(290,50,"M. Kemal ATATÜRK"); SettextStyle(1,0,2); Outtextxy(230,400,"Coder By ReGeS "); Readln; end. - Bilginin Adresinden TurkCom. Org -