@dmitry-13

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

В программе sho с помощью алгоритма Эйлера—Кромера вычисляются зависимости координаты и скорости простого гармонического осциллятора от времени. Результаты вычисления координаты pos и скорости vel выводятся на экран до тех пор, пока работа программы не прерывается нажатием любой клавиши. Примеры использования функции tab и функций PRINT using приводятся соответственно в подпрограммах initial и output.

PROGRAM sho ! простой гармонический осциллятор

CALL initial(pos,vel,w2,df, ncalc)

DO until key input

CALL output(pos,vel,t)
CALL Euler(pos, vel, w2,dt, ncalc)
LET t = t + ncalc*dt
LOOP
END

SUB initial(pos,vel,w2,dt,ncalc)

INPUT prompt "начальная координата = ": pos ! метры
LET vel = 0 ! начальная скорость (м/с)
INPUT prompt "отношение k/m =": w2 ! собственная (угловая) частота
INPUT prompt "шаг no времени (сек) =": dt
LET print_period = 0.05
LET ncalc = print_period/dt
PRINT tab(7); "время"; tab(17); "координата"; tab(28); "скорость"
PRINT ! пропуск строки
END SUB

SUB Euler(pos, vel, w2,dt, ncalc) ! алгоритм Эйлера-Кромера
FOR icalc = 1 to ncalc
LET accel = -w2*pos
LET vel = vel + accel*dt
LET pos = pos + vel*dt
NEXT icalc
END SUB

SUB output( pos, vel, t)
! - перед числом печатается пробел или знак минус
! % незначащие нули в начале числа печатаются в виде одного '0'
PRINT using "-%.****": t, pos, vel
END SUB

0