Найти ошибку в коде - QBasic (27684)

Узнай цену своей работы

Формулировка задачи:

Всем привет. Ребята нужна помощь .я никогда не работала в бейсике. Перепечатала программу с методички - не работает .
помогите

Решение задачи: «Найти ошибку в коде»

textual
Листинг программы
10 PRINT "таблица"
20 a = 1.28: b = 3.88 'отрезок [a,b]
30 h = 0.26 ' шаг зменения аргумента
40 deffnf(x) = INT((0.116 * x ^ 2 + 1.3) / (0.7151 * x - SQR(x)) * 1000) / 1000 ' вычисление значений функции с округлением
50 PRINT "<br>"
60 PRINT "|  x  |  y  | delta y | delta2 y |"
70 PRINT "<br>"
80 PRINT y = fnf(a): y0 = fnf(a + h)
90 PRINT USING "|##.##|#.###|        |"; a, y
100 z0 = (y0 - y) * 1000
110 FOR x = a + h TO b STEP h
    120 PRINT USING "|               |         | #### |       |"; z0
    130 y = fnf(x + h)
    140 z = (y - y0) * 1000 ' первая табличная разность
    150 w = z - z0 ' вторая табличгая разность
    160 PRINT USING "|##.##|#.###|     |     |###|"; x, y0, w
    170 z0 = z: y0 = y
180 NEXT x
190 PRINT "<br>--"
200 END

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 3.909 из 5