Senin, 05 Januari 2015
1.Membuat program luas PERSEGI
- Pertama saya akan mencoba membuat program untuk menghitung luas persegi yah langsung saja saya tunjukkan gambar dari skrip nya.
-Kalau sudah selesai langsung saja tekan tombol f9 / play dan jadilah seperti ini.
-Kalau tidak sama seperti ini berarti anda harus lebih teliti lagi dan lagi.
2.Membuat program luas SEGITIGA
- Cara nya sama seperti di atas hanya saja menambahkan l:real di bawahnya var dan ganti dari panjang lebar menjadi alas tinggi :integer.
-Jangan lupa rumusnya dirubah rumus segitiga 0,5*alas*tinggi,nah langsung saja melihat skrip seperti dibawah ini.
-Bagaimana
sudahkah sama dengan di gambar atas ini skrip nya,nah kalau sudah sama
dengan yang di atas maka tekan play dan hasilnya seperti gambar di bawah
ini.
Nah seperti itulah hasil skrip tersebut lalu masukkan angka yang anda mau tekan enter dan muncullah hasilnya.
3.Membuat program volume tabung dan kerucut
-Seperti yang sebelumnya saya akan langsung menampilkan gambar dari skrip nya dan skripnya juga sama hanya saja di ganti rumusnya.
TABUNG : phi*r*r*t
KERUCUT : 1/3*phi*r*r*t
phi = 3,14
r = radius / jari-jari
t = tinggi
-Skrip volume TABUNG
-Tekan play / f9
dan yang selanjutnya.
-Skrip volume KERUCUT
4.Menggunakan if
Sekarang saya akan menunjukkan skrip dengan menggunakan if
sebagai
contoh nya saya menggunakan if untuk memasukkan tinggi badan jika
tinggi badannya < 170 maka tidak akan diterima dan jika tinggi
badannya > 170 maka diterima tentunya nilai untuk tinggi badannya
terserah ini hanya contoh saja langsung saja.
Nah bagaimana sudah samakah skripnya kalau sudah maka tekan play.
dan
ini juga skrip menggunakan skrip if yang ini saya gunakan untuk
memasukkan nilai misalnya jika nilai nya >90 = a, jika nilai >80
dan <89 =b, jika nilai >70 dan <79 = c dan jika nilainya <70
= d.
tekan play
Bagaimana nilai yang anda masukkan tadi terbaca kan.
5.Program menggunakan repeat until
-Repeat until disini akan menunjukkan hasil dengan tak hingga jadi hasilnya nanti tidak akan berhenti meski anda tunggu sampai setahun pasti tidak akan berhenti beda lagi kalau di close jelas langsung berhenti,langsung saja berikut skrip dan hasil nya.
Bagaimana sudah lihat hasilnya tidak bisa berhenti kan.
6.Membuat program MATRIKS
1.Matriks penjumlahan
Tekan play
dan inilah hasil dari matriks penjumlahan tersebut
berikut skripnya :
Tekan play
3.Masih
di program untuk matriks dan yang ini dengan rumus yang beda rumusnya
bisa di lihat skrip di atas bila skripnya di rubah menjadi if x+y<7
then mat [x,y]:=2*y-1 kalau di play maka hasilnya adalah
Dan bila menggunakan rumus if x>=y then mat [x,y]:=x
Dan bila menggunakan rumus if x+y=6then mat [x,y]:=1
Dan bila menggunakan rumus if x=3 then mat [x,y]:1
if y=3 then mat [x,y]:1
7.Program Konversi Detik MenjadiHari, Jam, Menit dan Detik.
Tuliskan Program untuk menampilkan Jumlah Hari, Jam, Menit, Detik dari lamanya waktu dalam detik :
tanpa basa-basi langsung praktek saja buka delphi > new project
dan tulis sama persis scrip yang di bawah ini.
sesudah sama dengan scrip di atas langsung saja tekan play / F9.
saya coba masukkan 30.000.000 dan hasilnya muncul 347 hari,15 jam,20menit dan 0 detik.
supaya lebih jelas lihat di gambar dibawah ini
jika sesudah memasukkan jumlah detik dan tekan enter maka tampilan akan berubah contahnya seperti gambar berikut
dan langkah yang terahir untuk menampilkan hasil tinggal enter dan hasil akan keluar
seperti itulah cara untuk memprogram Detik menjadi Hari,Jam,Menit,Detik Menggunakan DELPHI.
Langganan:
Postingan (Atom)