Jumat, 18 November 2011
Jadwal kuliyah ektensi TI angkatan 2009
Bagi teman teman yang tidak punya jdwal kuliyah ank TI Undar angkatan 2009 bisa di liat disini
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);
Langganan:
Postingan (Atom)