tugas4 procedure-function

procedur and function ini memang agak rumit dan butuh konsentrasi dan juga skrip yang panjang .

listing 1

untuk skripnya:

• unit tugas4;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    txtA: TEdit;

    txtB: TEdit;

    txtC: TEdit;

    txtD: TEdit;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

    function pangkat(x,y:integer):integer;

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

function TForm1.pangkat(x,y:integer):integer;

var

  i,c:integer;

begin

  i:=1;

  c:=1;

  while i<=y do

  begin

    c:=c*x;

    i:=i+1;

  end;

  pangkat:=c;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

  A2,B3,C3,A,B,C:integer;

  D:real;

begin

  A:=strtoint(txtA.Text);

  B:=strtoint(txtB.Text);

  C:=strtoint(txtC.Text);

  A2:=pangkat(A,2);

  B3:=pangkat(B,3);

  C3:=pangkat(C,3);

  D:=(A2+B3)/C3;

  txtD.Text:=floattostr(D);

end;

end.

-setelah itu kita simpan dengan cara File > Save/Save As atau tekan tombol Ctrl+S.

 - kemudian kita Running dengan cara tekan F9

running 1

running 2

semoga materi ini bisa bermanfaat bagi kita semua 

>>>>SELAMAT MENCOBA<<<