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