Kod: Zaznacz cały
program progr;
uses crt;
var
x,xp,xk : real;
calka,h : real;
function funkcja(x:real):real;
begin
funkcja:=sqr(x);
end;
begin
clrscr;
writeln('podaj xp i xk (liczbe poczatkowa i koncowa)');
write('xp=');
read(xp);
write('xk=');
read(xk);
h:=(xk-xp)/2;
calka:=(xk-xp)*funkcja(h);
writeln('calka=',calka:5:5);
readkey;
end.
- podac liczę częsci na jaką ma byc podzielona całka.
- liczył pole powierzchi każdej z częsci, następnie dodając je i otrzymując poprawny wynik.
Z góry dzięki za podpowiedzi