Dè an dòigh Simpson, agus ciamar a chur an sàs anns a 'chànan Pascal

Gus obrachadh a-mach an luach riatanach, ged tuairmseach, tha sàr-mhath an dòigh, a chaidh ainmeachadh an dèidh a SGRÌOBHAICHE - an dòigh Simpson. Dh'iarr e cuideachd parabolas dòigh, oir tha e a 'cleachdadh a' togail an parabola. Tha am figear seo stèidhichte cho faisg 'sa ghabhas gus a' ghnìomh. Gu dearbh, mar a tha an t-slighe a thogail parabola, a tha a 'comharrachadh dìreach aon àm ri na puingean a' ghnìomh, tha e do-dhèanta, agus tha riatanach coltaiche. Formula location a crìochan le a agus b 'coimhead mar seo: 1 / * s (y + ₀ 4y 2y ₁ + ₂ + ₃ + 4y ... + 4y _n-1 + y _n). An seo, tha sinn dìreach Feumaidh gach obrachadh a-mach y bho 0 gu 'n, far a bheil sinn a' mìneachadh n fhìn - barrachd na b 'fheàrr, oir an tuilleadh y-s, an tuilleadh tuairmseach gu fìor luach ar n-obair. A thaobh s, agus an uair sin a 'cheum seo air a thomhas a rèir foirmle a leanas: (BA) / (n 1).

Ann an teòiridh,-uile rud a tha gu math sìmplidh, ach gum biodh e riatanach a chur an gnìomh a h-uile seo ann an gnìomh. Airson iomadh-prògramaidh eil dòigh nas fheàrr gus fuasgladh fhaighinn air an duilgheadas seo, mar dhòigh air na Simpson - Pascal no Delphi. Ann an àrainneachd seo, tha e glè fhurasta a-mhàin Chan eil gus measadh a dhèanamh coileanta, ach cuideachd gus togail graf na dreuchd e, agus fiù 's thog i' trapeze. Mar sin, tha sinn a 'coimhead air mar as urrainn dhut a chur an gnìomh gu luath dòigh Simpson agus fiù' s a 'mìneachadh, ma thathar ag iarraidh, an dà chuid an seo agus a tha air a chur air dòigh, iadsan uile aig a bheil ùidh.

Ach tha cuimhn 'agam dè tha e a' coimhead coltach mus seo riatanach. Tha an àireamh seo, a tha a 'cuartachadh le loidhnichean a' tòiseachadh le 'X' axis, i.e. a agus b.

Mar sin, a 'tòiseachadh air a' phrògram a dh'fheumas tu a chruthachadh airson gnìomh integrable gnìomhan (mathanas an tautology), a tha dìreach a bhith a 'sgrìobhadh f: = agus rudeigin a bhios sinn a' lorg an riatanach. An seo, tha e deatamach gun a mearachd a dheanamh ann an dol a-steach a dhreuchd ann an Pascal. Ach tha e sgeulachd eadar-dhealaichte. Tha an còd a 'coimhead rudeigin mar seo:

fuincsean f (x: Real): Fìor;

Agus bunaiteach fheartan teacsa

a 'tòiseachadh

f: = 25 * rapal (x) + sin (10); {Here is feumaidh tu a 'sgrìobhadh air na dreuchdan aige}

crìch;

An sin sgrìobh obair a chur an gnìomh an dòigh Simpson. Start bi rudeigin mar:

gnìomh simpsonmetod (a, b: Fìor; n: integer): Fìor;

An ath-, tha sinn a 'cur an cèill na caochladairean:

var

s: Fìor; {Subtotals (barrachd a thuigsinn)}

s: Fìor; Ceum {}

m: integer; Dìreach {} counter

mno: integer; {} Tha an ath fhilltichean

Agus a nis, gu dearbh, tha am prògram fhèin:

a 'tòiseachadh

s: = (BA) / (n-1); {RSS ceum a rèir foirmle ìre. Uaireannan cheum air a sgrìobhadh ann an obair, sa chùis seo, tha am foirmle seo chan eil a 'buntainn}

s: = f (b) + f (a); {Leis a 'chiad raon-cluiche luach}

mno: 4 =; {Cuimhnichibh am foirmle - 1 / * s (y + 4y _{0 1 ...} 4 gu bheil seo a litreachadh seo agus, an dàrna bàillidh tha 2, ach tuilleadh air seo a-rithist}

A-nis gu bheil an aon bunaiteach foirmle:

airson mo: = 1 gu n-2 bhios tòiseachadh

s: s = + mno * f (a + s * Mu); Airson geàrr-chunntas air {Cuir eile bhàillidh air iomadachadh le 4 * _n y no 2 * _{n y}}

ma (mno = 4) an uair sin mno: 2 = eile mno: 4 =; {seo a 'bhàillidh ag atharrachadh agus a' - ma tha 4 a-nis, tha e air atharrachadh gu 2 agus a chaochladh}

crìch;

simpsonmetod: s = * s / 3; An ath {rothaireachd mar thoradh air an t-suim a tha air iomadachadh le Dheas / 3} a rèir foirmle

deireadh.

Sin e - a 'dèanamh a h-uile gnìomhan a rèir foirmle. Ma tha thu air nach dh'obraich-mach ciamar a cur a-steach ann an dòigh air prìomh phrògram-Simpson mar eisimpleir ur cuideachadh le seo.

Agus às dèidh a 'sgrìobhadh a h-uile gnìomhan sgrìobhaidh

Toisich

n: = 3; Shuidhich sinn an {n}

q: simpsonmetod = (a, b, 'n); {Bho na Simpson dòigh a tha a thomhas an riatanach de gu B, bidh grunn cheuman àireamhachadh, mar sin a chur air dòigh cearcall}

ath-

Q2: = q; {Memorized roimhe ceum}

n: n + 2 =;

q: simpsonmetod = (a, b, 'n); {} Agus luach obrachadh a-mach mar a leanas

gus (Abs (q-Q2) <0.001); {Tha an suidheachadh neo-mhearachdachd a tha e sgrìobhte, mar sin, gus an ruig thu an neo-mhearachdachd a dhìth, tha e riatanach a ràdh a-rithist an aon gnìomhan}

Seo e - Simpson dòigh. Gu dearbh, chan eil dad nas dorra, tha h-uile càil a sgrìobhadh gu math luath! A-nis fosgailte do Turbo Pascal agus a 'tòiseachadh a' sgrìobhadh a 'phrògram.