Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Delphi, Kylix and Pascal


купить трафик таргетированный
Ответ
 
Опции темы Опции просмотра
Старый 28.11.2016, 16:39   #1 (permalink)
SpiresVili
Новичок
 
Регистрация: 28.11.2016
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Интегрирование функций методом трапеций. Паскаль

напишите пожалуйста прогу .
Миниатюры
trapez.jpg  
SpiresVili вне форума   Ответить с цитированием

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

Список тем, которые схожи с вашей

Интегрирование функций методом трапеций. Паскаль
Интегрирование методом средних прямоугольников в Delphi
Паскаль. Численное интегрирование
Паскаль, подпрограммы функций
Паскаль АВС, сортировка в одномерном массиве без функций и операций

Старый 28.11.2016, 16:45   #2 (permalink)
SpiresVili
Новичок
 
Регистрация: 28.11.2016
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Вычисление значения гиперболического косинуса

Напишите пожалуйста программу в паскале
Миниатюры
hyp.jpg  
SpiresVili вне форума   Ответить с цитированием
Старый 28.11.2016, 16:51   #3 (permalink)
SpiresVili
Новичок
 
Регистрация: 28.11.2016
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Вычисления функции при заданных значениях аргументов

Напишите пожалуйста программу на Паскаль
Миниатюры
ln.jpg  
SpiresVili вне форума   Ответить с цитированием
Старый 28.11.2016, 17:00   #4 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 24,521
Сказал(а) спасибо: 188
Поблагодарили 345 раз(а) в 114 сообщениях
Репутация: 71596
По умолчанию

Цитата:
Сообщение от SpiresVili Посмотреть сообщение
напишите пожалуйста прогу .
М-да... знакомая картина. Декабрь близится, а в нем - зачетная неделя и начало сессии (ну кто бы мог ожидать такой пакости?). Студенты начинают пробуждаться от осенней спячки.
Ладно, держите:
Код:
Const
 a=1.0;
 b=4.0;
 N=40;

Var
 AV:Real;

Function F(x:Real):Real;
begin
 F:=x*x*x/(x*x*x*x+1);
end;

Function Antiderivative(x:Real):Real;
begin
 Antiderivative:=ln(x*x*x*x+1)/4;
end;

Function Trapezium:Real;
var
 i:Byte;
 Sum,h:Real;
begin
 h:=(b-a)/N;
 Sum:=(F(a)+F(b))/2*h;
 for i:=1 to N-1 do
  Sum:=Sum+h*F(a+h*i);
 Trapezium:=Sum;
end;


Begin
 Writeln('Result: ',Trapezium:0:8);
 AV:=Antiderivative(b)-Antiderivative(a);
 WriteLn('Accurate value: ', AV:0:8);
 Readln
End.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S на форуме   Ответить с цитированием
Старый 28.11.2016, 17:05   #5 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 24,521
Сказал(а) спасибо: 188
Поблагодарили 345 раз(а) в 114 сообщениях
Репутация: 71596
По умолчанию

И сколько этой ерунды еще будет вывалено? Подозреваю, что за весь семестр... Ладно уж, давайте всё, посмотрю. Только не сию минуту.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S на форуме   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 28.11.2016, 19:18   #6 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 24,521
Сказал(а) спасибо: 188
Поблагодарили 345 раз(а) в 114 сообщениях
Репутация: 71596
По умолчанию

Цитата:
Сообщение от SpiresVili Посмотреть сообщение
Напишите пожалуйста программу в паскале
Код:
Const
 x=1.75;
 e=0.001;

Var
 S,a:Real;
 n:Integer;

Begin
 a:=1;
 S:=a;
 n:=0;
 repeat
  n:=n+1;
  a:=a*Sqr(x)/((2*n-1)*(2*n));
  S:=S+a;
 until a<e;
 Writeln('Result: ',S:0:8);
 WriteLn('Accurate value: ', (exp(x)+exp(-x))/2:0:8);
 Readln
End.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S на форуме   Ответить с цитированием
Старый 28.11.2016, 19:45   #7 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 24,521
Сказал(а) спасибо: 188
Поблагодарили 345 раз(а) в 114 сообщениях
Репутация: 71596
По умолчанию

Цитата:
Сообщение от SpiresVili Посмотреть сообщение
Напишите пожалуйста программу на Паскаль
Код:
Const
 a=2.0;

Var
 x:Real;
 i:byte;

function L_n(t:real):real;
var
 n:byte;
 c,S:real;
begin
 n:=0;
 c:=(t-1)/(t+1);
 S:=c;
 for n:=1 to 10 do
  begin
   c:=c*Sqr(t-1)/Sqr(t+1)*(2*n-1)/(2*n+1);
   S:=S+c;
  end;
 L_n:=S*2;
end;

function Z1(a1,x1:real):real;
begin
 if x1>=a1 then Z1:=a1*L_n(x1) else Z1:=x1*L_n(a1);
end;

function Z2(a2,x2:real):real;
begin
 if x2>=a2 then Z2:=a2*Ln(x2) else Z2:=x2*Ln(a2);
end;

Begin
 Writeln(' x         Result        Accurate');
 for i:=0 to 6 do
  begin
   x:=3.0+0.5*i;
   writeln(x:3:1,Z1(a,x):15:5,Z2(a,x):15:5);
  end;
 Readln
End.
Между прочим, в формуле задания, как обычно в методичках, лажа. Показатели степени в разложении логарифма должны быть (2n+1) как в числителе, так и в знаменателе.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S на форуме   Ответить с цитированием
Старый 29.11.2016, 13:36   #8 (permalink)
SpiresVili
Новичок
 
Регистрация: 28.11.2016
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

спасибо вам больше , да всё возможно там скорее всего сам преподаватель изменял их
SpiresVili вне форума   Ответить с цитированием
Ads

Яндекс

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

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

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

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




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

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