Arsip Blog
Membuat program penjumlahan, pengurangan, perkalian, dan pembagian
Gambarnya blum di upload euy. sementara kodenya dulu :
#update 04des09# Mohon maaf sebelumnya buat yang protes, saya lupa upload gambarnya soalnya udah lama banget.
Buat form seperti di bawah
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; Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Editbilangan1: TEdit; Editbilangan2: TEdit; Edithasil: TEdit; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; x,y,z : real; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin x:= strtofloat (Editbilangan1.Text); y:= strtofloat (Editbilangan2.Text); z:= x + y; Edithasil.Text := floattostr (z); end; procedure TForm1.Button2Click(Sender: TObject); begin x:= strtofloat (Editbilangan1.Text); y:= strtofloat (Editbilangan2.Text); z:= x - y; Edithasil.Text := floattostr (z); end; procedure TForm1.Button3Click(Sender: TObject); begin x:= strtofloat (Editbilangan1.Text); y:= strtofloat (Editbilangan2.Text); z:= x * y; Edithasil.Text := floattostr (z); end; procedure TForm1.Button4Click(Sender: TObject); begin x:= strtofloat (Editbilangan1.Text); y:= strtofloat (Editbilangan2.Text); z:= x / y; Edithasil.Text := floattostr (z); end; end.
Fungsi
Contoh mencari bilangan terbesar dari dua bilangan :
#include<iostream.h> #include<conio.h> int mak(int x,int y); //prototype fungsi void main() { int n1,n2; cout<<"Masukkan Bilangan pertama : "; cin>>n1;endl; cout<<"Masukkan Bilangan kedua : "; cin>>n2;endl; cout<<"Nilai yg lebih besar adalah : "<<mak(n1,n2)<<endl; getch(); } int mak(int x,int y) { if(x>y) return x; else return y; }
Hasilnya :
Perulangan
Contoh bikin KRS pake perulangan :
#include<conio.h>
#include<iomanip.h>
#include<iostream.h>
main()
If else bersarang
if else bersarang
Kode Program :
<pre>#include<iostream.h> #include<conio.h> main() { int kode_bulan; cout<<"Kode Bulan"<<endl; cout<<"****************************************"<<endl; cout<<" 1=Januari, 2=Ferbuari, 3=Maret"<<endl; cout<<" 4=April, 5=Mei, 6=Juni"<<endl; cout<<" 7=Juli, 8=Agustus, 9=Sepetember"<<endl; cout<<"10=Oktober 11=November 12=Desember"<<endl; cout<<"****************************************"<<endl; cout<<"Kode Bulan [1-12] : "; cin>>kode_bulan; cout<<"****************************************"<<endl; if (kode_bulan==1) cout<<"Bulan Januari"<<endl; else if (kode_bulan==2) cout<<"Bulan Februari"<<endl; else if (kode_bulan==3) cout<<"Bulan Maret"<<endl; else if (kode_bulan==4) cout<<"Bulan April"<<endl; else if (kode_bulan==5) cout<<"Bulan Mei"<<endl; else if (kode_bulan==6) cout<<"Bulan Juni"<<endl; else if (kode_bulan==7) cout<<"Bulan Juli"<<endl; else if (kode_bulan==8) cout<<"Bulan Agustus"<<endl; else if (kode_bulan==9) <!--more--> cout<<"Bulan Sepetmber"<<endl; else if (kode_bulan==10) cout<<"Bulan Oktober"<<endl; else if (kode_bulan==11) cout<<"Bulan November"<<endl; else if (kode_bulan==12) cout<<"Bulan Desember"<<endl; else cout<<”Kode bulan salah”<<endl; cout<<"****************************************"<<endl; getch(); }
Hasilnya :
Keterangan : Program diatas menggunakan perintah kendali if else bersarang untuk menentunakan nama bulan berdasarkan kode yang di inputkan. Kode bulan akan dicek pada kondisi yang sesuai kemudian menjalankan pernyataan di dalamnya. Jika tidak ada kondisi yang sesuai maka akan menjalankan pernyataan else yang terakhir.