rafael
Administrator
Dołączył: 07 Lut 2006
Posty: 72
Przeczytał: 0 tematów
Ostrzeżeń: 0/3
Skąd: Pszczyna
|
| Temat postu: |
|
|
Za piękne to nie jest, ale zawsze coś! :wink:
| Kod: | program grafika;
uses graph;
var
sterownik, tryb: integer;
begin
sterownik := detect;
initgraph(sterownik,tryb, 'C:\rafal\pascal\TP\bgi');
outtextxy(170,1, 'Kto rano wstaje, temu Pan B˘g daje');
setcolor(blue);
rectangle(70,200, 190,240);
setfillstyle(1,yellow);
floodfill(80,220,blue);
setcolor(brown);
rectangle(70,185, 115,200);
setfillstyle(1,blue);
floodfill(80,190,brown);
circle(220,140,15);
setfillstyle(1,yellow);
floodfill(222,142,brown);
rectangle(200,155, 240,200);
setfillstyle(1,lightred);
floodfill(220,180, brown);
rectangle(200,200, 210,260);
setfillstyle(1,cyan);
floodfill(205,220, brown);
rectangle(230,200,240,260);
setfillstyle(1,cyan);
floodfill(235,220,brown);
rectangle(180,260,210,270);
setfillstyle(1,lightcyan);
floodfill(200,265,brown);
rectangle(230,260,260,270);
setfillstyle(1,lightcyan);
floodfill(240,265,brown);
rectangle(160,155,200,165);
setfillstyle(1,lightred);
floodfill(170,160,brown);
rectangle(240,155,280,165);
setfillstyle(1,lightred);
floodfill(250,160,brown);
rectangle(400,225,450,250);
setfillstyle(1,green);
floodfill(420,230,brown);
outtextxy(404,235,'100 ZL');
line(300,20,300,80);
line(280,35,320,35);
rectangle(400,50,600,100);
setfillstyle(1,white);
floodfill(500,70,brown);
setcolor(black);
outtextxy(410,75,'G O D Z I N A 6 : 00');
readln;
end. |
Post został pochwalony 0 razy
|
|
Pytania 
Autor
