program pascal

kumpulan contoh program pascal pdf free ebook download from adeab.staff.ipb.ac.id

Komentar

Posting Komentar

Postingan populer dari blog ini

Bahasa Sandi TNI

SANDI ANGKA 1-1 : Hubungi per telepon 1-4 : Ingin bicara diudara (langsung) 3-3 : Penerimaan sangat jelek/orang gila 3-3L : Kecelakaan korban luka 3-3M : Kecelakaan korban material 3-3K : Kecelakaan korban meninggal 3-3KA : Kecelakaan kereta api 3-4-K : Kecelakaan, korban meninggal, pelaku melarikandiri 4-4 : Penerimaan kurang jelas 5-5 : Penerimaan baik/sehat 8-4 : Tes pesawat/penerimaannya 8-6 : Dimengerti 8-7 : Disampaikan 8-8 : Ingin berjumpa langsung 10-2 : Posisi/keberadaan 10-8 : Menuju 2-8-5 : Pemerkosaan 3-3-8 : Pembunuhan 3-6-3 : Pencurian 3-6-5 : Perampokan 8-1-0 : Pembunuhan 8-1-1 : Hidup 8-1-2 : Berita agar diulangi (kurang jelas) 8-1-3 : Selamat bertugas 8-1-4 : Laporan/pembicaraan terlalu cepat 8-1-5 : Cuaca 8-1-6 : Jam/waktu 8-1-9 : Situasi SANDI HURUF Taruna : Berita Gelombang : Jam/waktu Semut : Pelajar Lalat : Mahasiswa Pangkalan : Rumah/kediaman Cangkulan : Kantor/ tempat kerja Gajah : Derek ...
Baca selengkapnya

SISTEM INFORMASI

                                                            PENGEMBANGAN                                                           SISTEM INFORMASI di  susun oleh Moh. Saepul Hakim Univ UNINDRA 201143500327 Pengembangan sistem merupakan penyusunan suatu sistem yang baru untuk menggantikan sistem yang lama secara keseluruhan atau memperbaiki sistem yang telah ada. 1. Tim Pengembangan Sistem Pengembangan s...
Baca selengkapnya

data karyawan

program pascal_karyawan; uses crt; tdata=^data; data:record nik:string; nama_karyawan:string; alamat:string; jabatan:string; jenis_kelamin:string; end; var         x:data;         y:integer; procedure jumlah; write('masukan nama_karyawan'); readln(y); End; procedure:input_data; var          i:integer; Begin          for i=1 to y do Begin write('masukan nik'); readln(A.nik); write('masukan nama_karyawan'); readln(A.nama_karyawan); write('masukan alamat'); readln(A.alamat); write('masukan jabatan'); readln(A.jabatan); write('masukan jenis_kelamin'); readln(A.jenis_kelamin); writeln('masukan nik',A.nik); writeln('masukan nama karyawan',A.nama_karyawan); writeln('masukan alamat',A.alamat); writeln('masukan jabatan',A.jabatan); writeln('masukan jenis kelamin',A.jenis_kelamin); readln(); End; End; Begin clrscr      ...
Baca selengkapnya