FAQ   Szukaj   Użytkownicy   Grupy   Galerie   Rejestracja   Profil   Zaloguj się, by sprawdzić wiadomości   Zaloguj     
| PSO | Flagi...

 
Napisz nowy temat   Odpowiedz do tematu    Forum Ścisłowcy Strona Główna :: Arty
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
Żylak




Dołączył: 24 Lut 2006
Posty: 365
Przeczytał: 0 tematów

Ostrzeżeń: 0/5
Skąd: Z domu

PostWysłany: Nie 10:58, 12 Mar 2006    Temat postu: | PSO | Flagi...

Zrobiłem nowy topic i usunąłem stary...
Tutaj dawać Flagi...
Ja zaczynam... Tam jest:
Polska...
Izrael...
Japonia...
Turcja...
Kanada...
Grenlandia...
USA...

[link widoczny dla zalogowanych]
[link widoczny dla zalogowanych]


Post został pochwalony 0 razy

Ostatnio zmieniony przez Żylak dnia Sob 9:35, 18 Mar 2006, w całości zmieniany 2 razy
Powrót do góry
Zobacz profil autora
Żylak




Dołączył: 24 Lut 2006
Posty: 365
Przeczytał: 0 tematów

Ostrzeżeń: 0/5
Skąd: Z domu

PostWysł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;


Post został pochwalony 0 razy
Powrót do góry
Zobacz profil autora
Wyświetl posty z ostatnich:   
Napisz nowy temat   Odpowiedz do tematu    Forum Ścisłowcy Strona Główna :: Arty Wszystkie czasy w strefie EET (Europa)
Strona 1 z 1

 
Skocz do:  
Możesz pisać nowe tematy
Możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach


fora.pl - załóż własne forum dyskusyjne za darmo
     Ścisłowcy: Forum dla Ścisłowców z 1TI     
Powered by phpBB © 2001, 2002 phpBB Group   c3s Theme © Zarron Media
Regulamin