Sign up for PayPal and start accepting credit card payments instantly.

Thursday, May 21, 2009

Ujian Extra Pascal

Author: Kadek Yartono | Posted at: 8:49 PM | Filed Under:
Ujian Pascal Kumpul disini. Jika sama nilai berkurang....

9 comments:

dwiiii_dsniii on May 21, 2009 at 9:47 PM said...

{NI MADE DWI PURWATI X7/17
16 maret 2009}

program ujianpascal;
uses crt;
var
Nama_barang: string;
pil: integer;
jumlah_barang,jumlah_bayar,diskon,jumlah_belanja: real;

begin
repeat
clrscr;
textcolor(cyan);writeln ('Program Penjualan Barang');
writeln ('========================');
writeln;
textcolor(magenta);writeln ('Menu Utama:');
writeln ('1. Penjualan Barang');
writeln ('2. Profil Saya');
writeln ('3. Keluar');
writeln;
textcolor(cyan+blink);writeln ('Masukkan angka 1, 2 atau 3 untuk memilih menu!!!');
textcolor(magenta);writeln ('Masukkan menu yang dipilih:');readln(pil);

IF (pil=1) OR (pil=2) OR (pil=3) THEN

begin
clrscr;
case pil of
1 : begin
writeln('Program Penjualan Barang');
writeln('========================');writeln;
writeln('Nama Barang yang ada:');
writeln('1.Pensil, harga Rp. 2000,-');
writeln('2.Buku tulis, harga Rp. 5000,-');
writeln;
writeln('Transaksi!!!'); readln;
write('masukkan nama barang yang ingin dibeli:');
textcolor(white);readln(nama_barang);
textcolor(magenta);write('masukkan jumlah barang:');
textcolor(white);readln(jumlah_barang);

IF nama_barang= 'pensil' THEN
BEGIN
jumlah_belanja:=jumlah_barang*2000;
END
ELSE IF nama_barang= 'buku tulis' THEN
BEGIN
jumlah_belanja:=jumlah_barang*5000;
END;


IF jumlah_belanja >= 10000 THEN
BEGIN
diskon:=0.1;
END;

jumlah_bayar:=jumlah_belanja-(jumlah_belanja*diskon);

clrscr;
textcolor(white+blink);writeln('=========Hasil Transaksi=========');
writeln;
textcolor(magenta);writeln('Nama barang:',nama_barang);
writeln('Jumlah barang: ',jumlah_barang:0:0);
writeln('diskon: ',diskon:0:2);
writeln('jumlah bayar: ',jumlah_bayar:0:2);
readln;
end;

2: begin
textcolor(yellow+blink);writeln('============Profil Saya============ ');
writeln;
textcolor(blue);writeln('Nama : Ni Made Dwi Purwati');
writeln('TTL : 11 Januari 1994');
writeln('Alamat : Jl.Kertanegara Gg.Sinta No.1');
writeln('Sekolah: SMA N 8 Denpasar');
writeln('Kelas : X7');
writeln('Absen : 17');
readln;
end;

3: begin
textcolor(cyan);writeln('...EXIT...');writeln;
textcolor(white+blink);writeln('Silahkan Keluar!');
end;

end;

end;
until(pil=3);readln;
end.

I Wayan Adi Pranata on May 29, 2009 at 8:21 PM said...

