uses Graph ;
var j,y,xz2,xz1,xv1,yv1,xv2,yv2,i,gd,gm:integer; q,a,b,c:real;
begin
gd:=vga;
gm:=vgahi;
initgraph(gd,gm,'');
if graphresult=grOk then
begin
q:=sqrt(2); y:=round(100/q); i:=0; xz1:=round(100/q); xv1:=0; yv1:=0;
for j:=1 to 10 do writeln;
writeln('xv yv xz yz');
repeat
c:=sqrt(sqr(xz1-xv1)+sqr(yv1-y));
a:=xz1-xv1;
b:=sqrt(sqr(c)-sqr(a));
yv2:=round(yv1+10*b/c);
xv2:=round(xv1+10*a/c);
xz2:=round(xz1+5);
line(xz1,y,xz2,y);
line(xv1,yv1,xv2,yv2);
writeln(xv2,' ',yv2,' ',xz2,' ',y);
xv1:=xv2;
yv1:=yv2;
xz1:=xz2;
i:=i+1;
until i>10;
end;
readln
end.
смотрите и издевайтесь
если эта программка - это курсач, то я ежик-растаман
