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

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

Восстановить пароль Регистрация
 
echs
676 / 894 / 345
Регистрация: 23.10.2013
Сообщений: 4,084
Записей в блоге: 3
08.01.2017, 11:37     Вычислить интеграл 2 #1
Вычислить определённый интеграл от функции
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

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

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

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