Форум программистов, компьютерный форум CyberForum.ru

QBasic

Войти
Регистрация
Восстановить пароль
 
echs
835 / 1030 / 347
Регистрация: 23.10.2013
Сообщений: 4,814
Записей в блоге: 4
#1

Вычислить интеграл 2 - QBasic

08.01.2017, 11:37. Просмотров 83. Ответов 0
Метки нет (Все метки)

Вычислить определённый интеграл от функции
y = 1 / (1 - x + x ^ 2) на интервале [0; 1]
Точное значение этого интеграла равно 2pi/SQR(27)

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
REM
REM  Integral = 1.209201
REM
REM  Точное значение = 2pi/SQR(27)
REM
 
DECLARE FUNCTION f! (x!)
 
CLS
CONST pi = 3.141593
INPUT "N = "; n
 
a = 0
b = 1
 
S = (f(a) + f(b)) / 2
h = (b - a) / n
 
FOR i = 1 TO n - 1
   x = a + h * i
   S = S + f(x)
NEXT
Integral = S * h
 
PRINT Integral
END
 
FUNCTION f (x)
   f = 1 / (1 - x + x ^ 2)
END FUNCTION
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.01.2017, 11:37     Вычислить интеграл 2
Посмотрите здесь:

QBasic Вычислить определённый интеграл от 0.1 до 2.2
Определенный интеграл QBasic
Интеграл QBasic
интеграл QBasic
QBasic Вычислить элемент матрицы А и вычислить суммы элементов каждой строки
Вычислить интеграл от заданной функции на отрезке QBasic
Найти определенный интеграл от функции методом прямоугольников QBasic

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

Текущее время: 04:18. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru