🚀 go-pugleaf

cały kod w C++ wygląda tak:

Przy czym jest mało czytelny, bo chodzi tylko o wywołanie funkcji i
sprawdzenie jej działania...

#include <windows.h>
#include <stdio.h>
#include <iostream>
#include <math.h>

#define PI
3.1415926535897932384626433832795028841971693993751058209749445923078164062862089986280348253421170679
//---------------------------------------------------------------------------

struct Element
{
	double x;
	double f_x;
	double g_x;
	double blad;
};

typedef int (__stdcall *MYPROC)(int, int);
typedef double* (__stdcall *MYPROC2)(double*);
typedef void (__stdcall *MYPROC3)(int, int, double*);
typedef void (__stdcall *MYPROC4)(int, int, double*, Element*,
double* );

MYPROC ProcAdd, ProcSub;
MYPROC2 ProcSin;
MYPROC3 ProcBeta;
MYPROC4 ProcU;
HINSTANCE hinstLib;

Element *tab;
double *c, *e, d, f;

double U (int n, int k, double beta, Element *tab)  //obliczanie
wspolczynnika U - wzór 28
{
	if ( k > n )
		return (0.0);
	else {
		double fx = tab[k-1].f_x;
		double cosbet = cos(beta);
		double wynik = (fx + (2.0) * ( U(n, k+1, beta, tab) * cosbet ) - U
(n, k+2, beta, tab));
		std::cout << "f(x) = " << fx << "\n cos(beta) = " << cosbet << "\n
wynik: " << wynik << std::endl;
		return wynik;
	}
}

int main(int argc, char* argv[])
{
	hinstLib = LoadLibrary ("sss.dll");								//ladowanie biblioteki
	if (hinstLib == NULL)												//sprawdzenie, czy moduł faktycznie
został załadowany
		return 1;

	ProcU = (MYPROC4) GetProcAddress(hinstLib, "wspU");
	if (NULL != ProcU) {
		e = new (double);
		tab = new Element [7];
		d = PI/2;
		c = &d;

		tab[0].f_x = 2.0;

		tab[1].f_x = 6.0;

		tab[2].f_x = 10.0;

		tab[3].f_x = 14.0;

		tab[4].f_x = 18.0;

		tab[5].f_x = 22.0;

		tab[6].f_x = 24.0;

		f = U (6, 1, d, tab);
		(ProcU)(6, 1, c, tab, e);
	}

	FreeLibrary(hinstLib);

	std::cout << *e << std::endl;
	std::cout << f << std::endl;

	system("PAUSE");
	return 0;
}