1. Trapezoid
2. Simpson 1/3
3. Simpson 3/8
Untuk soal
1. Penyelesaian dengan Metode Trapezoid
program trapezoida;
uses wincrt;
var
h, a, hasil, jum : real;
baris, kolom : integer;
data : array[0..6,1..2] of real;
begin
h:=1;
for baris:=0 to 6 do
begin
writeln('masukkan data x dan fx',baris,' ');
readln(data[baris,1],data[baris,2]);
end;
h:=data[2,1]-data[1,1];
a:=h/2;
writeln;
write('hasil h/2 :',a:4:2);
writeln;
writeln;
jum:=0;
for baris:=0 to 6 do
begin
if (baris=0) or (baris=6) then
jum:=jum+data[baris,2]
else
jum:=jum+(2*data[baris,2]);
end;
hasil:=1;
hasil:=a*jum;
write('hasil : ',hasil:7:5);
writeln;
readln;
end.
Download coding metode trapezoid
2. Penyelesaian dengan Metode Simpson 1/3
program simpson1;
uses wincrt;
var
h, a, hasil, jum : real;
baris, kolom : integer;
data : array[0..6,1..2] of real;
begin
h:=1;
for baris:=0 to 6 do
begin
writeln('masukkan data x dan fx',baris,' ');
readln(data[baris,1],data[baris,2]);
end;
h:=data[2,1]-data[1,1];
a:=h/3;
writeln;
write('hasil h/3 :',a:4:2);
writeln;
writeln;
jum:=0;
for baris:=0 to 6 do
begin
if (baris=0) or (baris=6) then
jum:=jum+data[baris,2]
else
if (baris mod 2= 1) then
jum:=jum+(4*data[baris,2])
else
jum:=jum+(2*data[baris,2]);
end;
hasil:=1;
hasil:=a*jum;
write('hasil : ',hasil:7:5);
writeln;
readln;
end.
Download coding Metode Simpson 1/3
3. Penyelesaian dengan Metode Simpson 3/8
program simpson;
uses wincrt;
var
h, a, hasil, jum : real;
baris, kolom : integer;
data : array[0..6,1..2] of real;
begin
h:=1;
for baris:=0 to 6 do
begin
writeln('masukkan data x dan fx',baris,' ');
readln(data[baris,1],data[baris,2]);
end;
h:=data[2,1]-data[1,1];
a:=(3*h)/8;
writeln;
write('hasil (3*h)/8 :',a:4:2);
writeln;
writeln;
jum:=0;
for baris:=0 to 6 do
begin
if (baris=0) or (baris=6) then
jum:=jum+data[baris,2]
else
if (baris mod 3= 0) then
jum:=jum+(2*data[baris,2])
else
jum:=jum+(3*data[baris,2]);
end;
hasil:=1;
hasil:=a*jum;
write('hasil : ',hasil:7:5);
writeln;
readln;
end.
Download coding Metode Simpson 3/8
