Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 28.04.2013, 13:42   #1 (permalink)
farejoker
Member
 
Регистрация: 26.04.2013
Сообщений: 20
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Сделайте плииз на Паскале АБС

При различных значениях параметра z, входящего в выражение для функции f(x) sin^2(x-z)/cos^2(x-z), вычислить значение интеграла на заданном отрезке [a,b] 0.20-0.40 с точностью ε. Полученное значение интеграла сравнить с результатом, вычисленным по формуле Ньютона - Лейбница. Получить значение интеграла при различных ε=10^-2; 10^-3; 10^-4; 10^-5. В расчете вывести число разбиений N . Метод левых прямоугольников: 1,5,9,13,17; метод правых прямоугольников : 2,6,10,14,18; метод средних прямоугольников: 3,7,11,15,19; метод трапеций: 4,8,12,16,20.
farejoker вне форума   Ответить с цитированием

Старый 28.04.2013, 13:42
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Может быть на нашем форуме проблема уже решена, попробуйте посмотреть в похожих темах

Сделайте программу на Паскале
Сделайте за меня
11Angelav, пожалуйста, сделайте блок-схему
Сделайте, пожалуйста, сортировку пузырьковым методом по возрастанию
Сделайте печатную плату

Старый 28.04.2013, 13:45   #2 (permalink)
farejoker
Member
 
Регистрация: 26.04.2013
Сообщений: 20
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

f(x)=sin^2(x-z)/cos^2(x-z) a,b=0.20-0.40 F(x)=tg(x-z)-x-z
farejoker вне форума   Ответить с цитированием
Старый 28.04.2013, 14:11   #3 (permalink)
farejoker
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;
farejoker вне форума   Ответить с цитированием
Старый 28.04.2013, 16:20   #4 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Ну и сколько еще дубликатов мы будем иметь счастие лицезреть? Темы объединены. Дальше - удаление дублей и бан.
А насчет задачки - не хотите самостоятельно попробовать? Знаете, такой кайф, если получится... А мы поможем, если что.
Vladimir_S вне форума   Ответить с цитированием
Старый 28.04.2013, 16:27   #5 (permalink)
farejoker
Member
 
Регистрация: 26.04.2013
Сообщений: 20
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Цитата:
Сообщение от Vladimir_S Посмотреть сообщение
Ну и сколько еще дубликатов мы будем иметь счастие лицезреть? Темы объединены. Дальше - удаление дублей и бан.
А насчет задачки - не хотите самостоятельно попробовать? Знаете, такой кайф, если получится... А мы поможем, если что.
знал бы как сделал б( но увы
farejoker вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 28.04.2013, 16:40   #6 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Хм... что-то у меня первообразная получается tg(x-z)-x+z . Ладно, проверю еще разок.
Vladimir_S вне форума   Ответить с цитированием
Старый 28.04.2013, 17:15   #7 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от farejoker Посмотреть сообщение
знал бы как сделал б( но увы
Ладно, пожалуйста. Мне, в общем-то не трудно, только вот... А как Вы дальше своё существование мыслите? Так всю учебу и проездить на форумах? Знаете... не выйдет. Уж поверьте. В общем, очень рекомендую, если еще не поздно, взяться за ум. Впрочем, Вам жить...
Код:
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.
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 17:53.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.