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

Sourcecodenya sbb:


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.

Hasilnya sebagai berikut :

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 :

fungsi.jpg

Perulangan

Contoh bikin KRS pake perulangan :

#include<conio.h>

#include<iomanip.h>

#include<iostream.h>

main()

Read the rest of this entry

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 :

if-else-bersarang.jpg

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.

%d blogger menyukai ini: