Naon nya éta métode Simpson, sarta kumaha carana nerapkeun eta dina basa Pascal

Keur ngitung nilai hiji integral, albeit perkiraan, aya hiji metodeu alus teuing, dingaranan panyipta na - metoda Simpson. Anjeunna disebut oge parabolas metoda, sabab migunakeun konstruksi parabola a. inohong ieu dumasar sacaket mungkin ka fungsi éta. Sabenerna, cara kumaha carana ngawangun hiji parabola, nu nunjuk coincide persis jeung titik tina fungsi, nya eta teu mungkin, jeung integral dina ieu pendekatan. Rumus lokasi wates na sareng na b Sigana mah ieu: 1 / h * (y + 4y _{0 1} + 2y ₂ + 4y ₃ + ... + 4y _n-1 + y _n). Di dieu, urang ngan butuh keur ngitung unggal y ti 0 nepi ka n, dimana n urang nangtukeun Sunan Gunung Djati - beuki, anu hadé, lantaran beuki y-s, beuki perkiraan kana nilai sabenerna gawé urang. Nu aya kaitannana ka h, lajeng hambalan ieu diitung ku rumus: (ba) / (n-1).

Dina tiori, sagalana geus cukup basajan, tapi bakal jadi perlu nerapkeun sagala ieu dina kaperluan praktis. Pikeun loba programer henteu cara hadé pikeun ngajawab masalah ieu, salaku metoda Simpson - Pascal atanapi Delphi. Dina lingkungan ieu, eta pisan gampang teu ukur keur evaluate integral, tapi ogé nepi ka ngawangun grafik fungsi pikeun eta, komo diwangun trapeze nya. Ku kituna, urang nempo kumaha anjeun tiasa gancang ngalaksanakeun hiji metoda Simpson komo mun ngajelaskeun, upami hoyong, duanana di dieu na éta anu dikelompokeun, sakabeh jalma dipikaresep.

Tapi inget naon eta Sigana mah sateuacan integral ieu. inohong ieu, nu ieu bounded ku garis nu dimimitian ku sumbu 'X', i.e. a jeung b.

Ku kituna, pikeun ngamimitian program nu Anjeun kudu nyieun fungsi pikeun fungsi integrasi anu (hampura tautology nu), nu saukur kudu nulis f: = sarta hal nu urang manggihan integral. Di dieu, éta krusial teu err dina ngasupkeun hiji fungsi dina Pascal. Tapi éta carita béda. Kode anu dihasilkeun baris kasampak hal kawas kieu:

fungsi f (x: real): nyata;

Sarta fitur text dasar

ngamimitian

f: = 25 * ln (x) + dosa (10); {Dieu jeung anjeun kudu nulis eusi fungsi na}

mungkas;

Lajeng nyerat fungsi pikeun nerapkeun metoda Simpson. Mimitian bakal hal kawas:

fungsi simpsonmetod (a, b: nyata; n: integer): nyata;

Salajengna, urang dibewarakeun variabel:

var

s: nyata; {Subtotals (salajengna ngarti)}

h: nyata; {Lengkah}

kuring: integer; Ngan {counter}

mno: integer; {} The multipliers salajengna

Tur ayeuna, dina kanyataanana, program sorangan:

ngamimitian

h: = (ba) / (n-1); {Nyangka hambalan nurutkeun rumus baku. Kadang-kadang jurus ieu ditulis dina pakasaban, dina hal ieu, rumus ieu teu berlaku}

s: = f (b) + f (a); {Dibikeun nilai pitch awal}

mno: = 4; {Inget Rumus rangka - 1 / h * (y + 4y _{0 1 ...} nu 4 ieu di dieu sarta dieja, faktor kadua 2, tapi nu langkung lengkep ihwal kieu engké}

Ayeuna rumus dasar nu sarua:

keur abdi: = 1 nepi ka n-2 ulah dimimitian

s: = s + mno * f (a + h * Mu); Ka sakur {nambahkeun faktor sejen dikali 4 * y _n atanapi 2 * y _n}

lamun (mno = 4) lajeng mno: = 2 sejenna mno: = 4; {faktor Ieu beda-beda tur - lamun ayeuna aya 4, dirobah ka 2 sabalikna}

mungkas;

simpsonmetod: = s * h / 3; Hareup {siklus jumlah hasilna ieu dikali h / 3} nurutkeun rumus

tungtung.

Éta dinya - ngalakukeun sagala lampah nurutkeun rumus. Upami anjeun teu acan ilahar kaluar kumaha carana nerapkeun dina metoda program utama conto Simpson urang mantuan Anjeun ku ieu.

Jadi sanggeus nulis sagala fungsi nulis

ngamimitian

n: = 3; Urang nangtukeun {n}

q: = simpsonmetod (a, b, n); {Kusabab éta métode Simpson nyaeta mun itung integral ka b, bakal aya sababaraha hambalan itungan, jadi ngatur siklus}

malikan deui

q2: = q; {Memorized hambalan saméméhna}

n: = n + 2;

q: = simpsonmetod (a, b, n); {Jeung} nilai diitung kieu

dugi (ABS (q-q2) <0.001); {The akurasi setting ieu ditulis, jadi dugi ka ngahontal katepatan diperlukeun, perlu malikan tindakan anu sarua}

Di dieu hiji anjeunna - metoda Simpson. Kanyataanna, nanaon nyusahkeun, sagalana geus ditulis pisan gancang! Ayeuna buka Anjeun Turbo Pascal tur mimitian nulis program.