Program Ujian;
{Nama : I Wayan Adi Pranata
Kelas : X5
Nomor : 03}
Uses CRT;
var
angka : integer;
nama_barang: string;
jumlah_barang: integer;
diskon : real;
jumlah_bayar : real;
b: string;
harga_barang: integer;
jumlah_belanja: real;
Begin
repeat
CLRSCR;
textcolor(cyan);Writeln('Program Penjualan Barang');
Writeln('========================');
Writeln;
Writeln;
Writeln('Menu Utama: ');
Writeln('1. Penjualan Barang');
Writeln('2. Profil Saya');
Writeln('3. Keluar');
Writeln;
Writeln;
textcolor(cyan+blink);Writeln('Masukkan angka 1, 2, atau 3 untuk memilih menu!!!');
Writeln('Masukkan menu yang dipilih ');readln(angka);
case angka of
1: Begin
clrscr;
textcolor(wite);Writeln(' Program Penjualan Barang');
Writeln('=========================');
Writeln;
Writeln;
Writeln('Nama Barang Yang ada: ');
Writeln('1. Pensil, harga Rp. 2000,-');
Writeln('2. Buku Tulis, harga Rp. 5000,-');
Writeln;
Writeln('Transaksi !!!');
Writeln('Masukkan Nomor Barang yang Ingin Dibeli; ');readln(b);
Writeln('Masukkan jumlah barang: ');readln(jumlah_barang);
IF jumlah_bayar >10000 THEN
Begin
diskon:=0.1*jumlah_bayar;
End;
Begin
IF b ='1' THEN
Begin
jumlah_bayar:=2000*jumlah_barang;
end;

IF b='2' THEN
Begin
jumlah_bayar:=5000*jumlah_barang;
end;
Writeln('Nama barang: ',b);
Writeln('Jumlah Barang: ',jumlah_barang);
Writeln('Diskon: ',diskon:0:2);
jumlah_bayar:= jumlah_bayar-diskon;
Writeln('Jumlah Bayar: ',jumlah_bayar:0:2);

readln;
readln;
End;

Writeln;
readln;
Begin;
clrscr;
Writeln('Program Penjualan Barang');
Writeln('========================');
Writeln;

end;
readln;
end;
2: Begin
Writeln('Biodata Saya');
Writeln('============');
Writeln('Nama: I Wayan Adi Pranata');
Writeln('Kelas: X5');
Writeln('Nomor: 03');
Writeln('Hobi: Membaca Buku');
Writeln('Telepon/ HP: (0361) 467536/ 081353393426');
readln;
End;
3: Writeln('Keluar');

end;
until(angka=3);
End.

HaniFah JaWas on June 2, 2009 at 6:33 PM said...

PROGRAM PenjualanBarang;
{Nama : HANIFAH JAWAS
Kelas : X.4
No : 16 }

Uses Crt;
VAR
a,c : integer;
b : string;
d,diskon,Jumlahbayar : real;

BEGIN
REPEAT;
Clrscr;
WriteLn ('Program Penjualan Barang');
WriteLn ('========================');
WriteLn;
WriteLn;
WriteLn ('Menu Utama:');
WriteLn ('1. Penjualan Barang');
WriteLn ('2. Profil Saya');
WriteLn ('3. Keluar');
WriteLn;
WriteLn ('Masukkan Angka 1, 2 atau 3 Untuk Memilih Menu !!!');
WriteLn ('Masukkan Menu yang Dipilih');
ReadLn (a);

CASE a Of
1 : BEGIN
Clrscr;
WriteLn ('Program Penjualan Barang');
WriteLn ('========================');
WriteLn;
WriteLn ('Nama Barang yang ada: ');
WriteLn ('1. Pensil, harga Rp. 2000,- ');
WriteLn ('2. Buku tulis, harga Rp. 5000,- ');
WriteLn;
WriteLn;
WriteLn ('Transaksi !!!');
WriteLn ('Masukkan Nomor Barang yang Ingin Dibeli :....');
Read (b);
WriteLn ('Masukkan Jumlah Barang :....'); Read (c);
IF b = '1' THEN
BEGIN
d := 2000 * c ;
ReadLn;
END;
IF b = '2' THEN
BEGIN
d := 5000 * c ;
ReadLn;
END;
IF d > 10000 THEN
BEGIN
diskon := 0.1 * d;
ReadLn;
END;

