Проверти программу на QBasic

В общем вот такой вариант будет ещё чего-то строить, если задать правильные данные (не указано значение k, ну и коэффициент затухания не совсем корректно задан в задании)

1 CLS : SCREEN 12: kI = 640: KJ = 480: k=3
2 INPUT "Амплитуда колебаний Am"; Am
3 INPUT "Коэффициент затухания B"; B
4 INPUT "угловая частота колебаний W"; W
5 INPUT "Интервал времени tn,tk"; TN, TK
6 INPUT "Интервал и Yn,Yk"; YN, YK
7 GOSUB 17
8 FOR i = 0 TO kI
9 t = TN + i * (TK - TN) / kI
10 Y = Am * (1 + B * t) * SIN(W * t) * COS(k * W * t)
11 J = kI - (Y - YN) / (YK - YN) * KJ
12 IF J < 0 THEN J = 0
13 IF J > KJ THEN J = KJ
14 PSET (i, J)
15 NEXT i
16 END
17 REM Подпрограмма построение координатной сетки
18 FOR i = 0 TO kI STEP kI / 10
19 LINE (i, 0)-(i, KJ)
20 NEXT i
21 FOR J = 0 TO KJ STEP KJ / 10
22 LINE (0, J)-(kI, J)
23 NEXT J
24 RETURN

если затухание рассматривать как (1+exp(-b*t) ), то при k=3 и w=2*PI можно примерно получить (но конечно не с помощью рисования в этой программе) :

Лучше выкладывать не картинку, а текст,
чтобы проще было копировать в файл.

ПС
Интерпретация - критерий истины.

Вроде ОК!