Scribd Logo
Upload

Welcome to Scribd!

  • 28 views

    Heru Prambadi VI C Malam 1. Latihan Operator

    Uploaded by

    Heru Prambadi
    The document contains code for 6 different Delphi programs that perform calculations. The programs include: 1) basic math operations, 2) calculating ideal body weight, 3) calculating energy, temperature conversion and distance, 4) calculating volume of a cylinder, 5) calculating area and circumference of a circle, 6) calculating sales totals for items. Each program section contains code to perform the relevant calculations when buttons are clicked and display results in text boxes.

    Copyright:

    Attribution Non-Commercial (BY-NC)
    Download as DOCX, PDF, TXT or read online from Scribd

    Heru Prambadi VI C Malam 1. Latihan Operator

    Uploaded by

    Heru Prambadi
    28 views8 pages
    The document contains code for 6 different Delphi programs that perform calculations. The programs include: 1) basic math operations, 2) calculating ideal body weight, 3) calculating energy, temperature conversion and distance, 4) calculating volume of a cylinder, 5) calculating area and circumference of a circle, 6) calculating sales totals for items. Each program section contains code to perform the relevant calculations when buttons are clicked and display results in text boxes.

    Original Title

    tugas 1

    Copyright

    © Attribution Non-Commercial (BY-NC)

    Available Formats

    DOCX, PDF, TXT or read online from Scribd

    Did you find this document useful?

    Is this content inappropriate?

    The document contains code for 6 different Delphi programs that perform calculations. The programs include: 1) basic math operations, 2) calculating ideal body weight, 3) calculating energy, temperature conversion and distance, 4) calculating volume of a cylinder, 5) calculating area and circumference of a circle, 6) calculating sales totals for items. Each program section contains code to perform the relevant calculations when buttons are clicked and display results in text boxes.

    Copyright:

    Attribution Non-Commercial (BY-NC)
    Download as DOCX, PDF, TXT or read online from Scribd
    Download as docx, pdf, or txt
    28 views8 pages

    Heru Prambadi VI C Malam 1. Latihan Operator

    Uploaded by

    Heru Prambadi
    The document contains code for 6 different Delphi programs that perform calculations. The programs include: 1) basic math operations, 2) calculating ideal body weight, 3) calculating energy, temperature conversion and distance, 4) calculating volume of a cylinder, 5) calculating area and circumference of a circle, 6) calculating sales totals for items. Each program section contains code to perform the relevant calculations when buttons are clicked and display results in text boxes.

    Copyright:

    Attribution Non-Commercial (BY-NC)
    Download as DOCX, PDF, TXT or read online from Scribd
    Download as docx, pdf, or txt
    You are on page 1of 8

    Heru Prambadi VI C Malam 1.

    Latihan Operator
    procedure TForm2.Button1Click(Sender: TObject); var a,b,c : integer; begin a:=strtoint(Edit1.Text ); b:=strtoint(Edit2.Text ); c:=a+b; // memasukan variabel c ke objek edit3 Edit3.Text :=inttostr(c); end; procedure TForm2.Button2Click(Sender: TObject); var x,y,z : real; begin x:=strtofloat(Edit1.Text ); y:=strtofloat(Edit2.Text ); z:=x*y; Edit3.Text :=floattostr(z); end; procedure TForm2.Button3Click(Sender: TObject); var a,g,i : real; begin a := StrToFloat (Edit1.Text); g := StrToFloat (Edit2.Text) ; i := a / g ; Edit3.Text := FloatToStr (i); end; procedure TForm2.Button4Click(Sender: TObject); var a,g,i : real; begin a := StrToFloat (Edit1.Text); g := StrToFloat (Edit2.Text) ; i := a-g ; Edit3.Text := FloatToStr (i); end; procedure TForm2.Button5Click(Sender: TObject); var a,g,i : integer ; begin a := StrToInt (Edit1.Text); g := StrToInt (Edit2.Text); i := a div g ; Edit3.Text := IntToStr (i); end; procedure TForm2.Button6Click(Sender: TObject); var a,g,i : integer ; begin

    a := StrToInt (Edit1.Text); g := StrToInt (Edit2.Text); i := a mod g ; Edit3.Text := IntToStr (i); end; procedure TForm2.Button7Click(Sender: TObject); begin Edit1.text:=''; Edit2.text:=''; Edit3.text:=''; end; procedure TForm2.Button8Click(Sender: TObject); begin close; end; end.

    2. Membuat perhitungan Berat badan ideal

    procedure TForm3.btnBersihClick(Sender: TObject); begin edit1.text:=''; edit2.text:=''; memo1.text:=''; end; procedure TForm3.btnProsesClick(Sender: TObject); var a,b,c,d : real; begin a:=strtoint(Edit2.Text ); b:=90; c:=0.9; d:=c*a-b; Memo1.Text := 'Hai ' + Edit1.Text + ', Berat Badan Idealmu Adalah ' + floattostr(d); end; procedure TForm3.btnSelesaiClick(Sender: TObject); begin close; end; end.

    3. Membuat perhitungan Energi , Konversi Temperatur dan jarak Tempuh dalam 1 Program
    procedure TForm4.Button1Click(Sender: TObject); var m,c,e : real; begin m:=strtofloat(txtMasa.Text ); c:=strtofloat(txtKec.Text ); e:=m*(c*c); txtEnergi.Text :=floattostr(e); end; procedure TForm4.Button2Click(Sender: TObject); var t,f : real; begin t:=strtofloat(txtTemp.Text ); f:=(9/5)*t+32; txtFah.Text :=floattostr(f); end; procedure TForm4.Button3Click(Sender: TObject); var v,t,a,s : real; begin v:=strtofloat(txtKec2.Text); t:=strtofloat(txtWaktu.Text ); a:=strtofloat(txtPerc.Text ); s:=(v * t)+( 0.5 * a * t * t ); txtJarak.Text :=floattostr(s); end; end.

    4. Buat aplikasi menghitung volume tabung


    procedure TForm5.Button1Click(Sender: TObject); var v,r,t : real; begin r:=strtofloat(txtJari.Text); t:=strtofloat(txtTinggi.Text); v:=3.14*(r*r)*t; txtVol.Text:=floattostr(v); end; end.

    5. Buat Aplikasi Menghitung luas dan jari2 lingkaran


    procedure TForm6.Button1Click(Sender: TObject); var d,r : real; begin d:=strtofloat(txtDia.Text); r:=d/2; txtJari.Text:=floattostr(r); end; procedure TForm6.Button2Click(Sender: TObject); var r,l,k : real; begin r:=strtofloat(txtJari.Text); l:=3.14*(r*r); k:=2*3.14*r; txtLuas.Text:=floattostr(l); txtKll.Text:=floattostr(k); end; end.

    6. Program Penjualan Barang


    procedure TForm7.Button1Click(Sender: TObject); var jlh,hrg,jb,disc,pjk,tb : real; begin jlh:=strtofloat(txtJlh.Text ); hrg:=strtofloat(txtHarga.Text ); jb:=jlh*hrg; disc:=0.30*jb; pjk:=0.1*(jb-disc); tb:=jb-disc+pjk; txtJB.Text :=floattostr(jb); txtDisc.Text :=floattostr(disc); txtPajak.Text :=floattostr(pjk); txtTB.Text :=floattostr(tb); end; end.

    You might also like

    pFad - Phonifier reborn

    Pfad - The Proxy pFad of © 2024 Garber Painting. All rights reserved.

    Note: This service is not intended for secure transactions such as banking, social media, email, or purchasing. Use at your own risk. We assume no liability whatsoever for broken pages.


    Alternative Proxies:

    Alternative Proxy

    pFad Proxy

    pFad v3 Proxy

    pFad v4 Proxy