BEGIN
Clrscr;
WriteLn ('Program Penjualan Barang');
WriteLn ('========================');
WriteLn;
WriteLn ('Nama Barang : ',b);
WriteLn ('Jumlah Barang : ',c);
WriteLn ('diskon : ',diskon:0:1);
Jumlahbayar := d - diskon;
WriteLn ('Jumlah bayar : ',Jumlahbayar:0:1);
ReadLn;
END;
end;

2: BEGIN
Clrscr;
Writeln ('Biodata');
WriteLn ('Nama : Hanifah Jawas');
WriteLn ('Kelas : X4');
WriteLn ('No : 16');
WriteLn ('Email : aQsukacokeLat@gmail.com');
ReadLn;
END;

3: BEGIN
Clrscr;
WriteLn ('Keluar'); Read;
END;

END;
UNTIL (a=3);
END.

Ni wayan Ina Sukma Dewi on June 2, 2009 at 6:44 PM said...

{Nama : Ni Wayan Ina Sukma Dewi
Kls : X.4
No : 18
}

Program Penjualan_Barang;
Uses crt;
Var
P,V,W : integer;
Diskon,Jum,Jumlah_Bayar : Real;

Begin
Repeat;

Clrscr;
Writeln('Program Penjualan Barang');
Writeln('========================');
Writeln('');
Writeln('Menu Utama:');
Writeln('1 : Penjualan Barang');
Writeln('2 : Profil Saya');
Writeln('3 : Keluar');
Writeln('Masukkan angka 1 sampai 3');
Writeln('Masukkan Menu yang dipilih ...');
Read(P);

Case P Of
1 : Begin
ClrScr;
Writeln('Program Penjualan Barang');
Writeln('========================');
Writeln('');
Writeln('Nama Barang yang ada : ');
Writeln(' 1. Pensil,harga Rp. 2000,-');
Writeln(' 2. Buku Tulis,harga Rp. 5000,-');
WriteLn;
Writeln('Transaksi !!!');
Writeln('Masukkan nama barang yang ingin dibeli : ....');
ReadLn (V);
Writeln('Masukkan jumlah barang : ....');
Readln(W);
If V = 1 Then
Jum:= 2000 * W;
If V = 2 Then
Jum:= 5000 * W;
If Jum > 10000 Then
Begin
Diskon:= 0.1 * W;
End;

Begin
ClrScr;
Writeln('Program Penjualan Barang');
Writeln('========================');
Writeln('');
Writeln('Nama barang : ',V);
Writeln('Jumlah Barang : ',W);
Writeln('Diskon : ',Diskon:0:2);
Jumlah_Bayar:= Jum - Diskon;
Writeln('Jumlah bayar :',Jumlah_Bayar:0:2);
Readln;
End;
End;

2 : Begin
Writeln ('Nama : Ni Wayan Ina Sukma Dewi');
Readln;
Writeln ('Kelas : X.4');
Writeln ('No : 18');
Readln;
End;

3 : Begin
Writeln (' Keluar ');
Readln;
End;
End;
Until (P=3);
End.

Ketut Yunda Anastesia Kls X7 No.46 on June 3, 2009 at 3:50 AM said...

Program ulangan;
uses crt;
var
d,a,jumlah_barang,harga_barang:integer;
nama_barang:string;
diskon,jumlah_bayar:real;
begin
clrscr;
writeLn('penjualan barang');
writeLn('================');
writeLn;
writeLn;
WriteLn('Menu utama');
writeLn('penjualan barang');
writeLn('profil saya');
writeLn('keluar');
writeLn;
writeLn('Masukkan angka 1,2 atau 3 untuk memilih menu!!!');
writeLn('Masukkan menu yang dipilih');
readLn(a);
case a of
1:begin
writeLn('program penjualan barang');
writeLn('========================');
writeLn;
writeLn('Nama barang yang ada');
writeLn('1. Pensil,harga Rp. 2000,-');
writeLn('2. Buku tulis,harga Rp. 5000,-');
writeLn('Trasaksi!!!');
writeLn('Masukkan nomor barang yang ingin dibeli:');readLn(nama_barang);
writeLn('Masukkan jumlah barang');
readLn(jumlah_barang);

