Psedo Code Aturan Pangkat dan Kombinasi

Psedo Code Aturan Pangkat dan Kombinasi

Oleh

Intan Cahyaningrum - 1102329

1.      Pangkat (X^n)

Var X,n,Y:real;

Begin

     X:=strtofloat(Edit1.Text);

     n:=strtofloat(Edit2.Text);

     Y:=exp(n*ln(X));

     Edit3.Text:=floattostr(Y);

End;

2.      Kombinasi

Var A,B,C,D,E,F,i:integer; G:real;

Begin

     A:=StrToInt(Edit4.Text);

     B:=StrToInt(Edit5.Text);

     C:=1;

     For i:=1 to A do C:=C*i;

     D:=1;

     For i:=1 to B do D:=D*i;

     E:=A-B;

     F:=1;

     For i:=1 to E do F:=F*i;

     G:=C/(D*E);

     Edit6.Text:=floattostr(G);

End;