2014 dxdy logo

Научный форум dxdy

Математика, Физика, Computer Science, Machine Learning, LaTeX, Механика и Техника, Химия,
Биология и Медицина, Экономика и Финансовая Математика, Гуманитарные науки




 
 Метод парабол и трапеций в Delphi
Сообщение28.12.2011, 10:17 
Смотрите, написал программу в Delphi, банально по примеру который дал преподаватель, на тему вычисление определенных интегралов. Но он начинает спрашивать по каждой строке кода "что это такое?" и тд и тп. А я сделал по его примеру, и не могу найти что означает каждая строчка. Можете помочь основные моменты понять в коде:
program project11;

{$APPTYPE CONSOLE}

uses
SysUtils,
Math;

var A,B,x,dx,Z,Z0:Extended;
i,N:integer;

begin
Write('Vvedite A,B,N: ');
readln(A,B,N);
Writeln('Metod trapecii pri N = ',N);
Z:=((exp(a)- exp(-a))+(exp(b)-exp(-b)))/2; //???????
dx:=(B-A)/N; //шаг
x:=A+dx;
for i:=1 to N-1 do
begin
Z:=Z+((exp(x)- exp(-x))/2);//??????? (что такое "Z")
x:=x+dx;
end;
Z:=Z*dx;//???????
Z0:=((exp(x)+ exp(-x))/2);//???????
Writeln(Z:9:4,' -pribligennoe znachenie');
Writeln(Z0:9:4,' -tochnoe znachenie');
Writeln(Abs(Z0-Z):9:4,' - Abs.osibka');
Writeln(Abs(Z0-Z):9:4,' -Otn.oshibka');
Readln;


//Метод парабол
begin
WriteLn('Metod porabl pri N = ',N);
dx:=(B-A)/N;//???????
Z:=(exp(a)+ exp(-a)); // значение в точке (в левой границе)
for i:=1 to N div 2 do
begin
x:=a+2*i*dx; //Середина первого подынтервала
Z:=Z+4*exp(x-dx)+ exp(-x+dx)+2*exp(x)+ exp(-x);//???????
end;
Z:=(Z-exp(b)+ exp(-b))*dx/3;//???????
Writeln(Z:9:4,' - pribligennoe znachenie');
Writeln(Z0:9:4,' - tochnoe znachenie');
Writeln(Abs(Z0-Z):9:4,' - Abs. oshibka');
Writeln(Abs((Z0-Z)/Z0):9:4,' - Otn. oshibka');
Readln;
end;
end.

Вот где вопросики в коментах, там мне не понятно что это, можете подсказать?

 
 
 
 Re: Метод парабол и трапеций в Delphi
Сообщение28.12.2011, 10:32 
Аватара пользователя
Правила форума:
Правила форума в http://dxdy.ru/post27358.html#p27358 писал(а):
Форум способствует процессу обучения и образования, а не процессу сдачи зачетов и экзаменов, тем более при отсутствии необходимых для этого знаний.

 i  Тема перемещена в Карантин.

Чтобы оттуда выбраться

1. Для оформления кода программы используйте тег syntax (Как подсвечивать синтаксис?).
2. Приведите точную формулировку задания.
3. Приведите формулы, используемые при приближенном вычислении определенного интеграла методом трапеций и методом парабол.
4. Приведите свои попытки решения задачи и объясните, что конкретно вызывает затруднения.

После того как исправите сообщение, сообщите об этом в теме Сообщение в карантине исправлено.
________________
Всякий, кто поступил в университет, но не хочет сам учиться - враг своей страны, подрывающий ее научно-технический, интеллектуальный и оборонный потенциалы.
(c) по мотивам сообщения Yuri Gendelman.

 
 
 [ Сообщений: 2 ] 


Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group