if nama_barang='1' then
begin
harga_barang:=2000;
end;
if nama_barang='2' then
begin
harga_barang:=5000;
end;

writeLn('masukkan jumlah barang:');readLn(jumlah_barang);
readLn;

d:=jumlah_barang*harga_barang;

if d > 10000 then
begin
diskon:=jumlah_bayar*0.1;
end;

jumlah_bayar:=d-diskon;
clrscr;
writeLn('Program penjualan barang');
writeLn('========================');
writeLn;
writeLn('Nama barang',nama_barang);
writeln('Jumlah barang',jumlah_barang);
writeLn('diskon',diskon);
writeLn('jumlah bayar',jumlah_bayar);
readLn;
end;


2:begin
clrscr;
writeLn('boidata');
writeLn('Nama : Ketut Yunda Anastesia');
writeLn('Nomor : 46');
writeLn('Kelas : X.7');
writeLn('Alamat : jln gutiswa no.8');
case a of
3:begin
writeLn('keluar');
readLn;
end;

end;
end;
end;
end.

ananta on June 3, 2009 at 8:47 PM said...

program Program_Ujian;
uses crt;
var
namaBarang,diskontxt: string;
jumBarang,pilih: integer;
jumBayar,jumBelanja,diskon: real;

begin
repeat
clrscr;
textcolor(red);
gotoxy(3,3);
writeln ('Program Penjualan Barang');
gotoxy(2,4);
writeln ('==========================');
gotoxy(1,6);
writeln ('Menu Utama:');
gotoxy(2,9);
writeln ('1. Penjualan Barang');
gotoxy(2,11);
writeln ('2. Profil Saya');
gotoxy(2,13);
writeln ('3. Keluar');
gotoxy(1,15);
writeln ('Masukkan angka 1, 2 atau 3 untuk memilih Sub Menu di atas.');
write ('Masukkan Sub Menu pilihan Anda : ');
readln(pilih);
if (pilih=1) or (pilih=2) or (pilih=3) then

begin
clrscr;
case pilih of

1 : begin
gotoxy(3,1);
writeln('Program Penjualan Barang');
gotoxy(2,2);
writeln('==========================');
gotoxy(2,4);
writeln('Nama Barang yang tersedia:');
gotoxy(1,6);
writeln('1.Pensil, harga Rp 2000,00');
gotoxy(1,8);
writeln('2.Buku tulis, harga Rp 5000,00');

gotoxy(1,10);
writeln('Transaksi!!!');
gotoxy(1,12);
write('Nama barang yang anda beli : ');
readln(namaBarang);
gotoxy(1,14);
write('Jumlah barang yang anda beli : ' );
readln(jumBarang);
if (namaBarang='pensil') or (namaBarang='Pensil') or (namaBarang='PENSIL') then
begin
jumBelanja:=jumBarang*2000;
end
else if (namaBarang='Buku tulis') or (namaBarang='Buku Tulis') or
(namaBarang='buku tulis') or (namaBarang='BUKU TULIS') or (namaBarang='buku Tulis') then
begin
jumBelanja:=jumBarang*5000;
end;




if jumBelanja>=10000 then diskon:=0.1;

jumBayar:=jumBelanja-(jumBelanja*diskon);

clrscr;
gotoxy(3,1);
writeln('Perincian Belanja');
gotoxy(2,2);
writeln('===================');
gotoxy(1,4);
writeln('Nama barang ',namaBarang);
gotoxy(1,6);
writeln('Jumlah barang ',jumBarang);
gotoxy(1,8);
writeln('diskon ',diskon:0:2);
gotoxy(1,10);
writeln('jumlah bayar Rp ',jumBayar:0:2);
readln;
end;

