Senin, 07 Januari 2008

LISTING PROGRAM C++

Dibawah ini ada beberapa listing program dengan menggunakan bahasa pemrograman c++ dan Delphi. Semoga dapat menjadi refrensi bagi teman-teman yang membutuhkan untuk dipelajari atau untuk menyelesaikan tugas tertentu.

1. PROGRAM MENAMPILKAN DATA DALAM BENTUK MATRIK

//program menampilkan data dalam bentuk matrik
#include
#include
const long bar=3;
const long kol=3;
void main()
{
int i,j;
long matrik[bar][kol];
clrscr();
printf("Inputkan matrik A(3,3)\n");
for(i=0;ifor(j=0;j{
printf("A(%i,%)=",i+1,j+1);
scanf("%i",&matrik[i][j]);
}
printf("\nMatrik A(3,3) : ");
for (i=0;i{
printf("\n");
for(j=0;jprintf("%3i",matrik[i][j]);
}
getch();
}
2. MENCARI NILAI RATA-RATA

#include
#include
int main()
{
int nil[10];
double total,rata;
total=0;
printf("Inputkan data !\n");
for (int i=0;i<10;i++)
{
printf("data ke %i :",i+1);
scanf ("%d",&nil[i]);
total+=nil[i];
}
clrscr();
printf("Total dari : %i",nil[0]);
for(int n=0;n<9;n++)
printf("+%i",nil[n+1]);
rata=total/10;
printf("=%72f",total);
printf("\nNilai rata-ratanya : %72f,rata");
getch();
}
3. KONVERSI SUHU

//*========================*
//*===KONVERSI SUHU========*
//* *
//*contoh pemrosesan pada array,yaitu untuk penghitung nilai*
#include
#include
const int jum_data=5;
void main()
{
float suhu(jum_data);//aray suhu
float total; //untuk menampung total
clrscr(); //Hapus layar
cout <<"masukan data suhu "<for (int i=0; jum_data;i++)
{
cout<< i+1<< " : ";
cin>> suhu (i);
}
//menghitung nilai rata-rata
total=0;
for(i=0;icout <<"suhurata-rata ="<<
4. LISTING PROGRAM METODE “GAUSS-SEIDEL”:

#include
void main()
{
float x1,x2,x3,j1,j2,j3,a,b,c,d,e,f,g,h,l,y1,y2,y3,y4,y5,y6,z;
int i,j;
printf("\t***********************\n");
printf("\t* Metode Gauss-Seidel *\n");
printf("\t***********************\n");
printf("\n");
x1=0; x2=0; x3=0;
a=1; b=3; c=4; d=7;
e=8; f=9; g=12; h=-51; l=61;
y1 = b*x3;
y2 = d*x2;
y3 = f*x3;
y4 = c*x1;
y5 = a*x2;
for (i=0;i<10;i++){
printf(" \nIterasi %d",i+1);
printf(" \n---------");
printf("\n\n");
for (j=0;j<1;j++)
{
j1 = ((h + y1 - y2)/a);
printf("x%1.0d",j+1);
printf(" = %1.3f",h);
printf(" + (%1.3f)",y1);
printf(" - (%1.3f)",y2);
printf(" / %1.0f",a);
printf("\n");
printf(" = %1.3f",j1);
printf("\n\n");
x1=j1*c;
j2 = ((l + x1 + y3)/c);
printf("x%1.0d",j+2);
printf(" = %1.3f",l);
printf(" + (%1.3f)",x1);
printf(" + (%1.3f)",y3);
printf(" / %1.0f",c);
printf("\n");
printf(" = %1.3f",j2);
printf("\n\n");
x2=j2*a;
y6 = g*j1;
z=g*j1;
j3 = ((e + z - j2)/b);
printf("x%1.0d",j+3);
printf(" = %1.3f",e);
printf(" + (%1.3f)",z);
printf(" - (%1.3f)",j2);
printf(" / %1.0f",b);
printf("\n");
printf(" = %1.3f",j3);
printf("\n\n");
y1=d*j2;
y2=b*j3;
y3=f*j3;
}
}
}

OUTPUT PROGRAM “GAUSS-SEIDEL”:

5. LISTING PROGRAM METODE”NEWTON-RAPHSON”:

#include
void main()
{
float xn,x,j,k,l,m,i,j1,j2,j4,j5,j6,fx,dfx;
printf("\n");
printf("****************************\n");
printf("Dengan Metode Newton Raphson\n");
printf("****************************\n");
printf("\n");
printf("Soal : f(x)=x^3-6x^2+11x-6\n");
x = 3.6;
j = 3;
k = 12;
l = 11;
m = 6;
printf("\n");
printf("iterasi = 10");
printf("\n");
printf("Nilai Taksiran Awal : x =%4.1f\n",x);
printf("\n");
printf("Turunan : f'(x)=3x^2-12x+11\n");
printf("\n");
printf("--------------------\n");
printf("xi=x0-(f(x)/f'(x))\n");
printf("--------------------\n");
for (i=0;i<10;i++)
{
j1=(j*(x*x));
j2=k*x;
j4=(x*x)*x;
j5=m*(x*x);
j6=l*x;
fx = j4-j5+j6-m;
dfx = j1-j2+l;
xn = x-(fx/dfx);
printf("\n");
printf("x%1.0f ",i+1);
printf("=> x%1.0f",i);
printf(" = %f",x);
printf(" - (%1.3f",j4);
printf(" - %1.3f",j5);
printf(" + %1.3f",j6);
printf(" - %1.0f",m);
printf(" / %1.3f",j1);
printf(" - %1.3f",j2);
printf(" + %1.0f",l);
printf(")\n");
printf(" = %f",xn);
printf("\n\n");
x=xn;
}
}
OUTPUT PROGRAM METODE”NEWTON-RAPHSON”:

6.LISTING PROGRAM PERHITUNGAN NILAI MAHASISWA

#include
#include
#include
void main()
{
char nama[30];
int i,nim,n,total,rata;
float inggris,warga,panca,indo,web;
int nilai1,nilai2,nilai3,nilai4,nilai5;
int rata1,rata2,rata3,rata4,rata5;
cout<<" DAFTAR PERHITUNGAN NILAI MAHASISWA "<cout<<" ===================================="<cout<<" jumlah mahasisiwa:";
cin>>n;
cout<<""<for(i=1;i<=n;i++)
{
cout<<" Nim :";
cin>>nim;
cout<<" Nama :";
cin>>nama;
cout<<"---------------------------"<cout<<" Matakuliah: bhs inggris"<cout<<" Nilai :";
cin>>nilai1;
inggris=inggris+nilai1;
cout<<" Matakuliah: kewarganegaraan"<cout<<" Nilai :";
cin>>nilai2;
warga=warga+nilai2;
cout<<" Matakuliah: pancasila"<cout<<" Nilai :";
cin>>nilai3;
panca=panca+nilai3;
cout<<" Matakuliah: bhs indonesia"<cout<<" Nilai :";
cin>>nilai4;
indo=indo+nilai4;
cout<<" Matakuliah: pemragraman web"<cout<<" Nilai :";
cin>>nilai5;
cout<<" ---------------------------"<web=web+nilai5;
total=nilai1+nilai2+nilai3+nilai4+nilai5;
rata=total/5;
cout<<" Nilai total :"<cout<<" Nilai rata rata :"<cout<<" ---------------------------"<cout<<""<}
cout<<" ------------------------------------"<cout<<" Total nilai bhs inggris :"<rata1=inggris/n;
cout<<" Rata-rata nilai bhs inggris :"<cout<<" ------------------------------------"<cout<<" Total nilai kewarganegaraan :"<rata2=warga/n;
cout<<" Rata-rata nilai kewarganegaraan:"<cout<<" ------------------------------------"<cout<<" Total nilai pancasila :"<rata3=panca/n;
cout<<" Rata-rata nilai pancasila :"<cout<<" ------------------------------------"<cout<<" Total nilai bhs indonesia :"<rata4=indo/n;
cout<<" Rata-rata nilai bhs indonesia :"<cout<<" ------------------------------------"<cout<<" Total nilai pemragraman web :"<rata5=web/n;
cout<<" Rata-rata nilai pemragraman web:"<cout<<" ===================================="getch();
}

LISTING PROGRAM DELPHI

sebenarnya pemprograman itu tergantung dari user sendiri bagaimana ia bisa membuat suatu perintah untuk menjalankan komputer dalam mengerjakan sesuatu tugas sesuai dengan keinginanya. listing suatu program bisa sesuaikan dengan keinginan user, ada user yang menginkan listing program yang simlpe dan ada juga user yang menginginkan listing program yang agak panjang tetapi itu semua sama saja asalkan tujuan utama dari program itu tercapai.

1. PERUBAHAN CAPTION PADA FORM


Listing program :
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;
type
TForm1 = class(TForm)
Timer1: TTimer;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
if form1.Caption = 'perubahanpertama'
then
form1.Caption := 'perubahankedua'
else
if form1.Caption = 'perubahankedua'
then
form1.Caption := 'perubahanketiga'
else
if form1.Caption = 'perubahanketiga'
then
form1.Caption := 'perubahanpertama';
end;
end.


2. KOMPONEN TCheckBox.

unit Unit2;



interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm2 = class(TForm)
CheckBox1: TCheckBox;
Button1: TButton;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
CheckBox4: TCheckBox;
CheckBox5: TCheckBox;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
ygdisukai : STRING;
implementation
uses radio;
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
begin
if checkbox1.Checked = true then
ygdisukai := ygdisukai +'FERRARI'+',';
if checkbox1.Checked = true then
ygdisukai := ygdisukai +'MARCEDES-BENZ'+',';
if checkbox1.Checked = true then
ygdisukai := ygdisukai +'AUDI'+',';
if checkbox1.Checked = true then
ygdisukai := ygdisukai +'VOLVO'+',';
if checkbox1.Checked = true then
ygdisukai := ygdisukai +'VOLKSWAGON'+',';
form2.caption :='SAYA MENYUKAI :'+ygdisukai ;
ygdisukai :='';
end;
end.
Listing program :
Procedure Tform1.Biru1Click(sender : TObject);
Begin
Form1.color :=clblue;
Mainmenu1.Items[0].Items[0].Checked :=true;
Mainmenu1.Items[0].Items[1].Checked :=false;
end;
Procedure Tform1.Merah1Click(sender : TObject);
Begin
Form1.color :=clblue;
Mainmenu1.Items[0].Items[0].Checked :=false;
Mainmenu1.Items[0].Items[1].Checked :=true;
end;
Jika items [0] “biru” pada mainmenu1 di klik maka warna pada form1 akan berubah biru dan items[0] pada main menu diberi tanda true artinya aktif dan items [1] diberi tanda false yang artinya tidak aktif.
Jika items [1] “merah” pada mainmenu1 di klik maka warna pada form1 akan berubah merah dan items[1] pada main menu diberi tanda true artinya aktif dan items [0] diberi tanda false yang artinya tidak aktif.

3. MENGHITUNG LUAS DAN VOLUME BOLA :
listing program :

unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm2 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Edit2: TEdit;
Label4: TLabel;
Edit1: TEdit;
Edit3: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
jari,luas,volume : real;
implementation
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
begin
jari := StrToFloat (edit1.Text);
luas := 4*3.14*jari;
edit2.Text := FloatToStr(luas);
volume := (3/4)*3.14*jari*jari;
edit3.Text := FloatToStr (volume);
end;
end.