Смотрите, написал программу в 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.
Вот где вопросики в коментах, там мне не понятно что это, можете подсказать?
|