Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Нужно написать программу вычисления интеграла в делфи
Пожалуйста, помогите!
Задача: Написать программу приближенного вычисления интеграла методом трапеций. После каждого цикла программа должна выводить вычисленное значение, количество и величину интервалов.

Написать сказали обязательно в делфи и приложить скрины выполняемой работы.
В информатике я совершенно не сильна, буду очень благодарна, если объясните, как говорится, как для блондинки!)
1 | Автор: EkaterinaVis | 2014-09-24, 20:32   |  Репутация: [ + 0 ]
Вот код программу приближенного вычисления интеграла методом трапеций на Паскале. Его можно использовать в Делфи. Полный код на Делфи трудно привести он большой.

Код
program int_met_trap;
uses crt;
  const epsilon:real=0.0001; a:real=0; b:real=6;
var
  s:real;
function f(x:real):real;
  {Подынтегральная функция}
begin
  if x=0 then f:=1 else f:=sin(x)/x;
  {Функции для тестирования}
  {f:=sin(x)}
  {f:=x*x;}
  {f:=exp(-sqr(x));}
end;

function imetrap(a,b:real):real;
  {Функция, реализующая метод трапеций }
var
  n,i:longint;
  s1,s2,h,v:real;
begin
  n:=2; h:=(b-a)/n; s2:=0;
  writeln('Промежуточные значения интеграла');
  repeat
  s1:=0;
  for i:=1 to n-1 do s1:=s1+f(a+i*h);
  s1:=(s1+f(a)/2+f(b)/2)*h;
{Промежуточные значения}
  writeln(s1:9:7,', n=',n);
  n:=2*n; v:=s2; s2:=s1; s1:=v;
  h:=(b-a)/n
  until abs(s2-s1)<epsilon;
{Результат}

  imetrap:=s2;
end;
Begin
  clrscr;
  s:=imetrap(a,b);
  writeln('Интеграл =',s:9:7,' с точностью ',epsilon:6:4);
  readln
End.
2 | Автор: admin | 2014-09-24, 21:19   |  Репутация: [ + 22 ]
2 | Автор: admin | 2014-09-24, 21:19   |  Репутация: [ + 22 ]
Спасибо огромное! Сейчас попробую сделать, если разберусь с интерфейсом!))
3 | Автор: EkaterinaVis | 2014-09-24, 22:43 | Изменено: EkaterinaVis - Ср, 2014-09-24, 22:55   |  Репутация: [ + 0 ]
up
4 | Автор: skorp | 2018-10-30, 11:16   |  Репутация: [ + 0 ]
а в с ++ щарите ?
5 | Автор: sspp212 | 2018-12-29, 12:42   |  Репутация: [ + 0 ]
wink
6 | Автор: 1987Екатерина1987 | 2021-03-01, 16:20   |  Репутация: [ + 0 ]
6 | Автор: 1987Екатерина1987 | 2021-03-01, 16:20   |  Репутация: [ + 0 ]
Как делать дельфи программу, уже позабыла?? @kstu.kz

Malika1994
7 | Автор: malik_p2010 | 2021-06-18, 07:53   |  Репутация: [ + 0 ]
Здається, ви шукаєте інформацію про відновлення паролю до облікового запису електронної пошти на домені @kstu.kz. Щоб відновити доступ до облікового запису, зазвичай потрібно перейти на веб-сайт вашого університету та скористатися функцією відновлення паролю або зв'язатися з технічною підтримкою для отримання додаткової допомоги. Якщо вам потрібна конкретна інструкція, можливо, зверніться до ресурсів вашого університету або зв'яжіться з адміністрацією, яка надає підтримку студентам та персоналу.
8 | Автор: DenH13855 | 2024-05-24, 16:08   |  Репутация: [ + 0 ]
  • Страница 1 из 1
  • 1
Поиск: