|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
28.04.2013, 13:42 | #1 (permalink) |
Member
Регистрация: 26.04.2013
Сообщений: 20
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Сделайте плииз на Паскале АБС
|
28.04.2013, 13:42 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Может быть на нашем форуме проблема уже решена, попробуйте посмотреть в похожих темах Сделайте программу на Паскале Сделайте за меня 11Angelav, пожалуйста, сделайте блок-схему Сделайте, пожалуйста, сортировку пузырьковым методом по возрастанию Сделайте печатную плату |
28.04.2013, 14:11 | #3 (permalink) |
Member
Регистрация: 26.04.2013
Сообщений: 20
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Сделайте плииз на Паскале АБС
При различных значениях параметра z, входящего в выражение для функции f(x), вычислить значение интеграла на заданном отрезке [a,b] с точностью ε. Полученное значение интеграла сравнить с результатом, вычисленным по формуле Ньютона - Лейбница. Получить значение интеграла при различных ε=10^-2; 10^-3; 10^-4; 10^-5. В расчете вывести число разбиений N . метод трапеций.
f(x)=sin^2(x-z)/cos^2(x-z); a,b=0.20-0.40 ;F(x)=tg(x-z)-x-z; |
28.04.2013, 16:20 | #4 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Ну и сколько еще дубликатов мы будем иметь счастие лицезреть? Темы объединены. Дальше - удаление дублей и бан.
А насчет задачки - не хотите самостоятельно попробовать? Знаете, такой кайф, если получится... А мы поможем, если что. |
28.04.2013, 16:27 | #5 (permalink) |
Member
Регистрация: 26.04.2013
Сообщений: 20
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
28.04.2013, 17:15 | #7 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Ладно, пожалуйста. Мне, в общем-то не трудно, только вот... А как Вы дальше своё существование мыслите? Так всю учебу и проездить на форумах? Знаете... не выйдет. Уж поверьте. В общем, очень рекомендую, если еще не поздно, взяться за ум. Впрочем, Вам жить...
Код:
Const a=0.2; b=0.4; Function F(x1,z1:Real):Real; begin F:=Sqr(Sin(x1-z1))/Sqr(Cos(x1-z1)); end; Function Antiderivative(x1,z1:Real):Real; begin Antiderivative:=Sin(x1-z1)/Cos(x1-z1)-x1+z1; end; Procedure Trapezium(zt,et:real; var T:real; var Nt:Integer); var i,N:Integer; Sum1,Sum2,h:Real; begin N:=5; h:=(b-a)/N; Sum1:=(F(a,zt)+F(b,zt))/2*h; for i:=1 to N-1 do Sum1:=Sum1+h*F(a+h*i,zt); Sum2:=Sum1; Repeat Sum1:=Sum2; N:=N*2; h:=(b-a)/N; Sum2:=(F(a,zt)+F(b,zt))/2*h; for i:=1 to N-1 do Sum2:=Sum2+h*F(a+h*i,zt); Until ABS(Sum2-Sum1)<et; Nt:=N; T:=Sum2; end; Var j,M:Integer; z,R,Eps:real; Begin Write('z= '); Readln(z); Eps:=0.1; For j:=1 to 4 do begin Eps:=Eps/10; Trapezium(z,Eps,R,M); Writeln('Eps= ',Eps:8); Writeln('Number of steps= ',M); Writeln('Result: ',R:0:9); Writeln; end; WriteLn('Accurate value:', (Antiderivative(b,z)-Antiderivative(a,z)):0:9); ReadLn; End. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|