Listing program Laporan Akhir Percabangan dan Perulangan pada Delphi

Berikut adalah listing program dari laporan akhir percabangan dan perulangan pada delphi :

 

Procedure Tform1.FormCreate(Sender: Tobject);

Begin

  Label1.caption :=’Nama’;

  Label2.caption :=’NPM’;

  Label3.caption :=’UTS’;

  Label4.caption :=’UAS’;

  Label5.caption :=’IPK’;

  Label6.caption :=’’;

  Edit1.Text :=’’;

  Edit2.Text :=’’;

  Edit3.Text :=’’;

  Edit4.Text :=’’;

  Edit5.Text :=’’;

  Edit6.Text :=’’;

  Button1.caption :=’Hasil’;

End;

 

procedure TForm1.Button1Click(Sender: TObject);

var

uts,uas,hasil:real;

ipk:char;

begin

uts:=strtofloat(edit3.Text);

uas:=strtofloat(edit4.Text);

hasil:=(uts+uas)/2;

edit5.Text:=floattostr(hasil);

if hasil>85 then ipk:='A'

else if hasil>75 then ipk:='B'

else if hasil>60 then ipk:='C'

else if hasil>55 then ipk:='D'

else ipk:='E';

label6.caption:='Hallo '+edit1.Text+' dengan NPM '+edit2.text+' hasil nilai anda ialah '+floattostr(hasil)+' dengan IPK '+ipk;

edit6.Text:=ipk;

end;

end.