program eksponensial;
uses wincrt;
var x:real;
function Exp(x:real):real;
const n=10;
var s:real;
k:integer;
function
Fak(n:integer):integer;
var i,f:integer;
begin
f:=1;
for i:=1 to n
do
begin
f:=f*i;
end;
Fak:=f;
end;
function
Pangkat(x:real;k:integer):real;
var p:real;
i:integer;
begin
p:=1;
for i:=1 to k
do
begin
p:=p*x;
end;
Pangkat:=p;
end;
begin
s:=0;
for k:=0 to n do
begin
s:=s+Pangkat(x,k)/Fak(k);
end;
Exp:=s;
end;
BEGIN
writeln(' masukkan
pangkat exp yang anda inginkan(ketik ''999'' untuk stop) ');
writeln;
x:=-99999;
repeat
write(' exp^
');read(x);
write(' maka hasil
eksponensialnya adalah: ',Exp(x):0:2);
writeln;
x:=x+1;
until
x>998;
writeln;
writeln(' **thank you :)');
END.
program LogaritmaSinus;
uses wincrt;
var n:real;
function
hitsin(n:real):real;
const phi=3.14;
var r,p:real;
begin
r:=(n/180)*phi;
p:=sin(r);
hitsin:=p;
end;
BEGIN
writeln(' isikan
nilai sinus yang anda inginkan(isi dengan ''999'' untuk stop) ');
writeln;
n:=-999999;
repeat
write(' sinus
');read(n);
write(' =
',hitsin(n):0:2);
writeln;
n:=n+1;
until n>998;
writeln(' **thank you :)');
writeln;
END.
0 komentar:
Posting Komentar