Program Exponen;
uses crt;
var
x,n : byte;
Function Expo(a,b : byte):real;
var Suku,E : real;
k : byte;
begin
E := 0;
k := 0;
Suku :=1;
while k<= b do
begin
E := E + Suku;
K := k+1;
Suku := Suku * a/k;
end;
120
Expo := E;
end;
Begin
write('Input X = ');readln(x);
write('Input N = ');readln(n);
clrscr;
Writeln('e ^ n = 1 + x + (x^2)/2! + (x^3)/3!...');
Writeln('Dimana x = ',x,' dan n = ',n);
Writeln('Maka e = ',Expo(x,n):2:2);
readln;
end.
Hasilnya adalah:
0 comments:
Posting Komentar