Archive for June, 2011

Dian Pelangi

Han Hyo Joo

menghitung nilai faktorial dengan c++

#include
#include
void main()
{
int bil, n;
long int hasil;
cout<> n;

hasil=1;
for(bil=n; bil>=1;bil–)
{
hasil=hasil*bil;
}
cout<<"n!= "<<hasil<<"\n";
getch();
}

Array bertipe record dalam pascal menghitung data buku

program DataBuku;
const Nmaks = 30;
type
Buku = record
KodeBuku : string[5];
Judul : string[27];
pengarang : string[27];
jumlah : integer;
end;
var
TabBuku : array[1..Nmaks] of buku;
i, jumlah : integer;
input : integer;
lagi : char;
begin
i := 0;
repeat
i := i + 1;
writeln(‘Pilihan Kode Buku’);
writeln(‘1. C001’);
writeln(‘2. C002’);
writeln(‘3. C005’);
writeln(‘4. N001’);
writeln(‘5. NF001’);
write(‘Pilihan Kode : ‘); readln(input);
writeln;
case input of
1 : begin
TabBuku[i].KodeBuku := ‘C001’;
TabBuku[i].Judul := ‘Fisika Dasar’;
TabBuku[i].Pengarang := ‘Suprayogi’;
TabBuku[i].jumlah := 3;
write(TabBuku[i].kodeBuku,’ ‘,TabBuku[i].judul,’ ‘,TabBuku[i].pengarang,’ ‘,TabBuku[i].jumlah);
readln;
end;
2 : begin
TabBuku[i].KodeBuku := ‘C002’;
TabBuku[i].Judul := ‘Algoritma Pemrograman’;
TabBuku[i].Pengarang := ‘Rinaldi Munir’;
TabBuku[i].Jumlah := 10;
write(TabBuku[i].kodeBuku,’ ‘,TabBuku[i].judul,’ ‘,TabBuku[i].pengarang,’ ‘,TabBuku[i].jumlah);
readln;
end;
3 : begin
TabBuku[i].KodeBuku := ‘C005’;
TabBuku[i].Judul := ‘Microsoft Word’;
TabBuku[i].Pengarang := ‘Aldi Kusumah’;
TabBuku[i].Jumlah := 5;
write(TabBuku[i].kodeBuku,’ ‘,TabBuku[i].judul,’ ‘,TabBuku[i].pengarang,’ ‘,TabBuku[i].jumlah);
readln;
end;
4 : begin
TabBuku[i].KodeBuku := ‘N001’;
TabBuku[i].Judul := ‘Harry Potter’;
TabBuku[i].Pengarang := ‘J.K. Rowling’;
TabBuku[i].Jumlah := 8;
write(TabBuku[i].kodeBuku,’ ‘,TabBuku[i].judul,’ ‘,TabBuku[i].pengarang,’ ‘,TabBuku[i].jumlah);
readln;
end;
5 : begin
TabBuku[i].KodeBuku := ‘NF001’;
TabBuku[i].Judul := ‘Aplikasi Iklan’;
TabBuku[i].Pengarang := ‘Yanuar Iman’;
TabBuku[i].Jumlah := 5;
write(TabBuku[i].kodeBuku,’ ‘,TabBuku[i].judul,’ ‘,TabBuku[i].pengarang,’ ‘,TabBuku[i].jumlah);
readln;
end;
else writeln(‘Pilihan Kode Buku Tidak Ada !!’);
end;
write(‘Input Data Buku Lagi (y/t)? : ‘); readln(lagi);
until (input>5) or (lagi = ‘t’);
jumlah := i; writeln;
if i = Nmaks then
writeln(‘Tabel penuh, kagak muat lagiii ….’);
writeln(‘ OUTPUT STRUKTUR DATA BUKU ‘);
writeln(‘…………………………………………………….’);
writeln(‘Kode Buku Judul Pengarang Jumlah ‘);
writeln(‘…………………………………………………….’);
for i:=1 to Jumlah do
writeln(TabBuku[i].KodeBuku:7,TabBuku[i].Judul:20,TabBuku[i].Pengarang:17,TabBuku[i].Jumlah:13);
readln;
end.

outputnnya akan seperti dibawah ini :

menghitung perpangkatan dalam c++

#include “stdio.h”
main()
{

int x,i,n,hasil ;

printf(“masukan angka:”); scanf (“%d”, &x);
printf(“masukan pangkat :”); scanf (“%d”, &n);
i = 1; hasil = 1;
for (i=1; i<=n; i++)
{
hasil= hasil*x;
}
printf("%d",hasil);
scanf("%d");
}

Efek Huruf

Welcome in my Blog ..

membuat efek huruf seperti tulisan diatas, anda bisa download kodenya pada link dibawah ini :

Download sini yaaa..

Parameter:
color: ganti dengan kode warna lain.
font-size: rubah nilai ukuran huruf.

Makalah Kejahatan Komputer

this link to download it :

Download disini yaaaa…