Program Lokalisasi Akar
Program Lokalisai_Akar;Uses Crt;
Function f(x : real) : real;
Begin
f := exp(x) - 4*x;
End;
Var x : real;
Begin
ClrScr;
Writeln ('Program Lokalisasi Akar');
Writeln ('==================');
Writeln;
Writeln ('X',' ','f(x)');
Writeln ('-------------------------');
X := 0;
While x < 3 do
Begin
x := x + 0.1;
Writeln (x:0:2,' ',f(x):0:2);
End;
Readkey
End.
Tulisan yang berwarna merah adalah interval tempat kedudukan akar, ubahlah sesuai dengan fungsi yang diberikan. Sedangkan tulisan yang berwarna biru merupakan step gantilah sesuai dengan banyaknya desimal. ubahlah angka yang berwarna hijau untuk mengatur banyaknya desimal.