2: begin
writeln('Profil Saya');
gotoxy(1,3);
writeln('Nama : Putu Agung Ananta Wijaya');
writeln('Kelas : XI IPA 5');
writeln('No : 1');
writeln('Website : www.blogsan-ananta.blogspot.com');
writeln('e-mail : anantasmapan@gmail.com');
readln;
end;

3: begin
writeln('Program Selesai');
gotoxy(1,3);
writeln('Terima Kasih');
end;
end;
end;
UNTIL(pilih=3);readln;
end.

Cok Istri Indraswari Pemayun X.* 19 on June 4, 2009 at 5:27 PM said...

program ujian;
{Nama : Cok Istri Indraswari Pemayun
Kelas : X.8
No : 19}
uses crt;
var
a,jum_barang,harga_barang: integer;
nama_barang: string;
diskon,jum_bayar: real;

begin
repeat
clrscr;
Writeln ('Program Penjualan Barang');
writeln ('========================');
writeln;
writeln;
Writeln ('Menu utama:');
writeln ('1. Penjualan barang');
writeln ('2. Profil saya');
writeln ('3. Keluar');
writeln;
writeln ('Masukkan angka 1,2 atau 3');
writeln ('Masukkan menu yang dipilih:');
readln(a);
case a of
1: begin
clrscr;
Writeln ('Program Penjualan Barang');
writeln ('========================');
writeln;
writeln ('Nama Barang yang ada:');
writeln ('1. Pensil, harga Rp. 2000,-');
writeln ('2. Buku tulis, harga Rp. 5000,-');
writeln;
writeln ('Transaksi!!!');
writeln ('Masukkan nomor barang yang ingin dibeli:');readln(nama_barang);

if nama_barang='1' then
begin
harga_barang:=2000;
end;

if nama_barang='2' then
begin
harga_barang:=5000;
end;

writeln ('Masukkan jumlah barang:');readln(jum_barang);
jum_bayar:=(jum_barang*harga_barang);

if jum_bayar > 10000 then
begin
diskon:=jum_bayar*0.1;
end;

jum_bayar:=jum_bayar-diskon;
clrscr;
writeln ('Program Penjualan Barang');
writeln ('========================');
writeln;
writeln ('Nama barang : ',nama_barang);
writeln ('Jumlah barang: ',jum_barang);
writeln ('Diskon:',diskon:0:2);
writeln ('Jumlah bayar:',jum_bayar:0:2);

readln;
end;
2:begin
clrscr;
Writeln('Biodata');
writeln('Nama : Cok Istri Indraswari Pemayun');
Writeln('Kelas : X.8');
writeln('No : 19');
writeln('Alamat : Jln Padma Perum Padma c.6');
readln;
end;
3:begin
Writeln('Keluar');
readln;
end;

end;
until(a=3);
end.

Cok Istri Indraswari Pemayun X.* 19 on June 4, 2009 at 5:33 PM said...

program ujian;
{Nama : Cok Istri Indraswari Pemayun
Kelas : X.8
No : 19}
uses crt;
var
a,jum_barang,harga_barang: integer;
nama_barang: string;
diskon,jum_bayar: real;

begin
repeat
clrscr;
Writeln ('Program Penjualan Barang');
writeln ('========================');
writeln;
writeln;
Writeln ('Menu utama:');
writeln ('1. Penjualan barang');
writeln ('2. Profil saya');
writeln ('3. Keluar');
writeln;
writeln ('Masukkan angka 1,2 atau 3');
writeln ('Masukkan menu yang dipilih:');
readln(a);
case a of
1: begin
clrscr;
Writeln ('Program Penjualan Barang');
writeln ('========================');
writeln;
writeln ('Nama Barang yang ada:');
writeln ('1. Pensil, harga Rp. 2000,-');
writeln ('2. Buku tulis, harga Rp. 5000,-');
writeln;
writeln ('Transaksi!!!');
writeln ('Masukkan nomor barang yang ingin dibeli:');readln(nama_barang);

