#include
#include

void main() {
int i, j, iMin; //Deklarasi index untuk array
int n, Urut; //Deklarasi untuk banyak data
int Tmp; //Tmp penampung elemen array
int Arr[50]; //Deklarasi Array

//Aplikasi dimulai
printf("Inputkan banyak data yang akan diurutkan : ");
scanf("%i", &n);
//Input array
Urut = 1;
for(i = 0; i < i =" 0;" imin =" i;" min =" index" j =" Urut;" imin =" j;" tmp =" Arr[i];"> Arr[iMin]) { //Jika Array lama lebih besar dari yang baru
Arr[i] = Arr[iMin]; //Ganti Array lama dengan Array baru
Arr[iMin] = Tmp; //Ganti Array baru dengan Array lama
}
}
}
}
Urut = Urut + 1; //Tambah urut dengan 1
}
//Tampilkan Hasil
printf("\nSetelah Pengurutan\n");
for(i = 0; i <>
Program Diatas Kurang Lengkap, Untuk Lebih Lengkap Silahkan Download dibawah ini:

Download SELECTION_SORT.CPP

Download SELECTION_SORT.EXE
1. Menampilkan 50 Bilangan Positif Pertama
2. Menampilkan 07 Bilangan Ganjil Pertama
3. Menampilkan 1500 Bilangan Pertama
4. Konversi Derajat Celcius Kerankin
5. Konfersi Biner Ke Desimal

Maka Jika Dibuat Dalam Program Pascal Hasilnya Adalah :

Program pilihan;
uses crt;
Procedure Bilangan_Positif;
Var A : Integer;
Begin
Writeln ('Lima puluh bilangan positif pertama adalah ');
For A:=1 to 49 do
write (' ',A,',');
write (' ',50,'.');
Readln;
End;
Procedure Bilangan_Ganjil;
Var A : String [24];
Begin
A:=('1, 3, 5, 7, 9, 11, 13.');
Writeln ('Tujuh bilangan ganjil pertama adalah ',A);
Readln;
End;
Procedure Bilangan_Ganjil2;
var A,B : integer;
Begin
Writeln ('Seribu limaratrus bilangan ganjil pertama adalah ');
for A:=1 to 1499 do
begin
B:=2*A-1;
Write (' ',B,',');
end;
write (' 2999.');
readln;
end;
Procedure Konversi_Celcius;
Var A,B: real;
Begin
Write ('Masukan nilai derajat celcius ? ');readln(A);
B:=9/5*A+492;
writeln (A:14:2,' derajat celcius = ',B:14:2,' Rankin');
readln;
end;


Procedure Pangkat (x,y:integer;var C:integer);
var i,hasil: integer;
begin
hasil := 1;
for i:=1 to y do
begin
hasil := hasil * x;
C:=hasil;
end;
end;





var A,D:string;
B,C,j,E,F,G,H,hasil2:integer; z:integer;
Begin
clrscr;
writeln (' Pilih program yang tersedia dibawah ini!!!!');
writeln ('1. Menampilkan 50 bilangan positif pertama');
writeln ('2. Menampilkan 07 bilangan ganjil pertama');
writeln ('3. Menampilkan 1500 bilangan ganjil pertama');
writeln ('4. Konversi derajat celcius ke rankin');
writeln ('5. Konversi biner ke desimal');
writeln;
write ('Masukan pilihan yang tersedia no 1, 2, 3, 4, atau 5 ? ');readln (z);
if z=1 then Bilangan_Positif else
if z=2 then Bilangan_Ganjil else
if z=3 then Bilangan_Ganjil2 else
if z=4 then Konversi_Celcius else
if z=5 then

begin
write ('masukan bilangan biner = '); readln(A);
B:= length (A);
hasil2:=0;
for j:=0 to B-1 do
begin
D:= copy (A,B-j,1);
val (D,E,F);
pangkat (2,j,C);
if C=0 then C:=1;
H:= C*E;
hasil2:=hasil2+H;
end;
writeln (hasil2);
readln;
end

else
writeln ('Error');
readln;
End.



Download PASCAL.PAS

Download PASCAL.EXE
Program Faktorial_Procedure;
uses crt;
Procedure Faktorial1 (x,y:integer; var c:integer);
var d:integer;
begin
d:=1;
for x:=1 to y do
begin
d:=d*x;
c:=d;
end;
end;

Function Faktorial2 (x,y:integer):integer;
var d:integer;
begin
d:=1;
for x:=1 to y do
begin
d:=d*x;
Faktorial2 :=d;
end;
end;



Var a,z,c: integer;
begin
clrscr;
writeln ('1. Program Faktorial dengan Prosedur');
writeln ('2. Program Faktorial dengan Function');
writeln;
write ('Masukan Pilihan Anda : '); readln (a);
if a=1 then
begin
writeln ('Yang anda pilih menggunakan program Procedure');
write ('Masukan Bilangan yang akan di Faktorialkan : ');readln (z);
Faktorial1 (1,z,c);
write ('Maka ',z,' Faktorial adalah : ',c);
readln;
end
else
if a=2 then
begin
writeln ('Yang anda pilih menggunakan program Function');
write ('Masukan Bilangan yang akan di Faktorialkan : ');readln (z);
write ('Maka ',z,' Faktorial adalah : ', Faktorial2 (1,z) );
readln;
end;
end.

Untuk Mendownload Klik Dibah Ini

Download FAKTORIA.PAS

Download FAKTORIA.EXE
Program Uas_Praktikum_B;
Uses Crt;

Procedure P_Pangkat (a:real; b:integer; hasil:real);
var x:integer;
Begin
For x:=1 to b do
Begin
hasil:=hasil*a;
end;
end;

Function Faktorial (a:integer):integer;
var fakt,y:integer;
begin
fakt:=1;
for y:=a downto 1 do
begin
fakt:=fakt*y;
end;
faktorial:=fakt;
end;

Function F_pangkat (a:real; b:integer): real;
Var hasil:real;
i:integer;
begin
i:=1;
hasil:=1;
while i<=b do begin hasil:=hasil*a; i:=i+1; end; f_pangkat:=hasil; end; Procedure Kualifikasi (HM: char;var kuat: string); begin case HM of 'A' : Kuat:='Memuaskan'; 'B' : Kuat:='Baik'; 'C' : Kuat:='Cukup'; 'D' : Kuat:='Kurang'; 'E' : Kuat:='Sangat Kurang'; end; end; Function HurufMutu (Angkamutu: integer): Char; Begin if Angkamutu >= 80 then
Hurufmutu:='A'
else
if angkamutu >= 60 then
Hurufmutu:='B'
else
if angkamutu >= 50 then
Hurufmutu:='C'
else
if angkamutu >= 40 then
Hurufmutu:='D'
else
Hurufmutu:='E';
End;

Function Sinus (Derajat:Integer):real;
Var rad,hasil:real;
z: integer;

Begin
rad:=derajat*pi/180;
hasil:=0;
For z:=1 to 7 do
begin
Hasil:= hasil+F_pangkat (-1,z+1)* F_pangkat (rad,(2*z)-1)/faktorial ((2*z)-1);
end;
Sinus:=Hasil;
End;


VAR
Nilai: Integer;
nDerajat: Integer;
nKualifikasi: String;
Begin
Clrscr;
nDerajat:=30;
Nilai:=50;
Writeln ('Nilai Sinus Dari ',nDerajat,' adalah ', sinus (nDerajat):2:2);
Writeln;
Writeln ('Jika Mahasiswa Mendapat Nilai ', Nilai);
Writeln ('Maka Dia Mendapat Huruf Mutu ', HurufMutu(Nilai));
Kualifikasi (Hurufmutu(Nilai),nKualifikasi);
Writeln ('Kualifikasi Mahasiswa tersebut: ', nKualifikasi);
readln;
End.

Silahkan Untuk Download Klik dibawah.

Download ARIP_B.PAS

Berawal sejak merekomendasikan seorang teman membeli sebuah laptop baru merk Compaq karena melihat price to performance nya yang lebih menguntungkan dibandingkan dengan merk lain. Akhirnya diputuskan untuk membeli Compaq CQ40-108TU yang berprocessor Intel Dual Core, dengan harga yang bisa dibilang lebih kompetitif membuat beberapa hal dalam paket penjualan terpaksa dipangkas. Ditiadakannya bundling sistem operasi lumayan menurunkan harga, bahkan hal yang krusial seperti drivers CD pun tidak ikut disertakan.
Saat akan meng-install sistem operasi Windows XP, ternyata driver yang ada di dalam CD MS Windows XP tidak dapat mengenal jenis hard drive yang terpasang pada laptop, hasilnya proses instalasi tidak dapat dilanjutkan. Kemudian mencoba menggunakan DVD Windows Vista, ternyata semua proses berjalan lancar dan normal. Saat telah selesai pun tidak perlu menginstall kembali driver-driver yang dibutuhkan, karena semua sudah dikenali dan terkonfigurasi dengan baik oleh MS Windows Vista, kecuali untuk WiFi dan web cam.
karena beberapa pertimbanga, pemilik menginginkan mesin nya di-install dengan MS Windows XP, cari-cari cara meng-install Windows XP pada mesin Compaq CQ40 ternyata membutuhkan remastering untuk memasukkan driver hard drive ke dalam CD instalasi MS Windows XP. Ahirnya coba-coba remastering berdasarkan tutorial yang diberikan. Berikut langkah-langkah nya :
  1. Kita membutuhkan sebuah PC atau laptop yang telah terinstall sistem operasi Windows di dalamnya. Download dan install aplikasi Microsoft .Net Framework dan nLite secara berurutan, dan download driver SATA AHCI yang diperlukan di alamat berikut :
  2. Siapkan CD Windows XP yang asli. Ingat, harus yang ASLI lengakap dengan product key nya.
  3. Jalankan nLite, kemudian klik Next, pada tampilan jendela yang baru kli Browse dan tentukan letak optical drive yang telah berisi CD Windows XP, kemudian tentukan folder pada PC atau laptop dimana nantinya kita akan menyimpan file instalasi Windows XP yang akan kita tambahkan driver SATA AHCI, kemudian klik Next.
  4. Karena kali ini kita hanya ingin mengintegrasikan driver SATA AHCI pada installer Windows XP, maka klik Next pada halaman yang tampil berikutnya. Setelah itu ada pilihan pengintegrasian, pilih Drivers, jika mau dapat juga mengintegrasikan service pack pada langkah ini.
    Dan     pilih Bootable ISO agar nantinya kita dapat boot melalui optical drive di laptop yang akan kita install Windows XP. Lanjutkan dengan klik Next jika sudah yakin pengintegrasian sudah benar.
  5. klik Insert, lalu pilih Multiple Driver Folder
    dan     kemudian pilihlah file SATA AHCI. Pilih driver yang sesuai dengan processor yang terdapat pada laptop yang ingin di-install. Untuk processor AMD pilih yang x86 klik Ok dan pilih OK lagi. Pilih Textmode driver dan kemudian pilih AMD SATA AHCI Controller-x86 platform dan klik OK. Lalu Next. Untuk processor Intel pada bagian Textmode driver pilih ICH9M-E/M SATA AHCI Controller, kemudian klik OK.
    Pengintegrasian driver SATA AHCI untuk processor Intel dan AMD tidak dapat digabung, jika dipakasa maka tetap tidak dapat meng-install Windows XP.
  6. Akan keluar konfirmasi apakah kita akan memulai proses pengintegrasian ato tidak, pilih saya Yes maka proses akan segera dimulai. Tunggu sampai proses selesai, kemudian klik Next.
  7. Proses selanjutnya adalah membuat file image yang nantinya akan kita jadikan CD. Setelah menentukan beberapa pengaturan klik pada tombol Make ISO dan tentukan lokasi dimana akan menyimpan image yang akan dibuat, klik Save maka proses pembuatan ISO akan berlangsung. Tunggu sampai proses selesai kemudian klik Finish.
  8. Saatnya burn ISO yang tadi dihasilkan menggunakan program favorite yang biasa digunakan, misalanya Nero Burning atau program lain. CD instalasi sudah dapat digunakan untuk menginstall Windows XP di Compaq CQ40 Series.
Tutorial ini telah dicoba dan dipraktekkan secara langsung dengan beberapa kali kegagalan karena coba-coba dan akhirnya menemukan penyebabnya. Perlu ditekankan bahwa untuk remastering, kita membutuhkan CD atau DVD Microsoft Windows original (asli) agar proses berjalan lancar.
Artikel ini didapat kari link
http://www.justyushi.web.id/2009/03/24/install-windows-xp-di-compaq-cq40-series/