25.03.2009, 01:09 | #1 (permalink) |
Новичок
Регистрация: 25.03.2009
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Задачка в Pascal
Написать программу, которая вычисляет определенный интеграл по методу трапеции и методом Симпсона(или Симсона) Заранее спасибо... |
25.03.2009, 01:09 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Я уверен, что это займет немного времени, посмотрите Задачка. Задачка по Паскалю Задачка (Paskal) Задачка Задачка в делфи задачка по Паскалю АВС |
25.03.2009, 10:44 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
VAR a,b,h,S1,S2:REAL; n,i:INTEGER; FUNCTION f(x:REAL):REAL; BEGIN { Enter the function furmula } f:=Sin(x); { for example } END; BEGIN Write('n (EVEN value!!!) = '); ReadLn(n); Write('a = '); ReadLn(a); Write('b = '); ReadLn(b); h:=(b-a)/n; S1:=0; FOR i:=1 TO n-1 DO S1:=S1+f(a+h*i)*h; S1:=S1+0.5*(f(a)+f(b))*h; S2:=0; FOR i:=1 TO n div 2 DO S2:=S2+f(a+h*(2*i-1))*4; FOR i:=1 TO (n div 2)-1 DO S2:=S2+f(a+h*2*i)*2; S2:=S2+f(a)+f(b); S2:=S2*h/3; WriteLn('Trapezoid: ', S1); WriteLn('Parabolic: ', S2); ReadLn; END. Проверено. Работает. А если помощь опоздала, то уж не взыщите - сами дотянули. |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|