Programalama > PASCAL

program integral;
uses crt;
var alan,x:real;

function y(x:real):real;
begin
  y:=x*x;
end;

Begin

clrscr;
x:=0;
alan:=0;
repeat
  alan:=alan+y(x)*0.05;
  x:=x+0.05;
until x>1;
writeln;
writeln('y=x^2 fonksiyonunun 0 ile 1 arasndaki');
writeln('integral de§eri :',alan:2:2);
repeat until keypressed;

End.