Skip to main content

Posts

Showing posts from April, 2011

program perhitungan kuadrat

By
unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, ExtCtrls; type   TForm1 = class(TForm)     Edit1: TEdit;     Edit2: TEdit;     Edit3: TEdit;     Label1: TLabel;     Label2: TLabel;     Label3: TLabel;     Button1: TButton;     Button2: TButton;     Button3: TButton;     Panel1: TPanel;     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);     procedure Button3Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1;   x,y:Real; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin x:=...
Read more

Contoh Potongan Program perhitungan IPK (memakai case)

By
unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, ExtCtrls, StdCtrls; type   TForm1 = class(TForm)     Edit1: TEdit;     Edit2: TEdit;     Label1: TLabel;     Label2: TLabel;     Button1: TButton;     Button2: TButton;     Panel1: TPanel;     Button3: TButton;     procedure Button3Click(Sender: TObject);     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);     procedure Edit1Click(Sender: TObject);     procedure FormClick(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1;   IPK:integer; implementation {$R *.dfm} procedure...
Read more

program perhitungan IPK (memakai if...then)

By
unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, ExtCtrls, StdCtrls; type   TForm1 = class(TForm)     Edit1: TEdit;     Edit2: TEdit;     Label1: TLabel;     Label2: TLabel;     Button1: TButton;     Button2: TButton;     Panel1: TPanel;     Button3: TButton;     procedure Button3Click(Sender: TObject);     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);     procedure Edit1Click(Sender: TObject);     procedure FormClick(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1;   IPK:real; implementation {$R *.dfm} procedure TF...
Read more