Minggu, 03 Juni 2012

bahasa pemrograman pascal luas di bawah kurva


program  Luas_Dibawah_Kurva ;
uses crt ;
var
         a,b,d,l,lp,x,t : real ;
begin
         clrscr ;
         write('Input nilai a : '); read(a);
         write('Input nilai b : '); read(b);
         write('Input nilai t : '); read(t);
         d := (b - a) / 100 ;
         x := a ;
         l := 0 ;
         while x = b do
              x  := x + d ;
              t  := x*x + 2*x + 1 ;
              lp := d*t ;
              l  := l + lp ;
         write('Luas dibawah kurva = ',l) ;
         read;
end.

Tidak ada komentar:

Posting Komentar