--

Program C++ Menentukan Irisan

Wednesday, January 20, 2010 mencoba sebuah karya dunia maya 0 komentar
Program ini adalah Program untuk Menentukan irisan pada sebuah himpunan.
untuk Input himpunan hanya boleh dengan angka saja!
berikut Source codenya:

#include
#include
#include
#include
int him1[100];
int him2[100];
int i,j,jum1,jum2,l;
int irisan[100];
bool sama;
void main(){
cout<<"masukkan data himpunan pertama!"< cout<<"masukkan jumlah data:";
cin>>jum1;
for (i=1;i<=jum1;i++){
cout<<"data "< cin>>him1[i];
}
cout<<"himpunan pertama:";
for (i=1;i<=jum1;i++){
cout< }
cout< cout<<"masukkan data himpunan kedua!"< cout<<"masukkan jumlah data:";
cin>>jum2;
for (j=1;j<=jum2;j++){
cout<<"data "< cin>>him2[j];
}
cout<<"himpunan kedua:";
for (j=1;j<=jum2;j++){
cout< }
cout< //perintah irisan
cout<<"Irisan dari kedua himpunan tersebut adalah:";
l=0;
for (i=1;i<=jum1;i++)
{
for (j=1;j<=jum2;j++)
{
if (him1[i]==him2[j])
{
l=l+1;
irisan[l]=him1[i];
cout< }
}
}
getch();
}

Program C++ Graph Rekursif

mencoba sebuah karya dunia maya 0 komentar
Program ini merupakan program Mengecek sebuah graph yang terhubung atau tidak dengan metode Rekursif.
Berikut Source Codenya:
#include
#include

int jumsimpul, jumsisi, asal, n,tujuan;
int met[11][11];
bool dikunjungi [11];



void DFS_rekursif (int v){
int w;
cout<<<" "; dikunjungi[v]=true; for (w=1;w<=n; w++){ if (met[v][w]==1) if (!dikunjungi[w]) DFS_rekursif (w); } } void main(){ for (int i=1; i<=10; i++) for (int j=1; j<=10; j++) met [i][j]=0; cout<<"jumlah simpul="; cin>>jumsimpul;
cout<<"jumlah sisi="; cin>>jumsisi;
for (int i=1; i<=jumsisi; i++){ cout<<"simpul asal="; cin>>asal;
cout<<"simpul tujuan="; cin>>tujuan;
met[asal][tujuan]=1;
met[tujuan][asal]=1;
}
n=jumsimpul;

for (int i=1; i<=n; i++) dikunjungi[i]= false; DFS_rekursif(1); getch(); }

Program C++ Hitung Vocal Pada Sebuah String

mencoba sebuah karya dunia maya 0 komentar
Ini Program C++ Saya Ketika Baru pertama Belajar C++
Untuk Validasi Input Blom Ada, cm proses hasil saja!
Berikut Source codenya:

#include
#include
#include
#include
void main(){
int jum,jum_kata;
char temp_kata[10];
char kata;
int jum_vocal=0;
cout<<"masukkan kata atau kalimat:";
cin>>temp_kata;
jum_kata = strlen(temp_kata);
for (int i=1;i<=jum_kata;i++){
if ((temp_kata[i]=='a')||(temp_kata[i]=='i')||(temp_kata[i]=='u')||
(temp_kata[i]=='e')||(temp_kata[i]=='o')){
jum_vocal=jum_vocal+1;
}
}

cout<<"jumlah vocal =";
cout< getch();
}

Kumpulan Judul TA Informatika

mencoba sebuah karya dunia maya 0 komentar
  1. Judul/topik TA: Pembangunan Prototipe Compiler Bahasa Groovy untuk Platform .NET dengan Memanfaatkan Library Microsoft DLR
  2. Judul/topik TA: Studi dan Implementasi Linear Cryptonalysis pada Algoritma FEAL
  3. Judul/topik TA: Studi Perbandingan dan Implementasi Algoritma BFS dan DFS pada Mesin Penjelajah Dokumen di Direktori Microsoft Windows
  4. Judul/topik TA: Studi dan Implementasi Kompresi Berkas Audio Memanfaatkan Metode Linear prediction
  5. Judul/topik TA: Studi dan Implementasi Metode Otentikasi Berbasis Relasi Pada Citra JPEG Lossy Compression
  6. Judul/topik TA: Studi dan Implementasi Pengenalan Sidik Jari dengan Menggunakan Algoritma Pencocokan String Boyer-Moore
  7. Judul/topik TA: Pembangkit Teka-Teki Silang dengan Algoritma Backtracking
  8. Judul/topik TA: Studi dan Implementasi Algoritam Steganografi F5 untuk Penyembunyian Pesan di dalam File Citra JPEG
  9. Judul TA: Perlindungan Hak Cipta pada Data Audio Menggunakan Teknik Watermarking Phase Coding
  10. Judul TA: Pembangunan Perangkat Lunak Peramalan Penjualan dan Perencanaan Pemesanan untuk Membantu Manajemen Persediaan pada Perusahaan Dagang

FPB

Wednesday, December 16, 2009 mencoba sebuah karya dunia maya 0 komentar
uses crt;
var
bil1,bil2,r,m,n,hasil_kali,fpb:integer;
kpk:real;

begin
clrscr;
write('masukkan bilangan pertama:');
readln(bil1);
write('masukkan bilangan kedua:');
readln(bil2);
writeln;
hasil_kali:=bil1*bil2;
if (bil1>bil2) then
begin
m:=bil1;
n:=bil2;
end
else
begin
m:=bil2;
n:=bil1;
end;
repeat
r:=m mod n;
if (r=0) then
begin
fpb:=n;
writeln('FPB dari ',bil1,' dan ',bil2,' adalah ',fpb);
end
else
begin
m:=n;
n:=r;
end;
until (r=0);
writeln;
writeln('KPK dari ',bil1,' dan ',bil2,' adalah ',hasil_kali/fpb:5:0);
readln;
end.