Berikut tampilan nya :
Komponen :
7 label
2 Button
5 edit
Sesuaikan tampilan seperti diatas, berikut source code nya :
Komponen :
7 label
2 Button
5 edit
Sesuaikan tampilan seperti diatas, berikut source code nya :
procedure TForm1.Button1Click(Sender: TObject); var x, a, afaktorial, b, bfaktorial :integer; begin afaktorial :=1; a :=StrToInt(Edit1.Text); for x:=1 to a do begin afaktorial:= afaktorial * x; end; Edit3.Text:=IntToStr(afaktorial); bfaktorial := 1; b:=StrToInt(edit2.Text); for x:= 1 to b do begin bfaktorial:=bfaktorial * x ; end; Edit4.Text:=IntToStr(bfaktorial); Edit5.Text:=IntToStr(afaktorial + bfaktorial); end; |
Komentar
Posting Komentar