MATERI PASCAL

program ex;
uses wincrt;
var sum:real; j,x:integer;
function fac (n:integer): integer ;
var  i: integer ;
begin
fac:=1;
for i:=1 to n do
fac:=fac(n-1)*i;
end;
function power (a,b:integer):integer;
begin
if b=1 then power:=a
else power:=a*power(a,b-1);
end;
begin
readln(x);
sum:=1;
for j:=1 to 10 do
begin
sum:=sum+power (x,j)/ fac (j);
end;
writeln (sum);
end.

MATERI PASCAL

program laurin ;
uses wincrt;
var
x,y:array[1..1000] of real;
i,j,n:longint;
a,sum,p:real;
begin
readln(n);
readln(a);
sum:=0;
for i:=1 to n do
begin
x[i]:=-1/i;
p:=1;
for j:=1 to i do
p:=p*a;
y[i]:=p;
sum:=sum+x[i]*y[i];end;
writeln('hasil= ',sum:0:5);
writeln('asli= ',ln(1-a):0:5);
writeln('error= ',ln(1-a)-sum:0:5);
end.