Matematické Fórum

Nevíte-li si rady s jakýmkoliv matematickým problémem, toto místo je pro vás jako dělané.

Nástěnka
22. 8. 2021 (L) Přecházíme zpět na doménu forum.matweb.cz!
04.11.2016 (Jel.) Čtete, prosím, před vložení dotazu, děkuji!
23.10.2013 (Jel.) Zkuste před zadáním dotazu použít některý z online-nástrojů, konzultovat použití můžete v sekci CAS.

Nejste přihlášen(a). Přihlásit

#1 04. 05. 2009 07:06

kiki
Příspěvky: 36
Reputace:   
 

integrál v delphi

Ahoj, mám menší problém. Mám vypočítat určitý  integrál od (0,1) x^1/2 * cos x

mám k tom vytvořený vývojový diagram, ale mám problém to zapsat do delphi, můžete mi prosím někdo pomoct. Dík

Offline

 

#2 04. 05. 2009 09:34

matoxy
Místo: Lučenec/Martin
Příspěvky: 443
Reputace:   
 

Re: integrál v delphi

Bude to cyklus

for I:=1 to 1000 do
Begin
x:=x+1/1000;
xpom:=sqrt(x); {týmto syntaxom si niesom istý}
S:=S+1/1000*xpom*cos(x);
end;

Je jasné prečo je to zapísané tak ako je?


You know who
(or maybe not)

Offline

 

#3 04. 05. 2009 21:11

mák
Místo: Vesmír, Galaxie MD
Příspěvky: 869
Reputace:   62 
 

Re: integrál v delphi

Pascal neovládám, ale
1. Připadá mi zbytečné inkrementovat x, když to může dělat smyčka for
2. V sumaci mi opět připadá zbytečné opakovaně násobit  1/1000, když se to může udělat mimo smyčku, až když je vše hotovo.
3. Nejsem si jistý zda smyčka for I:=1 to 1000 udělá opravdu 1000 cyklů. Kdysi, když jsem programoval, tak se poslední cyklus neprováděl a bylo jich vždy o jeden méně. Ale třeba tady to funguje správně.

Ale to jsou spíše kosmetické úpravy pro urychlení výpočtu.
Jinak řekl bych že výpočet je správně. Já sám jsem kdysi naprogramoval výpočet integrálu (tehdy nebyla jiná možnost), ale místo obdélníkové metody jsem použil Simpsonovu, která je podstatně přesnější, navíc dává správné výpočty i ve vzorcích kde jiná metoda selhává v důsledku dělení nulou.


LibreOffice Verze: 7.6.6.3, Maxima 5.47.0 (SBCL)

Offline

 

Zápatí

Powered by PunBB
© Copyright 2002–2005 Rickard Andersson