Fungsi TuneUp Utilities 2012 untuk kelancaran PC kita

TuneUp Utilities merupakan software yang sangat bagus untuk mengoptimalkan kinerja komputer maupun laptop. Dengan menggunakan TuneUp Utilities 2012 sistem operasi Windows akan terasa lebih cepat, ringan, nyaman dan tentunya lebih aman hanya dengan beberapa klik.

Fitur one click maintenance akan dengan cepat membersihkan sampah-sampah registry, menghapus sisa-sisa shortcuts yang tidak bekerja dan masih banyak lagi, tentunya hanya dengan satu kali klik sesuai dengan namanya TunUp 1-Click maintenance.

Selain dapat mempercepat kinerja sistem operasi, TuneUp Utilities terbaru ini juga dapat dipergunakan untuk mempercantik tampilan sistem Windows Anda, merubah tampilan Boot Screen, Visual style dan mengatur system elements. Banyak kelebihan-kelebihan yang dapat kita ambil manfaatnya dari software TuneUp Utilities 2012 atu TuneUp Utilities versi terbaru.Apalagi untuk yang Game untuk lebih meringankan kita bisa pakai Turbo Mode walaupun tampilanya clasic tapi yang penting main gamenya lancar.

Jika anda masih penasaran ingin memakainya silahkan anda download lansung melalui link tautan di bawah ini.


Download TuneUp Utilities 2012 




 Download Crack


 pass: widyscatz

Email This BlogThis! Share to X Share to Facebook

Read More

Program Menampilkan Daftar Harga BBM dengan repeat-until pada bahasa pascal

Saya akan menujukan cara membuat Program Menampilkan Daftar Harga BBM dengan repeat-until menggunakan Bahasa Pemrograman Pascal.

Sorce codenya :

uses wincrt; var lt,hg:real; a,n:integer; begin writeln('|_No._|_____ LITER _____|______ HARGA ______| '); n:=1; repeat writeln;writeln; gotoXY(1,n+1); write('| ',n,' '); lt:=0.5*n; gotoXY(7,n+1); write('| ',lt:2:2,' '); hg:=lt*4500; begin if n mod 2 = 1 then hg:=hg+500; gotoXY(25,n+1); writeln('| Rp. ', hg:2:2); gotoXY(44,n+1);writeln(' |'); n:=n +1; end; until n>20; writeln(' '); writeln('---------------------------------------------'); writeln('************** Nama : Heri Widyantoro ************'); writeln('############## NIM : 3105111352 ############'); writeln('************** Prodi : T.informatika/E ************'); writeln('---------------------------------------------'); end.

 Tampilanya :

Email This BlogThis! Share to X Share to Facebook

Read More

Program menampilkan data mahasiswa dengan procedure dan array pada pascal

Saya akan menujukan cara membuat Program menampilkan data mahasiswa dengan procedure dan array menggunkan Bahasa Pemrograman Pascal.

Sorce codenya :

program mahasiwa; uses wincrt; type tabel_mhs= record nama, nim :string [25] ; nilai:integer; end; var mhs : array[1..100] of tabel_mhs; temp:tabel_mhs; j,k,n: integer; ul,ul2 : char; procedure input_data; begin writeln('============================'); writeln('| Data Mahasiswa |'); writeln('============================'); write('Banyaknya mahasiswa : '); readln(n); for j:= 1 to n do with mhs [j] do begin writeln ('Data Mahasiswa',j); write ('Nama='); readln (nama); write ('Nim='); readln (nim); write ('Nilai='); readln (nilai); writeln; end; end; procedure urut_nilai; begin for j:=1 to n-1 do for k:=j-1 to n do if mhs[j].nilai > mhs[k].nilai then begin temp:=mhs[j] ; mhs[j]:=mhs[k] ; mhs[k]:=temp ; end; end; procedure tampilan; begin urut_nilai; writeln('============================'); writeln('| Data Nilai Mahasiswa |'); writeln('============================'); writeln; writeln('=========================================='); writeln('|Nama |Nim |Nilai |'); writeln('=========================================='); for j:=1 to n do begin writeln('|',mhs[j].nama:15,'|',mhs[j].nim:15,'|',mhs[j].nilai:6,'|'); end; writeln('=========================================='); end; begin input_data; urut_nilai; tampilan; end.

Email This BlogThis! Share to X Share to Facebook

Read More

Program mencari jumlah dan rata-rata bilangan positif dan negatif dengan pascal

Saya akan menujukan cara membuat Program mencari jumlah dan rata-rata bilangan positif dan negatif dengan menggunakan Bahasa Pemrograman Pascal

Sorce codenya :

uses wincrt; var hp,hm,jp,jn,i,n,bil: integer; begin write('Banyak Bilangan : '); readln(n); writeln(''); for i := 1 to n do begin Write('Bilangan ',i,' : '); readln(bil); if bil > 0 then begin jp := jp+bil; hp := hp+1; end else begin jn := jn+bil; hm := hm+1 end end; writeln(''); writeln('Jumlah Bilangan Positif :',jp); writeln('Rata-rata Bilangan Positif :',jp/hp:0:2); writeln('Jumlah Bilangan Negatif :',jn); writeln('Rata-rata Bilangan Negatif :',jn/hm:0:2); readln; writeln(' '); writeln('---------------------------------------------'); writeln('************** Nama : Heri Widyantoro ************'); writeln('############## NIM : 3105111352 ############'); writeln('************** Prodi : T.informatika/E ************'); writeln('---------------------------------------------'); end.

 Tampilanya :

Email This BlogThis! Share to X Share to Facebook

Read More

Program penjumlahan nilai mahasiswa dengan pascal

Saya akan menujukan cara membuat program penjumlahan nilai mahasiwa dengan menggunakan Bahasa Pemrograman Pascal

