Jumat, 18 November 2011

Kamis, 17 November 2011

Besiswa Program S2 Kemenag

Bagi teman - teman guru yang sedang kulyah S2 di Universitas terakreditasi ada Berita menggembirakan, ada beasiswa S2 untuk lengkapnya Dowload Di Sini

Program pengut Angka

bagi Teman -,teman yang mau membuat program pengurut angka ini saya berikan contoh scripnya semoga bermanfaat
uses wincrt;
const NilaiMaksimum = 10000;
type Larik = array[1..NilaiMaksimum] of integer;
var
L : Larik;
batas : integer;
           procedure masukan (var L : Larik; n : integer);
           var
                 a : integer;
           begin
             for a := 1 to n do
                 begin
                    write('Masukkan Nilai Ke-' ,a,' : '); readln(L[a]);
                    end;
                 end;
           procedure pengurutan (var L : Larik; n : integer);
           var
                 i : integer;
                 k : integer;
                 temp : integer;
           begin
             for i := 1 to (n-1) do
               for k := n downto i+1 do
                 if L[k] < L[k-1] then
                 begin
                 temp := L[k];
                 L[k] := L[k-1];
                 L[k-1] := temp;
               end;
             end;
           procedure keluaran(var L : Larik; n : integer);
           var
                i : integer;
           begin
             for i := 1 to n do
                    write(L[i]:5);
             end;
begin
  writeln ('          PROGRAM PENGURUTAN DATA        ') ;
  writeln ('      oleh Miftahudin Anis (09590024)      ') ;
  writeln ('===========================================') ;
  write('Masukkan Jumlah Angka yang diinginkan : '); readln(batas);
  writeln ('===========================================') ;
  writeln;
  masukan(L,batas) ; writeln;
  pengurutan (L,batas); writeln;
  writeln ('========================') ;
  writeln('Hasil Pengurutan Larik :  ');
  writeln ('========================') ;
  keluaran(L,batas);
end.
Untuk file nya download di sini