"Изучение Паскаля мы начнем сразу с конкретных примеров, которые помогут вам почувствовать процесс программирования вживую" - паскаль для начинающих
Исходник программы на паскаль, которая вычисляет интеграл методом средних прямоугольников. Объяснительных комментариев практически нет. Программа работает в компиляторах 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