app

ok

Komentar

Posting Komentar

Postingan populer dari blog ini

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