Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:2 курс / Вычислительная физика / Задание 2 / Program2
.pas program qq;
var c,f,s:real;
i,n,h:integer;
x:array[1..255] of integer;
begin
writeln('2 integral');
for i:=1 to 255 do
x[i]:=i;
n:=255-1;
for i:=1 to n do
begin
h:=x[i+1]-x[i];
s:=0.5*h*((1/(1+x[i]))+((1/(1+x[i+1]))));
c:=s+c;
end;
f:=c;
writeln(f);
end.
var c,f,s:real;
i,n,h:integer;
x:array[1..255] of integer;
begin
writeln('2 integral');
for i:=1 to 255 do
x[i]:=i;
n:=255-1;
for i:=1 to n do
begin
h:=x[i+1]-x[i];
s:=0.5*h*((1/(1+x[i]))+((1/(1+x[i+1]))));
c:=s+c;
end;
f:=c;
writeln(f);
end.