Contoh Program Pascal untuk Metode Trapesium

Metode Integrasi Trapesium

Metode integrasi trapesium adalah salah satu metode integrasi numerik guna menghitung suatu luasan kurva dengan batasan tertentu yang dihampiri dengan luasan trapesium.

Berikut ini contoh program metode integrasi trapesium dalam bahasa pemrograman Pascal.

Baca juga: Program Pascal untuk Metode Simpson 3/8

program coba;

uses crt,sysutils;

var bb,ba,h,int,k:real;

i,n:integer;

t1,t2:tdatetime;

hr,min,sec2,ms2:word;

function f(x:real):real;

begin

f:=x*x;

end;

procedure garis;

begin

writeln('===========================================');

end;

begin

clrscr;

write('Masukkan batas bawah: '); readln(bb);

write('Masukkan batas atas: '); readln(ba);

write('Masukkan banyak segmen: '); readln(n);

garis;

t1:=now;

writeln(timetostr(t1)); //waktu awal

garis;

h:=(ba-bb)/n;

int:=f(bb)+f(ba);

for i:=1 to (n-1) do

begin

    k:=bb+i*h;

    int:=int+2*f(k);

end;

int:=int*h*0.5;

writeln('Hasil = ',int:5:15);

garis;

t2:=now;

writeln(timetostr(t2)); //waktu akhir

DecodeTime(t2-t1,hr,min,sec2,ms2);

writeln('Processing time = ',sec2*1000+ms2,' milisekon');

readkey;

end.