Построить график интеграла

@venom47 · Регистрация: 04.12.2010

Author24 — интернет-сервис помощи студентам

Помогите чем можете
Нужно добавть в программу чтоб она строила интеграл и область штриховала

Pascal

program qq;
 var S,L,a,b:real;
 n,z:byte;
 function integ(a,b:real;n:byte):real;
 var S,h,f:real; J:integer;
 begin
 h:=abs(b-a)/n;
 S:=0;
 for J:=0 to n-1 do
 S:=S+abs(1/(sqrt(1+(2*(a+h*j)*(a+h*j)*(a+h*j)) ))); {Summa ploshad primaug.}
 integ:=h*S; {Znachenie integrala.}
 end;
 
 begin
 repeat
 writeln('Vedi nachalnyu i konechnyu granicy');
 readln(a,b);
 if a<b then begin
 writeln('Vedi kolichestvo shagov');
 readln (n);
 L:=integ(a,b,n);
 writeln ('ploshad=',L:3:2);
 end
 else writeln ('Vi oshiblis granicami');
 writeln ('Hoshesh Prodolzit?! 1-да 0-неt');
 readln(z);
 until Z<>1;
 end.

Добавлено через 34 секунды

вот так должно примерно выглядеть

@Puporev · 01.05.2011, 18:21

Хоть бы подинтегральную функцию написал, как график строить? А то это

Pascal

1	abs(1/(sqrt(1+(2(a+hj)(a+hj)(a+hj)) )))

больше на бред похоже... Зачем брать по модулю положительное число? А при отрицательных вообще работать не будет. На картинке еще больший бред...

@venom47 · 01.05.2011, 18:47 **[ТС]**

Нам уже это прогу дали в универе и график так же нарисовали

@venom47 0 / 0 / 0 Регистрация: 04.12.2010 Сообщений: 19
	01.05.2011, 18:47 [ТС]	3
	Нам уже это прогу дали в универе и график так же нарисовали 0