if nama_barang='1' then
begin
harga_barang:=2000;
end;

if nama_barang='2' then
begin
harga_barang:=5000;
end;

writeln ('Masukkan jumlah barang:');readln(jum_barang);
jum_bayar:=(jum_barang*harga_barang);

if jum_bayar > 10000 then
begin
diskon:=jum_bayar*0.1;
end;

jum_bayar:=jum_bayar-diskon;
clrscr;
writeln ('Program Penjualan Barang');
writeln ('========================');
writeln;
writeln ('Nama barang : ',nama_barang);
writeln ('Jumlah barang: ',jum_barang);
writeln ('Diskon:',diskon:0:2);
writeln ('Jumlah bayar:',jum_bayar:0:2);

readln;
end;
2:begin
clrscr;
Writeln('Biodata');
writeln('Nama : Cok Istri Indraswari Pemayun');
Writeln('Kelas : X.8');
writeln('No : 19');
writeln('Alamat : Jln Padma Perum Padma c.6');
readln;
end;
3:begin
Writeln('Keluar');
readln;
end;

end;
until(a=3);
end.

tody on June 10, 2009 at 9:33 PM said...

program ujian;
{Nama : tody kresna wijaya)
Kelas : X.8
No : 41}
uses crt;
var
a,jum_barang,harga_barang: integer;
nama_barang: string;
diskon,jum_bayar: real;

begin
repeat
clrscr;
Writeln ('Program Penjualan Barang');
writeln ('========================');
writeln;
writeln;
Writeln ('Menu utama:');
writeln ('1. Penjualan barang');
writeln ('2. Profil saya');
writeln ('3. Keluar');
writeln;
writeln ('Masukkan angka 1,2 atau 3');
writeln ('Masukkan menu yang dipilih:');
readln(a);
case a of
1: begin
clrscr;
Writeln ('Program Penjualan Barang');
writeln ('========================');
writeln;
writeln ('Nama Barang yang ada:');
writeln ('1. Pensil, harga Rp. 2000,-');
writeln ('2. Buku tulis, harga Rp. 5000,-');
writeln;
writeln ('Transaksi!!!');
writeln ('Masukkan nomor barang yang ingin dibeli:');readln(nama_barang);

if nama_barang='1' then
begin
harga_barang:=2000;
end;

if nama_barang='2' then
begin
harga_barang:=5000;
end;

writeln ('Masukkan jumlah barang:');readln(jum_barang);
jum_bayar:=(jum_barang*harga_barang);

if jum_bayar > 10000 then
begin
diskon:=jum_bayar*0.1;
end;

jum_bayar:=jum_bayar-diskon;
clrscr;
writeln ('Program Penjualan Barang');
writeln ('========================');
writeln;
writeln ('Nama barang : ',nama_barang);
writeln ('Jumlah barang: ',jum_barang);
writeln ('Diskon:',diskon:0:2);
writeln ('Jumlah bayar:',jum_bayar:0:2);

readln;
end;
2:begin
clrscr;
Writeln('Biodata');
writeln('Nama : Cok Istri Indraswari Pemayun');
Writeln('Kelas : X.8');
writeln('No : 19');
writeln('Alamat : Jln Padma Perum Padma c.6');
readln;
end;
3:begin
Writeln('Keluar');
readln;
end;

end;
until(a=3);
end.

Post a Comment

Subscribe to: Post Comments (Atom)

Yang mau donasi, silahkan disini ....

Bagi para donatur yang ingin melakukan donasi ke webblog ini, silahkan klik tombol Donate. Atau pilih jenis donasi yang lainnya....

Entri Populer

Daftar Pay Per View (PPV / CPM) disini dapatkan penghasilan $2 s/d $4 per CPM

Get paid To Promote at any Location

All Post

