Симпсон методу деген эмне жана ал тилде Pascal, аны ишке ашыруу үчүн кандай

ажырагыс наркын эсептөө үчүн, болжолдуу болсо да, анын жасаган атындагы мыкты ыкмасы бар - Симпсон методу. Ал ошондой эле бул парабола курулушун колдонот, анткени, ыкмасы элгү чакырды. Бул сүрөттө иштеши үчүн мүмкүн болушунча жакын негизделген. Чынында, милдетинин упай менен так дал көрсөтүп парабола, куруу үчүн кандай жол менен, ал мүмкүн эмес, жана интегралдык өкүлү болот. а жана б менен, анын чек аралары боюнча Formula жери мындай: 1 / ч * (Ж + 4ж _{0 1} + ₂ + 2y 4ж ₃ + ... + 4ж _Н-1 + ж _н). Бул жерде биз эле н өзүбүздү өзүбүз аныктап, ар бир ж 0 чейин N, эсептеп чыгышыбыз керек - көбүрөөк, жакшы, анткени дагы ж-жылдардын ишибиздин чыныгы наркынын кыйла болжолдуу. с карата, андан кийин бул кадам төмөнкү бисмиллах менен эсептелет: (БА) / (н-1).

Теориялык, баары өтө жөнөкөй, бирок, мунун баары иш жүзүндө ишке ашыруу үчүн зарыл болот. Паскалга же Delphi - көп программалааччылар үчүн Симпсон ыкмасы катары, бул маселени чечүү үчүн эч кандай жакшы жолу болуп саналат. Бул чөйрөдө, абдан жеңил ажырагыс баа берүү үчүн гана эмес, ошондой эле аны иш бир арыздын куруп, ал тургай, анын уаа курду. Демек, биз тез Симпсон ыкмасын ишке ашыруу кантип жана каалаган, бул жакка да, бул уюштурулган, бардык кызыкдар болсо, түшүндүрүп да карап.

Бирок, мен бул ажырагыс чейин карап эстеп. 'X' огу, б.а. А жана Б менен башталган саптар менен чектелген бул көрсөткүч.

Ошондуктан, программасын баштоо үчүн интегралдануучу милдеттерин үчүн иш-милдетин түзүү керек (Tautology кечирип) жөн гана е жазуу бар: = жана ажырагыс таба турган бир нерсе. Бул жерде, ал Паскалга бир милдетти кирип берүүдө эмес, өтө маанилүү болуп саналат. Бирок бул өзүнчө тема. натыйжасында коду ушул сыяктуу бир нерсе болот:

милдети F (х: реалдуу): реалдуу;

Ал эми негизги текст өзгөчөлүктөр

баштоо

е: = 25 * ы (х) + күнөө (10); {Бул жерде жана анын иш-милдеттерин ишке мазмунун жазуу керек}

жок;

Ошондо Симпсон ыкмасын ишке ашыруу үчүн иш-милдетин жаз. Start сыяктуу бир нерсе болот:

милдети simpsonmetod (а, б: реалдуу; н: бүтүн сан): реалдуу;

Андан ары, биз өзгөрмөлөрдү жарыялоо:

VAR

лер: реалдуу; {Subtotals (мындан ары түшүнүү)}

ч: реалдуу; {Кадам}

Мен: бүтүн сан; Жөн гана {Каршы}

Бережная: бүтүн сан; {} Кийинки көбөйтүүчүлөрү

Ал эми азыр, чынында, программанын өзү:

баштоо

ч: = (БА) / (н-1); {Стандартты иштеп жараша кадам күтүлөт. Кээде кадам жумуш жазылган, бул учурда, мындай формула тиешеси жок}

с: = е (б) + е (а); {Эске алгачкы кадамы балл}

Бережная: = 4; {- 1 / ч * (Y + 4ж _{0 1} Бул 4 менен кара деп _..., экинчи себеп 2, бирок бул кийинчерээк көбүрөөк болуш Эске}

Азыр ошол эле негизги болуш:

менин: = 1 Н-2 башташат

с: = с + Бережная * F (а + ч * Му); Кыскача айтканда {4 * ж _н же 2 * ж _н көбөйтүлгөн дагы эмнеден _кошуу}

эгер (Бережная = 4), андан кийин Бережная: = 2 башка Бережная: = 4; {Бул жагдай өзгөрүлүп турат жана - азыр 4 болсо, 2 жана тескерисинче өзгөртүлөт}

жок;

simpsonmetod: = с * ж / 3; Кийинки {айланышы натыйжасында суммасы ч көбөйтүлөт / 3} иштеп чыккан

аягы.

Ошол эле - иштеп боюнча бардык иш-аракеттерди кылышат. сиз программанын негизги ыкмасы колдонууга кантип аныкташа элек болсо Симпсон мисал менен жардам берет.

Ошентип, ар бир жаз милдеттерин жазып кийин

баштоо

н = 3; Биз койгон {н}

С: = simpsonmetod (а, б, н); {Симпсон методу б а интегралдык эсептөө үчүн болгондуктан, бир нече эсептөө кадамдар болот, ошондуктан айлампасын уюштуруу}

кайтолоо

Q2: = С; {Жаттап мурунку кадам}

н = н + 2;

С: = simpsonmetod (а, б, н); {Ал} наркы төмөндөгүдөй эсептелет

чейин (ABS (С-Q2) <0,001); {жөндөө тактыгы Эгер талап кылынган тактыгына жеткенге чейин, ал ошол эле аракеттерди кайталап зарыл, ошондуктан жазылган}

Бул жерде ал иш - Симпсон методу. Чынында, эч нерсе татаал, баары абдан бат жазылып турат! Эми Turbo Pascal ачуу жана программасын жазып баштайт.