Определение времени взаимодействия соударяющихся тел

Время соударения тел как правило меньше 0,05 сек. и не может быть измерено с помощью системного таймера компьютера. Поэтому проводится измерение сначала в количестве программных циклов.

Для определения времени соударения двух металлических шаров используется программа:

10 cls

20 a=inp(&h379)

30 if a=127 then goto 20

40 for n=0 to 20000

50 a=inp(&h379)

60 if a=127 then goto 80

70 next n

80 print n

Затем с помощью отдельной программы, определим время выполнения этого цикла и абсолютное время соударения шаров.

t1 = timer

for n=0 to 200000

next

t2= timer

t=t2-t1

print t

Рис. 10