22.12.2014, 02:22 | #1 (permalink) |
Новичок
Регистрация: 22.12.2014
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Паскаль. Численное интегрирование
|
22.12.2014, 02:22 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Отправлю вам ссылки по которым содержаться схожие топики Интегрирование AHCI драйверов в установленную Windows 7 Интегрирование MP2603DI в автомобильную магнитолу Паскаль Паскаль |
22.12.2014, 02:28 | #2 (permalink) |
Новичок
Регистрация: 22.12.2014
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
И еще, я взял у одногруппника его задание, он говорил можно переделать, но я не знаю как
Код:
program Aplomba; Type mas=array[1..100] of real; Var A,B,XM,XN,DX,xo,G1,G2,H,EPS,I1,I2:real; U,N:byte; X,Y: mas; I,J,KM,K:integer; function F(x:real):real; begin F:=a*b*sqr(sin(2*3.14*x))/sqrt(x); end; Begin writeln('vvedite G1, G2, EPS, KM, A, XN, DX, N'); readln (G1, G2, EPS, KM, A, XN, DX, N); writeln ('G1=', G1:5:2, 'G2=', G2:5:2, 'EPS=', EPS:5:3, 'KM=', KM:5); B:=xo; I1:=0; K:=4; for J:=1 to KM do begin xo:=xo + H; I2:=I2+F(xo); H:=(G2-G1) / K; I:=1; repeat xo:=xo+H; I2:=I2+F(xo); inc(I); until I>=K; I2:=I2*H; if abs (I1-I2)>EPS then begin I1:=I2; K:=2*K; end else begin { J:=KM;} {Переменная не известного значения. Указывает на цикл в цикле} writeln('integral=', I2:10:5); exit; end; B:=I2; begin U:=1; x[u]:=XN; FOR U:=1 TO N DO X[u]:=x[u-1] + DX; end; FOR U:=1 TO N DO begin writeln('B=',B:10:7); Y[u]:=A*B*(sqr(sin(2*3.14*x[u]))/sqrt(x[u])); writeln('X[',u,']=',X[u]:10:5,'Y[',u,']=', Y[u]:10:5); end; writeln('reshenie ne naideno'); end; End. |
22.12.2014, 09:58 | #3 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Если дело терпит, то вечером нарисую, как надо. А пока - несколько вопросов, на которые хотелось бы получить ответы. 1. Что означает п.1) - "Табл. Ф-ияf(x,a,b)"? К чему это? 2. Оговорен ли метод численного интегрирования? Прямоугольники? Трапеции? Симпсон? Без разницы? 3. То, что под п.3) - это подынтегральная функция? Зачем там вертикальная черта? И действительно ли там cos²(6), то есть константа? Или может быть там должно быть cos²(у), где у задается представленной ниже ветвящейся функцией? P.S. Сразу предупреждаю - тупые отговорки типа "а мне так дали!" не катят! |
|
22.12.2014, 20:00 | #4 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
И молчание было ему ответом...
Но в любом случае, к сожалению, вынужден отменить обещание, и не по своей вине. Просто рассмотрел внимательно это так называемое "задание". Значит, так. Мало того, что там хаотично разбросаны группы каких-то значков, а пункты 1), 2), 3) и вовсе непонятно к чему относятся, так еще и полная непонятка с интегралом. Начать с того, что положительный нижний предел и отрицательный верхний - это более, чем странно. Хотя математика такого формально и не запрещает. Но вот дальше... Если считать выражение, стоящее в строке под номером 3) справа, подынтегральной функцией, то такая функция прямо-таки повергает в шок. Видите ли, множитель х в степени 2х, с учетом отрицательного верхнего предела, предполагает возведение отрицательного числа в дробную степень. Сразу скажу, что в пределах множества вещественных чисел такая операция некорректна. Короче говоря, так. Чтобы мы могли Вам помочь, Вы должны выложить ясно, четко и однозначно сформулированную задачу, а не эту каляку-маляку. Где Вы ее возьмете - Ваши проблемы. И еще раз повторю: всякие "а мне так дали!" нас просто не интересуют. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|