Program LuasKurva;
{ Menghitung luas di bawah kurva y=x^3 + x +1 dari masukan a sampai b dengan
interval delta }
var
	a,b,delta : real;
	y1,y2 : real;
	luas : real;
 
{ FUNCTION }
function pangkat(x:real;y:integer):real;
{ Menghitung nilai x^y dari nilai x dan y yang dimasukkan }
{ KAMUS LOKAL }
var
	i: integer;
{ ALGORITMA }
begin
	pangkat:=1;
	for i:=1 to y do
		pangkat:=pangkat*x;
end;
 
{ ALGORITMA PROGRAM UTAMA }
begin
	readln(a); { Asumsi a<b dan a>=0 }
	writeln('a = ',a);
	readln(b); { Asumsi b>0 }
	writeln('b = ',b);
	readln(delta); { Asumsi delta > 0 }
	writeln('delta = ',delta);
 
	luas :=0;
	while(a<b) do
	begin
		y1:=pangkat(a,3)+a+1;
		y2:=pangkat((a+delta),3)+(a+delta)+1;
		luas:=luas+((y1+y2)*delta/2);
	end;
	writeln('Luas daerah x^3+x+1 dari',' ',a,' s.d. ',b,' = ',luas:0:2);
	readln;
end.
 

UHJvZ3JhbSBMdWFzS3VydmE7CnsgTWVuZ2hpdHVuZyBsdWFzIGRpIGJhd2FoIGt1cnZhIHk9eF4zICsgeCArMSBkYXJpIG1hc3VrYW4gYSBzYW1wYWkgYiBkZW5nYW4KaW50ZXJ2YWwgZGVsdGEgfQp2YXIKCWEsYixkZWx0YSA6IHJlYWw7Cgl5MSx5MiA6IHJlYWw7CglsdWFzIDogcmVhbDsKCnsgRlVOQ1RJT04gfQpmdW5jdGlvbiBwYW5na2F0KHg6cmVhbDt5OmludGVnZXIpOnJlYWw7CnsgTWVuZ2hpdHVuZyBuaWxhaSB4XnkgZGFyaSBuaWxhaSB4IGRhbiB5IHlhbmcgZGltYXN1a2thbiB9CnsgS0FNVVMgTE9LQUwgfQp2YXIKCWk6IGludGVnZXI7CnsgQUxHT1JJVE1BIH0KYmVnaW4KCXBhbmdrYXQ6PTE7Cglmb3IgaTo9MSB0byB5IGRvCgkJcGFuZ2thdDo9cGFuZ2thdCp4OwplbmQ7Cgp7IEFMR09SSVRNQSBQUk9HUkFNIFVUQU1BIH0KYmVnaW4KCXJlYWRsbihhKTsgeyBBc3Vtc2kgYTxiIGRhbiBhPj0wIH0KCXdyaXRlbG4oJ2EgPSAnLGEpOwoJcmVhZGxuKGIpOyB7IEFzdW1zaSBiPjAgfQoJd3JpdGVsbignYiA9ICcsYik7CglyZWFkbG4oZGVsdGEpOyB7IEFzdW1zaSBkZWx0YSA+IDAgfQoJd3JpdGVsbignZGVsdGEgPSAnLGRlbHRhKTsKCQoJbHVhcyA6PTA7Cgl3aGlsZShhPGIpIGRvCgliZWdpbgoJCXkxOj1wYW5na2F0KGEsMykrYSsxOwoJCXkyOj1wYW5na2F0KChhK2RlbHRhKSwzKSsoYStkZWx0YSkrMTsKCQlsdWFzOj1sdWFzKygoeTEreTIpKmRlbHRhLzIpOwoJZW5kOwoJd3JpdGVsbignTHVhcyBkYWVyYWggeF4zK3grMSBkYXJpJywnICcsYSwnIHMuZC4gJyxiLCcgPSAnLGx1YXM6MDoyKTsKCXJlYWRsbjsKZW5kLgo=

MAoyCjAuMQ==

0
2
0.1