Praktikum: Pertemuan Ke-2 Program Matlan

Source code:

USES CRT;
FUNCTION F (X:REAL):REAL;
BEGIN
F:=EXP(X)-4*X;
END;
FUNCTION G(X:REAL):REAL;
BEGIN
G:=EXP(X)-4;
END;
VAR
XL,XB,E,M:REAL;
X:INTEGER;
BEGIN
CLRSCR;
WRITELN('PROGRAM MATLAN');
E:=0.0001;
WRITELN('MASUKAN X=');READLN(XL);
WRITELN;X:=0;
REPEAT
XB:=XL - (F(XL)/G(XL));
M:=ABS(XL-XB);
XL:=XB;
X:=X+1;
WRITELN('ITERASI KE ',X,'=',XB:0:8);
UNTIL M<E;
WRITELN;
WRITELN('AKARNYA =',XB:0:6);
READLN;
END.

Download Source Code





 Rename nama .txt jadi .pas