Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
20
Добавлен:
29.03.2016
Размер:
299 б
Скачать
program qq;
var c,f,h,s:real;
i,n:integer;
x:array[1..255] of real;
begin
writeln('1 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:=h*(4/(1+x[i]*x[i])+4*4/(1+((x[i]+x[i+1])/2)+4/(1+x[i+1]*x[i+1])));
c:=s+c;
end;
f:=c/25;
writeln(f);
end.
Соседние файлы в папке Задание 1