Program Faktorial dan Deret dengan IDE Delphi

Berikut ini adalah program sederhana pertama saya. Contoh gambarnya dapat dilihat di bawah ini.

1

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
GroupBox1: TGroupBox;
Label2: TLabel;
Label3: TLabel;
E_faktorial: TEdit;
E_jumlah: TEdit;
Button1: TButton;
E_n: TEdit;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
n : integer;
i : integer;
jumlah : integer;
fak : integer;

begin
if trystrtoint(E_n.Text,n)=false then
begin
showmessage('salah memasukan jumlah n, ulangi!!!');
E_n.SetFocus;
E_n.Clear;
exit;
end;

jumlah := 0;
for i:=1 to n do
jumlah := jumlah + i;

fak := 1;
for i:=1 to n do
fak := fak * i;

E_jumlah.text := inttostr(jumlah);
E_faktorial.Text := inttostr(fak);

end;

end.

sesuaikan objek yg saya pakai bila ingin mencoba menjalankannya. kalau ada yg masih error silakan komen ato kirim via email.

Program dan listing kodenya bisa dilihat di alamat [ INI ]

9 thoughts on “Program Faktorial dan Deret dengan IDE Delphi

  1. aIedaIL & baser : maaf kawan, kalo boleh tau warningnya apa?? tulis sekalian biar bisa diketahui, saya coba di laptop saya bisa dirun…
    mungkin ada kesalahan nama komponen, nie saya lihatin komponen apa aja yang dipake dan diganti namanya…

    maaf, maklum kwan masih belajar…

  2. rizqi :

    if trystrtoint(E_n.Text,n)=false then

    yang itu kawan ga bisa

    sudah di sesuaikan blum E_n.text nya ???
    disesuaikan terlebih dahulu antara komponen dan nama komponen…
    atau langsung download aje deh programnya ya kawan…

  3. goodd..
    program nya run..
    🙂

    kalau ada yang error
    perhatikan nama properti komponennya lalu cocokan dengan koding.
    terima kasih.
    😀

  4. kenapa untuk faktorial 16 nilai yang keluarnya negatif ya? dan untuk bilangan selanjutnya setelah 16 juga banyak yang negatif, terus kalo dimasukkan nilai 100 yang keluar justru 0, itu kenapa ya? salah coding kah? atau emang kemampuan akurasi komputernya terbatas sampai 15 sj?

Silahkan Komentar...

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s