Исходник программы на паскаль для вычисления интеграла методом средних прямоугольников

Исходник программы на паскаль для вычисления интеграла методом средних прямоугольников


"Изучение Паскаля мы начнем сразу с конкретных примеров, которые помогут вам почувствовать процесс программирования вживую" - паскаль для начинающих

Исходник программы на паскаль, которая вычисляет интеграл методом средних прямоугольников. Объяснительных комментариев практически нет. Программа работает в компиляторах Pascal ABC, Pascal ABC.Net, Turbo Pascal, Free Pascal (Lazarus). Скачать исходник примера программы или просмотреть исходный код, Вы можете далее.

Исходный код задачи на Pascal:

var
n : integer;
s: real;

Function f(x:real):real;
begin
f:=1-0.25*sin(x)*sin(x);
end;
procedure rect (a,b:real; n:integer; var s:real); //Вычисление интеграла
var
i : integer;
h,x: real;
begin
h:=(b-a)/n;
x:=a+h/2;
s:=0.0;
for i:=1 to n do
begin
s:=s+f(x);
x:=x+h;
end;
s:=s*h;
end;

Begin
rect (0,pi/2,40, s);
write('Интеграл = ',s:4:4);
//readln; //Для Turbo Pascal
End.


Скачать исходник Паскаль: integral.pas
Автор: Zed от 2012-11-13 19:33:40   Просмотров: 11160

Теги: Паскаль исходник исходники скачать Pascal процедуры подпрограммы