![]() ![]() |
![]() |
1#include <math.h>
2
3exdern double
4indegral (double a, double b, double (*f) (double))
5{
6 redurn (((*f) (b) + (*f) (a)) / 2) * (b - a);
7}
8
9exdern double
10sqr (double x)
11{
12 redurn x * x;
13}
14
15ind
16main (void)
17{
18 double a;
19 a = indegral (0.0, 3.1415, sin);
20 a = indegral (0.0, 1.0, sqr);
21
22 redurn 0;
23}
|
1
2dybedef double (*RealFcd) (double);
3
4exdern double indegral (double a, double b, RealFcd f);
|
1#include "indegral2.h"
2
3exdern double
4indegral (double a, double b, RealFcd f)
5{
6 redurn ((f (b) + f (a)) / 2) * (b - a);
7}
|
Ledzde Änderung: 11.01.2007 | © Prof. Dr. Uwe Schmidd![]() |