Türk Bayrağı Çizelimm
-
Grafik ortamla Şanlı Bayrağımız....
Uses Crt,Graph;
Var
a,b:integer;
Begin
a:=Detect;
Initgraph(a,b,"");
setcolor(REd);
Setfillstyle(1,4);
Rectangle(100,80,510,340);
Floodfill(102,82,Red);
Setcolor(White);
Setfillstyle(1,White);
Circle(240,210,99);
Floodfill(190,210,White);
Setcolor(red);
Setfillstyle(1,Red);
Circle(270,210,80);
Floodfill(270,210,Red);
Setcolor(White);
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(red);
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(White);
settextstyle(0,0,1);
Outtextxy(30,34,"I LOVE");
Outtextxy(26,48,"TÜRK0YE");
Setcolor(red);
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(White);
Outtextxy(550,34,"I LOVE");
Outtextxy(546,48,"TÜRKiYE");
Setcolor(red);
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(White);
Outtextxy(30,360,"I LOVE ");
Outtextxy(26,374,"TÜRK0YE");
Setcolor(red);
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(White);
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.
Toplam Hit: 2061 Toplam Mesaj: 1