Задание 1. На длинной нити подвешивается магнит, а в качестве датчика магнитного поля используется геркон (герметичный контакт)

На длинной нити подвешивается магнит, а в качестве датчика магнитного поля используется геркон (герметичный контакт). Для проведения компьютерного эксперимента геркон подключается к контактам 15 (D3) и 25 (GND). Геркон устанавливается в точке покоя маятника. Под действием магнитного поля ферромагнитные пластинки геркона соединяются, замыкая цепь.

Отклоним магнит в крайнее правое положение, запустим программу и отпустим маятник. В момент замыкания геркона программа выходит из цикла строк 20-30 и фиксирует в t1 начало периода колебания. В момент времени t2 фиксируется размыкание геркона после прохождения магнита. В момент t3 магнит возвращается и вновь замыкает геркон и в t4 фиксирует его размыкание. Отклоняясь вправо и возвращаясь в исходную точку, фиксируется вновь время t5. Период колебания маятника Т = t5 – t1

10 cls очистка экрана

20 a=inp (&h 379) чтение состояния порта

30 if =127 then go to 20 проверка замкнутого состояния геркона

40 t1=timer запись времени начала падения (точность 0,05 с)

50 a= inp (&h 379)

60 if a=119 then go to 50 проверка замкнутого состояния геркона

70 t2= timer

80 a= inp (&h 379)

90 if a =127 then go to 80

100 t3= timer

110 a= inp (&h 379)

120 if a= =119 then go to 110

130 t4= timer

140 a= inp (&h 379)

150 if a =127 then go to 140

160 t5= timer

170 t= t5 – t1

180 print t

185 sleep 1

190 goto 20