Помогите написать программу на экзамен. Опции

[armoured]

расчитать время через которое необходимо выпустить снаряд (под углом) чтоб попасть в пролетающий со строго определенной скоростью на строго определенной высоте самолет.Смоделировать модель. Сам попытался сделать за самолет и снаряд взял 2 шарика, а время до выпуска снаряда не знаю как расчитать. Можно ли сделать секундомер который будет включатся в начале запуска программы и останавливаться во время запуская снаряда(второго шарика)?

program exp;
Uses crt,Graph;
var x1,y1,y,x,Device,Mode,gd :integer;
begin
Device:=0;
Gd:= Detect;
InitGraph (Device,Mode,'c:\bp\bgi');
Readln;
y:=110;
x:=40;
y1:=400;
x1:=230;
repeat
repeat
Repeat
Repeat
Setcolor(White);
Circle(x,110,14);
delay(5000);
Setcolor(Black);
Circle(x,110,14);
delay(1000);
x:=x+2;
until x>130;
Setcolor(4);
Circle(x1,y1,5);
Setcolor(Black);
delay(5000);
Circle(x1,y1,5);
delay(2000);
x1:=x1+1;
y1:=y1-3;
until y1<110;
delay(1000);
until x>230;
until keypressed;
end.

Сообщение отредактировано: armoured - 28.06.2010 11:01