- Beranda
- Komunitas
- Entertainment
- The Lounge
[HELP] bantuin ane masalah pseudocode dong gan
TS
Dhumbahabaa
[HELP] bantuin ane masalah pseudocode dong gan
Sebelumnya ma'af kalo
soalnya di forum computer stuff ga ada yang nanggepi sama sekali
ane bingung pseudocode yang bener dari script delphi ane ini gmana yah
mohon bantuan seikhlasnya dong gan
ane masih prencil di dunia IT
ini script nya gan
procedure TForm1.Button1Click(Sender: TObject);
var hrgbuku, hrgballpoin, jmlbuku, jmlballpoin, stbuku, stballpoin, grandtotal: real;
begin
hrgbuku :=StrToFloat(Label10.Caption);
hrgballpoin :=StrToFloat(Label11.Caption);
jmlbuku :=StrToFloat(Edit1.Text);
jmlballpoin :=StrToFloat(Edit2.Text);
stbuku :=hrgbuku * jmlbuku;
Edit3.Text :=FloatToStr(stbuku);
stballpoin :=hrgballpoin * jmlballpoin;
Edit4.Text :=FloatToStr(stballpoin);
grandtotal :=stbuku + stballpoin;
Edit5.Text :=FloatToStr(grandtotal);
end;
procedure TForm1.Button3Click(Sender: TObject);
var grandtotal, bayar, sisa: real;
begin
grandtotal :=StrToFloat(Edit5.Text);
bayar :=StrToFloat(Edit6.Text);
sisa :=bayar - grandtotal;
Edit7.Text :=FloatToStr(sisa);
end;
end.
trus gmana pseudocode nya yah gan..?
mohon bantuannya yah
soalnya di forum computer stuff ga ada yang nanggepi sama sekali
ane bingung pseudocode yang bener dari script delphi ane ini gmana yah
mohon bantuan seikhlasnya dong gan
ane masih prencil di dunia IT
ini script nya gan
procedure TForm1.Button1Click(Sender: TObject);
var hrgbuku, hrgballpoin, jmlbuku, jmlballpoin, stbuku, stballpoin, grandtotal: real;
begin
hrgbuku :=StrToFloat(Label10.Caption);
hrgballpoin :=StrToFloat(Label11.Caption);
jmlbuku :=StrToFloat(Edit1.Text);
jmlballpoin :=StrToFloat(Edit2.Text);
stbuku :=hrgbuku * jmlbuku;
Edit3.Text :=FloatToStr(stbuku);
stballpoin :=hrgballpoin * jmlballpoin;
Edit4.Text :=FloatToStr(stballpoin);
grandtotal :=stbuku + stballpoin;
Edit5.Text :=FloatToStr(grandtotal);
end;
procedure TForm1.Button3Click(Sender: TObject);
var grandtotal, bayar, sisa: real;
begin
grandtotal :=StrToFloat(Edit5.Text);
bayar :=StrToFloat(Edit6.Text);
sisa :=bayar - grandtotal;
Edit7.Text :=FloatToStr(sisa);
end;
end.
trus gmana pseudocode nya yah gan..?
mohon bantuannya yah
0
783
9
Komentar yang asik ya
Urutan
Terbaru
Terlama
Komentar yang asik ya
Komunitas Pilihan