Menghitung nilai Sin dengan sudut radian

Langsung aja praktekin y...

program sin(x);
uses crt;
const pi = 3.14;
var
x,rad,p1,tot : real;
n,i,faktor,p2,j : integer;
tanda : byte;

begin

clrscr;
writeln(' Menentukan nilai sin(x)');
write('Nilai x = '); readln(x);
write('Masukkan pangkat = '); readln(n);
rad := pi*x/180;
i := 1;
tanda := 1;
while i <= n do
begin
p1 := exp(i*ln(rad));
faktor := 1;
for j := 1 to i do
faktor := faktor *j;
p2 := faktor;
tot := tot + (tanda*p1/p2);
tanda := (-1)*tanda;
i := i+2;
end;
writeln('Sin(',x:5:2,') = ',tot:5:2);
readln;
end.


Klo ada pertanyaan langsung di komen...
:)

Baca selengkapnya...

Menghitung Luas dan keliling lingkaran

Waktu ini ada seorang teman yang katanya dia lagi belajar turbo pascal..
Program ini penulis buat pada waktu lagi belajar pascal..Semoga yang lagi belajar Pascal bisa cpet ngerti he2...

Program Luas_dan_Keliling_Lingkaran;
uses crt;
const pi = 3.14;
var
r,K,L : real;
begin

clrscr;
writeln('=============================');
writeln('Menghitung Luas dan Keliling');
writeln('----------------------------');
write('Jari - jari = '); readln(r);
K := pi*2*r;
L := pi*r*r;
writeln('Keliling Lingkaran = ',K:5:2);
writeln('Luas Lingkaran = ',L:5:2);
writeln('=============================');
readln;
end.

Klo ada yg belum dimengerti langsung j kasi komen...
:)

Baca selengkapnya...

Simulasi Antrian Pembuatan SIM - VB 6

Program Simulasi Antrian ini penulis buat dengan VB 6. Pada program ini, tmn2 bisa lihat bagaimana proses antrian yang terjadi. Kita bisa menginput, banyak pelanggan, waktu rata - rata kedatangan, waktu rata - rata lama pelayanan, dan banyak pegawai yg mlayani..


Kalau gambarnya terlalu kecil, klik aja gmbrnya, untuk memperbesar..

Setelah semua diinput, tmn2 bisa proses, dan melihat simulasi yang terjadi. Agar lebih terlihat bagus, penulis menambahkan animasi, dengan menekan tombol 'Animate Simulation'.



Pada form ini tmn2 terlebih dahulu menginputkan no pelanggan, lalu tmn2 bisa lhat bagaimana pelanggan tersebut dilayani. Dari mulai sampai selesai.


Mohon maap sebelumnya, trus terang saat membuat program ini saya masih belajar, dalam pemrograman simulasi dan kemampuan programming penulis masih kurahttp://www.blogger.com/img/blank.gifng. Pada program ini memiliki kekurangan yaitu jika tmn2 mau menginput banyak petugas lebih dari satu maka program ini akan mengalami masalah. Semoga tmn2 bisa melengkapi kekurangan tersebut.

Untuk mendownload program nya bisa klik di sini

Tetep jangan lupa komen...
:)

Update :
Ini saya kasih source nya :
Download

Baca selengkapnya...

Windows Audio Changer

Ingin rasanya kita merubah suara - suara pada pc kita. Seperti pada saat Windows Startup agar suara nya menjadi suara lolongan serigala atau semacamnya..

berdasarkan pengalaman tersebut penulis berinisiatif membuat sebuah program yang bisa merubah suara - suara tersebut (Default Windows) dengan sound yang kita punya.

Namanya Windows Audio Changer..dalam menggunakan program ini cukup mudah, kita hanya tinggal memilih suara yang akan diganti, misalnya windows startup, lalu kita bisa mem-browse suara (sound) yang kita punya, tentu saja sound nya harus berformat *.wav.



untuk mendownload lengkap dengan source code nya bisa klik disini

software ini gratis, penulis membuatnya sekalian juga belajar. Jadi jika ada kekurangan mohon maap...Atau tmen2 bisa kasi komentar kalau ada saran...

