PROGRAM DOMECEK;
uses Graph;
VAR I,J,K,L:INTEGER;
Driver, Mode,GM,GD : integer;
BEGIN
DetectGraph(GD,GM);
InitGraph(GD,GM, 'c:\bp\BGI\');
if GraphResult < 0 then Halt(1);
SetColor(15); {light white}
{
Dark Colors: Light Colors:
(Foreground & Background) (Foreground)
Black 0 DarkGray 8
Blue 1 LightBlue 9
Green 2 LightGreen 10
Cyan 3 LightCyan 11
Red 4 LightRed 12
Magenta 5 LightMagenta 13
Brown 6 Yellow 14
LightGray 7 White 15
For flashing (blinking) text foreground,
Blink = 128.
}
moveto(100,300);
lineto(200,300);
lineto(200,200);
lineto(100,200);
lineto(100,300);
lineto(200,200);
lineto(150,130);
lineto(100,200);
lineto(200,300);
readln;
Closegraph;
END.
{*******************************************************************************}
PROGRAM domecek2;
uses Graph,Crt;
VAR I,J,x,y,GD,GM:INTEGER;
vstup:text;
BEGIN
assign(vstup,'datadom.txt');
InitGraph(GD,GM, 'c:\bp\BGI\');
if GraphResult < 0 then Halt(1);
SetColor(15);
reset(vstup);
readln(vstup,x,y);
moveto(x,y);
while not eof(vstup) do
begin
readln(vstup,x,y);
lineto(x,y); delay(500);
End;
readln;
Closegraph;
END.
Data pro predchozi program
100 300
200 300
200 200
100 200
100 300
200 200
150 130
100 200
200 300