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

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

Восстановить пароль Регистрация
 
echs
702 / 897 / 345
Регистрация: 23.10.2013
Сообщений: 4,103
Записей в блоге: 3
08.01.2017, 14:06     Вычислить интеграл 6 #1
Вычислить интеграл от функции у = (x / SIN(x)) ^ 2
на интервале [0; pi/2]. Точное решение = pi * ln2

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 = 2.177586
REM
REM  Точное решение = pi*ln2
REM
 
DECLARE FUNCTION f! (x!)
 
CLS
CONST pi = 3.141593
INPUT "N = "; n
 
a = .000001
b = pi / 2
 
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 = (x / SIN(x)) ^ 2
END FUNCTION
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.01.2017, 14:06     Вычислить интеграл 6
Посмотрите здесь:

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

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

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

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