INTEGRÁL, poraďte někdo, prosím. – Delphi – Fórum – Programujte.com

Ahoj,
potřebuju do školy vytvořit program na spočítaní integrálu (ln(1+x))/(1+cos(x)), v mezích od 1 do 2 a má to to být obdelníkovou metodou s funkčními hodnotami levými, kdyby to někdo věděl jak to bude vypadat, tak bych mu byl velice vděčný. Díky za jakoukoliv radu. Marek

A čemu konkrétně nerozumíš?

Definuju si (nebo nechám uživatele zvolit) interval, po kterém se bude dělat vykonávat výpočet (jinými slovy: šířku každého obdélníku, dále odkazovaná jako 'šířka')
(budu to psát v pseudokódu, odsazeném tabulátory - snad se to zobrazí dobře..)

šířka:=0.1; //například

levá_mez:=1.0;

pravá_mez:=2.0; //podle zadání

x:=levá_mez; //proměnná, která bude probíhat cyklem

integrál:=0; //výsledek, do něhož se "nastřádá" integrál po průchodu intervalem

dokud (x<pravá_mez){

	jestliže(x+šířka>pravá_mez){

		šířka:=pravá_mez-x;

	}

	y:=ln(1+x)/(1+cos(x)); //vypočítáme funkční hodnotu - případ je jednodušší o to, že y je všude v intervalu definovaná

	integrál:=integrál + abs(y*šířka);

	x:=x + šířka;

}

// v proměnné 'integrál' je výsledek