Nima Simpson usuli hisoblanadi, va tili Paskal uni amalga oshirish uchun qanday

Simpson usuli - ajralmas qiymatini hisoblash uchun, taxminan bo'lsa-da, uning yaratuvchisi nomidagi mukammal egallaydi, bor. u parabola qurilishini foydalanadi, chunki u ham, usul paraboller chaqirdi. Bu ko'rsatkich vazifaga imkon qadar yaqin asoslangan. Aslida, funktsiya ochko bilan aynan mos ishora parabol qurish uchun qanday yo'l, bu mumkin emas, va ajralmas yaqinlashtirilgan bo'ladi. a va b bilan chegaralarini Formula Manzil bu kabi ko'rinadi: 1 / h * (y + 4y _{0 1} + 2y ₂ + 4y ₃ + ... + 4y _n-1 + y _n). Bu erda, biz faqat n biz o'zimizni aniqlash n, 0 dan har y hisoblash kerak -, yana yaxshi ko'proq y-s, ishimizning haqiqiy qiymatiga yana taxminiy, chunki. (Ba) / (n-1): soat hurmat bilan, keyin esa bu qadam quyidagi formula bilan hisoblanadi.

nazariyasi, hamma narsa, juda oddiy, lekin amalda bu barcha amalga oshirish uchun zarur bo'ladi. Paskal yoki Delphi - ko'p dasturchilar uchun Simpson usuli sifatida, bu muammoni hal qilish uchun yaxshi bir yo'li yo'q. Bu dunyoda, u yaxlit baholash, balki unga funktsiyasi grafik qurish nafaqat juda oson, va hatto uning trapeze qurilgan. Shunday qilib, biz tezlik Simpson bir usuli amalga oshirish mumkin, qanday qarash va kerakli ham, bu erda va hamma o'sha manfaatdor tashkil bo'lsa ham, tushuntirish uchun.

Lekin men bu muhim oldin kabi ko'rinadi, nima eslayman. "X" o'qi, ya'ni, bir va b bilan boshlanadigan liniyalari bilan chegaralangan bu ko'rsatkich.

Biz integral topasiz, buning uchun = va narsa: Bas, dasturni ishga tushirish uchun sizga İntegrable shunchaki f yozish kerak funktsiyalari (tavtologiya afv), bir vazifani yaratishingiz lozim. Bu yerda, bu Paskal bir vazifani kirib ham zalolatga emas juda muhim. Lekin bu boshqa bir hikoya ekan. Olingan kodi, bu kabi bir narsa paydo bo'ladi:

funktsiya f (x: real): real;

Va asosiy matn xususiyatlari

boshlash

f: = 25 * Lev Nikolaevich (x) + sin (10); {Bu erda va uning funktsiyalari tarkibini yozish kerak}

tugatish;

So'ngra Simpson usuli amalga oshirish uchun bir vazifani yozish. Start kabi bir narsa bo'ladi:

funktsiya simpsonmetod (a, b: real; n: integer): real;

Keyingi, biz o'zgaruvchilar e'lon:

var

s: real; {Quyi jamuljamlikni (keyingi tushunish)}

h: real; {Qadam}

Mening: integer; Faqat {counter}

MNO: integer; {} Keyingi çarpanları

Va endi, aslida, dastur o'zi:

boshlash

h: = (ba) / (n-1); {Standart formuladan qadam kutyapmiz. Ba'zan qadam}, ish yozilgan bu holda, bu formula amal qilmaydi

s: = f (b) + f (a); {Hisobga boshlang'ich pitch qiymati}

MNO: = 4; {- ikkinchi omil bu keyinchalik yana 2, lekin bu erda 4 va yozilganligiga deb _... 1 / h * (y + 4y _{0 1} formulasini eslab}

Shu asosiy formulani Endi:

= 1 n-2 boshlaydi qilasiz: mening uchun

s: = s + MNO * f (a + h * Mu); Xulosani {4 * y _n yoki 2 * y _n ko'paytiriladi boshqa omil _qo'shish}

Agar (MNO = 4), keyin MNO: yana MNO = 2: = 4; {bu omil o'zgarib turadi va - hozir 4 bo'lsa, 2 va aksincha o'zgaradi}

tugatish;

simpsonmetod: = s * h / 3; Keyingi formuladan {davr natijasida sum / 3 soat bilan ko'paytiriladi}

end.

Bu o'sha - formuladan barcha amallarni. Agar ota-dastur usuli qo'llash qanday tushundim bo'lsangiz Simpson o'rnagi bu bilan sizga yordam.

Shunday qilib, barcha yozish vazifalarini yozib keyin

boshlang

n: = 3; Biz o'rnatish {n}

Savol: = simpsonmetod (a, b, n); {Simpson usuli B uchun ajralmas hisoblash uchun ekan, u erda bir necha hisob qadamlar, shuning davrini tashkil etadi}

takrorlash

2-savol: = q; {Yod oldingi qadam}

n: = n + 2;

Savol: = simpsonmetod (a, b, n); quyidagicha {va} qiymati hisoblanadi

qadar (ABS (q-2-savol) <0,001); {Agar zarur aniqligini etmagunimcha, u shu harakatlar takrorlash uchun zarur, shuning uchun sozlama aniqligi, yozilgan}

Simpson usuli - Mana, bir u ekan. Aslida, hech narsa murakkab, har bir narsa juda tez yoziladi! Endi Turbo Paskal ochish va dastur yozishni boshlang.