Proram Faktorial dan Deret dengan IDE Delphi « Mari Terus Belajar Dan Berbagi

Proram Faktorial dan Deret dengan IDE Delphi

April 7, 2009 at 5:31 am | In Pemrograman dgn Delphi | 3 Comments

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

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.

& Komentar »

RSS umpan untuk komentar-komentar dalam tulisan ini. URI Lacak Balik

masih ada yan g eror dari persamaan
if trystrtoint(E_N.Text,n)=false then,, yg lebikh baik gmn????

Komentar oleh baser — April 23, 2009 #
hahahah !
iia beneer gga bsaa dI run !

Komentar oleh aIedaIL — April 24, 2009 #
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…

Komentar oleh Adiputra — April 27, 2009 #