Żylak |
Wysłany: Czw 22:57, 16 Mar 2006 Temat postu: |
|
TYCH FLAG NIE WOLNO POD ŻADNYM POZOREM BRAĆ NA ZADANIE DOMOWE!!! KAŻDY MA MIEĆ SWOJĄ SAMODZIELNĄ PRACĘ!!!
INIT:
Kod: | var
grDriver: Integer;
grMode: Integer;
begin
grDriver := Detect;
InitGraph(grDriver, grMode,'c:\progra~1\tp\bgi'); |
POLSKA:
Kod: | setfillstyle(1,15);
bar(0,0,getmaxx,240);
setfillstyle(1,4);
bar(0,241,getmaxx,getmaxy);
setcolor(4);
settextstyle(3,0,1);
outtextxy(10,10,'Polska'); |
IZRAEL:
Kod: | setfillstyle(1,white);
bar(0,0,getmaxx,getmaxy);
setfillstyle(1,blue);
bar(0,50,getmaxx,100);
setfillstyle(1,blue);
bar(0,370,getmaxx,420);
setlinestyle(0,0,3);
setcolor(blue);
line(320,130,420,280);
line(420,280,220,280);
line(220,280,320,130);
line(220,180,420,180);
line(420,180,320,330);
line(320,330,220,180);
setcolor(white);
settextstyle(3,0,1);
outtextxy(10,60,'Izrael'); |
JAPONIA:
Kod: | setfillstyle(1,white);
bar(0,0,getmaxx,getmaxy);
setcolor(red);
setfillstyle(1,red);
fillellipse(320,240,100,100);
setcolor(white);
settextstyle(3,0,1);
outtextxy(290,225,'Japonia'); |
TURCJA:
Kod: | setcolor(red);
setfillstyle(1,red);
bar(0,0,getmaxx,getmaxy);
setfillstyle(1,white);
fillellipse(180,240,100,100);
setcolor(white);
settextstyle(3,0,1);
setcolor(red);
setfillstyle(1,red);
fillellipse(210,240,75,75);
setcolor(white);
setlinestyle(0,0,1);
line(310,225,330,250);
line(330,250,300,240);
line(300,240,330,230);
line(330,230,310,255);
line(310,255,310,225);
setfillstyle(1,15);
floodfill(325,235,white);
floodfill(315,240,white);
floodfill(305,240,white);
floodfill(312,245,white);
floodfill(322,245,white);
floodfill(311,230,white);
outtextxy(290,325,'Turcja'); |
KANADA:
Kod: | setfillstyle(1,red);
setfillstyle(1,red);
setcolor(red);
bar(0,0,150,getmaxy);
bar(490,0,getmaxx,getmaxy);
setfillstyle(1,white);
setcolor(white);
bar(150,0,490,getmaxy);
setfillstyle(1,red);
setcolor(red);
line(315,380,325,380);
line(315,380,315,310); line(325,380,325,310);
line(315,310,250,320); line(325,310,390,320);
line(250,320,255,305); line(390,320,385,305);
arc(245,305,0,65,11); arc(395,305,105,180,11);
line(250,295,200,260); line(390,295,440,260);
arc(200,250,270,360,10); arc(440,250,180,270,10);
line(210,250,200,230); line(430,250,440,230);
line(200,230,215,235); line(440,230,425,235);
arc(215,225,270,360,10); arc(425,225,180,270,10);
line(225,225,260,250); line(415,225,380,250);
arc(260,245,270,360,5); arc(380,245,180,270,5);
line(265,245,260,160); line(375,245,380,160);
line(260,160,280,180); line(380,160,355,185);
arc(290,176,210,330,10); arc(350,176,210,320,10);
line(299,182,320,130); line(341,182,320,130);
floodfill(320,190,red);
settextstyle(0,0,3);
outtextxy(397,440,'Kana');
setcolor(white);
outtextxy(493,440,'da');
settextstyle(0,1,1);
outtextxy(630,200,'Pokrazka... ale cóz :)');
setfillstyle(1,black);
bar(550,455,getmaxx,getmaxy);
setcolor(lightgreen);
settextstyle(6,0,1);
outtextxy(555,450,'by Zylak'); |
GRENLANDIA:
Kod: | setfillstyle(1,white);
setcolor(white);
bar(0,0,getmaxx,240);
setfillstyle(1,red);
setcolor(red);
bar(0,240,getmaxx,getmaxy);
arc(280,240,0,180,200);
line(80,240,480,240);
floodfill(280,220,red);
setfillstyle(1,white);
setcolor(white);
arc(280,240,180,360,200);
line(80,240,480,240);
floodfill(280,300,white);
setcolor(white);
settextstyle(4,0,5);
outtextxy(270,190,'Grenlandia');
setfillstyle(1,black);
bar(550,455,getmaxx,getmaxy);
setcolor(lightgreen);
settextstyle(6,0,1);
outtextxy(555,450,'by Zylak'); |
USA (2 PROCEDURY!):
Kod: | Procedure Gwiazdka (x,y:integer);
begin
setcolor(white);
setfillstyle(1,white);
moveto(x,y);
lineto(x+1,y+3);
lineto(x+4,y+3);
lineto(x+2,y+5);
lineto(x+3,y+8);
lineto(x,y+6);
lineto(x-3,y+8);
lineto(x-2,y+5);
lineto(x-4,y+3);
lineto(x-1,y+3);
lineto(x,y);
floodfill(x,y+2,white);
end;
Procedure USA;
begin
setfillstyle(1,white);
setcolor(white);
bar(0,0,getmaxx,getmaxy);
setfillstyle(1,red);
setcolor(red);
FOR a:=0 TO 13 DO
begin
bar(0,a*74,getmaxx,a*74+37);
end;
setfillstyle(1,blue);
setcolor(blue);
bar(0,0,300,259);
FOR b:=0 TO 4 DO
begin
FOR a:=0 TO 5 DO
begin
gwiazdka(a*50+25,b*50+21);
end;
end;
FOR b:=0 TO 3 DO
begin
FOR a:=0 TO 4 DO
begin
gwiazdka(a*50+50,b*50+46);
end;
end;
settextstyle(2,0,10);
outtextxy(10,440,'USA');
setfillstyle(1,black);
bar(550,455,getmaxx,getmaxy);
setcolor(lightgreen);
settextstyle(6,0,1);
outtextxy(555,450,'by Zylak');
end; |
|
|