Определение скорости звука в длинном металлическом стержне

В установке используется алюминиевый стержень длиной 30 см. и два стальных шара, подвешенных на гибких металлических нитях. Корпус стержня соединен с общим выводом схемы компьютера. Электрически шары соприкасаются с металлическим стержнем, гибкие металлические подвесы шаров соединены со входами D3 и D4 порта 379h. Для измерения времени прохождения продольной звуковой волны шар отводится на некоторый угол и отпускается. В результате соударения шара о стержень цепь замыкается и в порт 379h подается число 103, так как бит D3=0 и бит D4=0 Через некоторое время, когда звуковая дойдет до конца стержня, произойдет передача импульса второму шару, и он отойдет от стержня на некоторый угол, разомкнув электрическую цепь входного порта (бит D4=1 и бит D3=0). При этом в порт будет считано число 119.

Рис. 11

10 а= inp (&h 379)

20 if a=111 then goto 10

30 for n=0 to 200000

35 а= inp (&h 379)

40 if a=119 then goto 60

50 next n

60 print n

В переменную n записывается число циклов, затраченное на прохождение звуковой волны через стержень. Для определения времени одного цикла запускается программа:

20 t1=timer

30 for n=0 to 200000

35 а= inp (&h 379)

40 if a=119 then goto 50

50 next n

60 t2=timer

65 t=t2-t1

70 print t

Время одного цикла равно t/200000. Зная длину стержня и время прохождения сигнала, определите скорость продольного звука в алюминии.