Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
13
Добавлен:
29.03.2016
Размер:
292 б
Скачать
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:=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/20.5;
writeln(f);
end.
Соседние файлы в папке Задание 1