Baca selengkapnya...

Colouring graph dengan C++

#include
#include
//library untuk file
#include


void main()

{

char pilih;

do

{

clrscr();

char filename[100];

cout<<"==================="< cout<<"| Program |"< cout<<"| Colouring Graph |"< cout<<"==================="< cout< ifstream infile;

//membuka file

do

{

cout<<"Masukkan nama file sebagai inputan program : ";
cin>>filename;

infile.open(filename);

//validasi file

if (!infile)

{

cout<<"File tidak ada coba perikasa kembali!"< }

}while (!infile);





typedef struct{

int stat,color;

int check;

char name[20];

}idver;

int l[20];

int temp2,n1[20];

int i,j,k,bar,kol,temp;

idver vertex[20][20],vert[20];

//membaca isi file (baris dan kolom

infile>>bar;

infile>>kol;

cout< cout<<"Silahkan beri nama masing - masing vertex"< for (i=0; i {

cout<<"Vertex ke-"<<(i+1)<<" : ";
cin>>vert[i].name;

}

//membaca isi file (status vertex, 0 atau 1)

for (i=0; i {

n1[i]=0;

for (j=0; j {

infile>>temp;

vertex[i][j].stat = temp;

//menghitung nilai satu

if (temp==1)

n1[i]++;





}



}

//mencari baris yang paling banyak memiliki satu

int max = -1;

for (i=0;i { if (n1[i] > max)

{

max=n1[i];

}

}



int res=max;

int incolor =1;



for (i=0; i {

for (j=i+1; j {

vertex[i][j].check =0;

}

vert[i].color=0;



}

max=-1;

for (i=0; i {

/*for (j=0; j {

for (k=j+1; k {

if (vertex[j][k].connect ==0)

if ((vertex[i][j].stat==1) && (vertex[i][k].stat==1))

vertex[i][j].connect =1;

}

}

*/

vert[i].color=0;



}

//pewarnaan

for (i=0; i {

for (j=0; j {

for (k=j+1; k {

if ((n1[i]>=max))

{

if (vertex[j][k].check == 0)

{

if((vertex[i][j].stat ==1) && (vertex[i][k].stat ==1))

{

vertex[j][k].check =1;

if (vert[j].color == 0)

{



vert[j].color = incolor;

vert[k].color = incolor + 1;

}

else

{



vert[k].color = vert[j].color + 1;



}



}

else

{



if ((vertex[i][j].stat==1) && (vertex[i][k].stat==0))

{

if (vert[j].color == 0)

{



vert[j].color = incolor;

vert[k].color = incolor;

}

else

{



vert[k].color = vert[j].color;



}

}

else

{

if (j==0)

vert[k].color = vert[j].color=incolor;

}









}



}

}

}

}

max=n1[i];

}





cout<<"---------------------------"< cout< cout<<"Lanjut untuk detail"< getch();

typedef struct {

char nama[10];

}warna;

//list warna

warna color[10];

strcpy(color[1].nama,"Merah");

strcpy(color[2].nama,"Jingga");

strcpy(color[3].nama,"Kuning");

strcpy(color[4].nama,"Hijau");

strcpy(color[5].nama,"Biru");

strcpy(color[6].nama,"Nila");

strcpy(color[7].nama,"Ungu");

cout< for (i=0; i {

if (res==kol)

cout< else

cout<

}

cout<<"------------------------------------"< cout<<"Keterangan"< for (i=0; i {

if ((vert[i].color == vert[i+1].color) && (kol!=res))

{

cout< }

else if (kol==res)

{

cout<<"Semua vertex harus memiliki warna berbeda"< i=kol;

}

}

infile.close();

cout<<"====================================================================="< cout<<"Ulang program ? (y/n) : ";
cin>>pilih;

}while ((pilih=='y') || (pilih=='Y'));

}





Untuk adk2 smster 3 maap karena program yg di atas gak jalan..Makanya jangan maen copy aj..

Karena ak baek hati ini klik aja di sini untuk donlod program nya, tp pake C++..



Jangan lupa komen yaw...

Baca selengkapnya...