Selasa, 04 Maret 2008

Jadwal Ujian Wijaya Kusuma

J A D W A L m U J I A N
NIMi : 07.50.051
Nama : Wijaya Kusuma

  1. MPK02 Pendidikan Agama Senin 03 Maret 2008 08.30 - 10.00 Kelas D

  2. MKK17 Manajemen Umum Selasa 04 Maret 2008 19.40 - 21.10 Kelas D

  3. MKK07 Logika dan Algoritma Rabu 05 Maret 2008 18.00 - 19.30 Kelas C

  4. MKK03 Kalkulus 1 Kamis 06 Maret 2008 18.00 - 19.30 Kelas B

  5. MKB11 Pengelolaan Instalasi Komputer Sabtu 08 Maret 2008 18.00 - 19.30 Lab Instalasi

  6. MKK14 Pengantar Teknologi Informasi Senin 10 Maret 2008 18.00 - 19.30 Kelas D

  7. 7 MKB06 Sistem Basis Data Selasa 11 Maret 2008 19.40 - 21.10 Kelas C

  8. MKK01 Algoritma dan Pemrograman 1 Rabu 12 Maret 2008 19.40 - 21.10 Lab C

  9. MKB05 Otomasi Perkantoran Kamis 13 Maret 2008 19.40 - 21.10 Lab D

Tugas Logika dan algoritma

Buat Temen2 PPKIa yang mendapatkan Tugas Bapak Budi, Silahkan Download Pseudocode di bawah ini,pelajari dan dicoba,dilarang membajak...

Ttpe tmhs
a(1) integer 2
a(2) integer 2
a(3) integer 2
a(4) integer 2

Dim fmhs as tmhs
open "siswa.dat" for random as # 1 Len = Len(fmhs)
Recno ← LOF (1)/Len(fmhs)
do
urut ← "ya"
i←1
do While i<(4-1)
J←i+1
if not a(i) <(j) then
T← A(i)
a(i)←a(i)
a(j)← T
urut ← "tidak"
end if
i←i+1
loop


loop while urut ="tidak"
i←1
do while i<=4
cetak a(i)
i←i+1
loop
close #1



by ; Wijaya Kusuma
Dinas Kependudukan dan catatan Sipil Kota Tarakan