Выдаёт ошибку Type mismatch .Теоретически знаю,что это несовместимость типов вроде,но я понятия не имею чё там у меня не так).Извините если не в том разделе написал,просто не знал где вопрос задать.Вот код,он ещё не доработанный,так что в смысл вдумываться не стоит).
Code
uses Graph,CRT;
var device,mode:Integer;
var x,y,v,t:Real;
Begin
device:=0;
InitGraph(device,mode,'c:\tp7\BGI');
t:=0;
x:=30;
y:=33;
v:=80;
SetLineStyle(0,0,ThickWidth);
Line(0,400,650,400);
Rectangle(50,400,10,50);
SetLineStyle(0,0,NormWidth);
repeat
SetColor(Red);
Circle(x,y,15);
Delay(1500);
SetColor(Black);
Circle(x,y,15);
t:=t+0.2;
x:=(v*t)+x;
y:=433-(4*(100-9.81*t*t/2));
until y>=450;
ReadLn;
CloseGraph
end.