Antivirus - Avira/Antivir - Dowload Master (1) Antivirus - Avira/Antivir - Update Manual (1) Antivirus - Kaspersky - Download Update (1) Antivirus - Smadav (1) AP01 - Dasar-Dasar Adobe Photoshop (13) AP02 - Free Download Brush (3) AP04 - Efek Teks (1) AP05 - Kreasi Foto (5) AP07 - Download Frame / Bingkai Foto (40) AP08 - Wallpaper (4) AP09 - Kartu Ucapan (5) AP10 - Desainku (11) AP11 - Gallery Photo (1) Aplikasi lucu (2) Artikel Internet (3) Download Tutorial (6) Email Gmail (1) Email Yahoo (1) Forum Diskusi (6) Game Facebook (1) Game Online - IKARIAM (1) Game Pokemon Emerald GBA (11) Games - Farm Frenzy Pizza Party (1) Games - GBA - Map Pokemon Leaf Green (6) Games - Mini Flash - Packman (1) Games - Mini Flash - Play Aim Fire Game (1) Games Online (11) Games Online - Naruto Arena (1) Games Online - Pokemon Black (1) Games Online - Pokemon TPPCRPG (1) Games Online - Thecrims (1) Games Online - Travian (7) Games Online - www.pokemonbattlearena.net (1) Games Online LORDS OF WAR ANE MONEY (19) Internet (1) Karya Anak Design Grafish (Extra Desain) (3) Kata Kata Mutiara untuk Motivasi (1) Kesehatan - Bahaya zat kimia (2) Kesehatan - Rokok (3) Kesehatan - Test Buta Warna (7) Lain-lain (2) Link Site Bagus (2) Lirik Lagu - Indonesai - Armanda (1) Lirik Lagu - Indonesai - BCL (1) Lirik Lagu - Indonesai - DMasiv (1) Lirik Lagu - Indonesai - Geisha (1) Lirik Lagu - Indonesai - Gita Gutawa (1) Lirik Lagu - Indonesai - Kotak (1) Lirik Lagu - Indonesai - Nindy (1) Lirik Lagu - Indonesai - SHE (4) Lirik Lagu - Indonesai - Warteg Boys (1) LordWM 04 Battle (3) Map Game Pokemon Emerald GBA (11) Pemrograman (2) Perbaikan (1) Perjalanan dan Objek Wisata (1) Pertanyaan Seputar TIK (1) Ramalan - Kecocokan Pasangan (1) Ramalan - Watak Manusia (2) SMA - Kelas X - Materi TIK (6) SMA - Kelas X - Remidi (1) SMA - Kelas X - Tugas (8) SMA - Kelas X - Tugas Extra Pascal (5) Software - Browser - Mozila Firefox (3) Software - Downloader - Orbit (3) Software - Multimedia - K-Lite Mega Codec (1) Software - WinRAR (1) Tugas Desain Grafis (2) Tutorial (4) Tutorial - Adobe Photoshop (18) Tutorial - Macromedia Flash (4) Tutorial - Microsoft Word (3) Tutorial - Microsoft Word 2007 (2) Tutorial - WinRar (1) Tutorial Blogger (8) Tutorial Blogger - AdsenseCamp (3) Tutorial Delphi (4) Tutorial Facebook (2) Tutorial Microsoft Office PowerPoint 2007 (3) Tutorial Microsoft Office Word 2007 (1) Uang Gratis (4) Uang Gratis - Adsense Camp (3) Uang Gratis - Paid per View (CPM/PPV) (5) Uang Gratis - Pay Per Click or CPM - Iklan (2) Uang Gratis - Paypal (1) Uang Gratis - Ziddu (1) Ucapan Hari Raya / Peringatan (1) ucapan hari raya nyepi (2) Upload File (1) Website (2) website-Alexa Site Info (1)
 

FeedBurner FeedCount

Followers

Full Tutorial 's Fan Box

* Tutorial * on Facebook
Full Tutorial Copyright © 2009 Blogger Template Designed by Bie Blogger Template