" Life is not a problem to be solved but a reality to be experienced! "
© Copyright 2013 - 2024 KUDO.TIPS - All rights reserved.
program Grafika;
uses Crt,Graph;
var sterownik,tryb:integer;
var x1,x2,y1,y2:integer;
begin
DetectGraph(sterownik,tryb);
{sterownik:=VGA;
tryb:= VGAHi;}
InitGraph(sterownik,tryb,'D:\pascal\tp\BGI');
Line(20,250,460,250);
Line(250,20,250,460);
x1:=30;
y1:=245;
y2:=255;
repeat
Line(x1,y1,x1,y2);
x1:=x1+10
until x1=450;
x1:=245;
x2:=255;
y1:=40;
repeat
Line(x1,y1,x2,y1);
y1:=y1+10
until y1=460;
Line(180,200,300,200);
Arc(180,20,180,270,180);
repeat until keypressed;
CloseGraph;
end.