Ваше мнение

[ArtiombI4]

Курсач... типа собак гонится за зайцем. Vc=10mps, Vz=5mps. Собак меняет направление каждую секунду. Надо вывести примерную траекторию и таблицу координат.
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.
смотрите и издевайтесь

[Sazary]

Как я понимаю, прямая - это заяц, а кривая - собака?
Вот, чуть подправил, чтобы путь до конца выводился.

uses Graph ;
var j,y,xz2,xz1,xv1,yv1,xv2,yv2,i:integer;
q,a,b,c:real;
gm,gd : integer;
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));
if c=0 then break;
a:=xz1-xv1;
b:=sqrt(abs(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 (yv1>y);
end;
readln;
end.

[ArtiombI4]

Спасибо большое, но там по заданию ток за первые 10 секунд. Сорри, что не до конца условие написал

[Sazary]

но там по заданию ток за первые 10 секунд

А, ну тогда ясно. )