Sorce codenya :

uses wincrt; var a,b,c,jumlah: integer; begin write ('masukan jumlah mahasiswa : '); readln(a); jumlah:=0; for b:=1 to a do begin write('nilai mhsw ke ',b,' : '); readln(c); jumlah:=jumlah+c; end; write('jumlah nilai mhsswa = ',jumlah); writeln(' '); writeln('---------------------------------------------'); writeln('************** Nama : Heri Widyantoro ************'); writeln('############## NIM : 3105111352 ############'); writeln('************** Prodi : T.informatika/E ************'); writeln('---------------------------------------------'); end.

 Tampilanya :

Email This BlogThis! Share to X Share to Facebook

Read More

Program dangan Menu Meginputkan dan Menampilkan Data dengan Pascal

Saya akan menujukan cara membuat Program dangan Menu Meginputkan dan Menampilkan Data dengan menggunakan Bahasa Pemrograman Pascal

Sorce codenya :

uses wincrt; var nama,alamat:array[1..10] of string; nilai:array[1..10] of integer; x,y,pilih:integer; procedure tampilkan_menu; begin clrscr; writeln('========================='); WRITELN(' MENU UTAMA '); writeln('========================='); WRITELN(' 1. Memasukkan data '); WRITELN(' 2. Menampilkan data '); WRITELN(' 3. Keluar Program '); writeln('========================='); writeln(' Pilihan anda [ ] '); writeln('========================='); gotoxy(18,8);readln(pilih); writeln; writeln; end; procedure masukkan_data; begin for x:=1 to 3 do begin write('masukkan nama ke-',x,' : '); readln(nama[x]); write('masukkan alamat ke-',x,' : '); readln(alamat[x]); end; end; procedure tampilkan_data; begin writeln('------------------'); writeln('nama alamat'); writeln('------------------'); for x:=1 to 3 do begin writeln(nama[x],' ',alamat[x]); end; readln; end; {program utama} begin repeat tampilkan_menu; if pilih=1 then masukkan_Data else if pilih=2 then tampilkan_data else if pilih=3 then exit; until pilih=3; writeln(' ') ; writeln('---------------------------------------------'); writeln('************** Nama : Heri Widyantoro ************'); writeln('############## NIM : 3105111352 ############'); writeln('************** Prodi : T.informatika/E ************'); writeln('---------------------------------------------'); end. end.

 Tampilanya :

Email This BlogThis! Share to X Share to Facebook

Read More

Program mencari nilai terbesar dari 3 bilangan dengan bahasa pascal

Saya akan menujukan cara membuat Program mencari nilai terbesar dari 3 bilangan dengan menggunakan Bahasa Pemrograman Pascal.

Sorce codenya :

program bil_terbesar_heri; uses wincrt; var bil_1,bil_2,bil_3 : integer; terbesar : integer; begin writeln(' *******Program Mencari Bilangan Terbesar******* '); writeln(' ----------------------------------------------- '); writeln; writeln('MASUKAN 3 BUAH BILANGAN = '); writeln; write('bil_1 = '); readln(bil_1); write('bil_2 = '); readln(bil_2); write('bil_3 = '); readln(bil_3); terbesar:=0; if (bil_1 > bil_2) then terbesar:= bil_1 else terbesar:=bil_2; if (terbesar > bil_3) then terbesar := terbesar else terbesar:= bil_3; writeln; write ('jadi bilangan terbesarnya adalah = ', terbesar); writeln(' ') ; writeln('---------------------------------------------'); writeln('************** Nama : Heri Widyantoro ************'); writeln('############## NIM : 3105111352 ############'); writeln('************** Prodi : T.informatika/E ************'); writeln('---------------------------------------------'); end.

 Tampilanya :

Email This BlogThis! Share to X Share to Facebook

Read More

Program Bintang Mantul-Mantul dengan Bahasa Pascal

Saya akan menujukan cara membuat Program Bintang Mantul-Mantul dengan menggunakan Bahasa Pemrograman Pascal.

Sorce codenya :

Program BINtang_mantul; uses wincrt; CONST lebar=80; tinggi=25; xawal=1; yawal=1; VAR x,y ,delay: byte; dx,dy : shortint; c : char; BEGIN {inisialisasi awal} x:=xawal; y:=yawal; dx:=1; dy:=1; c:=#0; REPEAT clrscr; {bersihkan layar} gotoxy(x,y); write('*'); {mencetak bintang pada posisi X,Y} x:=x+dx; {ubah koordinat x} y:=y+dy; {ubah koordinat y} {cek, jika sudah sampai di batas layar, maka ubah dx & dy untukk ganti arah} IF (X>=lebar) OR (X<=1) THEN dx:=-dx; IF (Y>=tinggi) OR (Y<=1) THEN dy:=-dy; {jika ada penekanan tombol, maka tombol tersebut dideteksi} IF keypressed THEN c:=readkey; delay:=(100); {menunda selama 100ms} UNTIL c=#27; end.

Email This BlogThis! Share to X Share to Facebook

Read More

Program Menampilkan 'Hello-word' dengan bahasa Pascal

Saya akan menujukan cara membuatProgram Menampilkan 'Hello-word'  dengan menggunakan Bahasa Pemrograman Pascal.

Sorce codenya :

program Hello_word ; uses wincrt; var a,b:integer; begin writeln ('Masukan angka');readln(b); begin for a:=1 to b do writeln('Hello World'); end; writeln(' ') ; writeln('---------------------------------------------'); writeln('************** Nama : Heri Widyantoro ************'); writeln('############## NIM : 3105111352 ############'); writeln('************** Prodi : T.informatika/E ************'); writeln('---------------------------------------------'); end.

 Tampilanya :

Email This BlogThis! Share to X Share to Facebook

Read More