TUGAS 4

Tugas 4
Function dan procedure

Tampilan listing progam ini

listing

Script lengkap progam tersebut ada di bawah ini.

unit Unit1;

interface

uses

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

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    txtB: TEdit;

    txtC: TEdit;

    txtD: TEdit;

    Button1: TButton;

    txtA: TEdit;

    Label5: TLabel;

    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.

nah diatas itu script nya ... silah kan ditulis dan di coba ^^

dan jangan lupa setelah mengetik  si simpan ..

cara savenya :

      *Save as               : untuk menyimpan editornya

      *Save Project As  : untuk menyimpan project nya

Hasil Running

Hasil Akhir