UYGULAMA 10 - 05 MART 2010

PROGRAM VAGON;
USES GRAPH,CRT;
VAR GRAFIKSURUCU,GRAFIKKONUMU:INTEGER;

BEGIN
GRAFIKSURUCU := DETECT;
INITGRAPH(GRAFIKSURUCU,GRAFIKKONUMU,'C:\TP\BGI');
IF GRAPHRESULT<>GROK THEN HALT(1);
CLEARVIEWPORT;

setfillstyle(6,7);
setcolor(8);
setbkcolor(10);
bar(10,350,160,420);
bar(170,350,320,420);
bar(330,350,480,420);
circle(50,430,17);
circle(110,430,17);
circle(210,430,17);
circle(270,430,17);
circle(370,430,17);
circle(430,430,17);
bar(400,220,450,350);
fillellipse(350,200,30,10);
fillellipse(405,200,30,10);
fillellipse(290,200,30,10);
settextstyle(triplexfont,horizdir,3);
outtextxy(40,370,'VAGON1');
outtextxy(190,370,'VAGON2');
outtextxy(340,370,'VAGON3');

READLN;
CLOSEGRAPH;
END.