info seputar laptop dan komputer

Source Code Hapus Data dalam Pascal - Hapus data dalam jadwal berikut berupa hapus data dengan memakai metode record. Penghapusan data dalam record artinya dalam menghapus tidak terlebih dulu di cari data tersebut menurut ID, hanya berupa pembatalan data menurut batas record. Berikut ini source code hapus data memakai compiler dev-pascal : program hapus_data; uses crt; type    mhs = record       npm: string[7];       nama: string[25];       nilai: real;    end; var    fmhs: file of mhs;    rmhs: mhs;    nourut,i,jml: integer;    nocari: string[7];    ketemu: boolean;    lagi,ya: char;    begin      assign(fmhs,'mhs.dat');      reset(fmhs);      lagi:= 'Y';      while upcase(lagi)='Y' do      begin  ...

Source Code CRUD dalam Pascal - Setelah membahas CRUD dalam pascal wacana Data Mahasiswa , maka jadilah suatu Sistem Informasi Data Mahasiswa dari source code yang terpisah. Menyatukan isyarat kegiatan dalam pascal memakai perintah Procedure , berikut kegiatan lengkap Data Mahasiswa dalam Software House kali ini. Berikut ini source code CRUD, kegiatan berikut memakai compiler dev-pascal : uses crt; var    pilih: byte; procedure Input_data; type  mhs=record   npm: string[7];   nama: string[25];   nilai: real;  end; var  fmhs: file of mhs;  rmhs: mhs;  lagi: char; begin  assign(fmhs,'mhs.dat');  rewrite(fmhs);  lagi:='y';  while upcase(lagi)='Y' do  begin  clrscr;   with rmhs do   begin    gotoxy(5,6)  ;write('Nomor Pokok Mahasiswa : ');    gotoxy(5,8)  ;write('Nama Mahasiswa        : ');    gotoxy(5,10)...

Source Code Sewa Hotel dalam Pascal - Program berikut membahas wacana sistem input data sewa hotel. Program ini tidak tersimpan ke dalam database, hanya berupa proses yang menghitung banyak anak dan kemudahan yang diinginkan. Berikut ini source code sewa hotel memakai compiler dev-pascal : uses crt;  type sewa = record   nama: string[25];   bnyk_anak: byte;   hrg_sewa: longint;   lm_sewa: byte;   nofas_tam: byte;   nmafas_tam: string[10];   hrgfas_tam: longint;   tot_bayar: longint; end; var  s: sewa;  lagi: char; begin clrscr;  lagi:= 'y';  while upcase(lagi) = 'Y' do  begin  clrscr;   gotoxy(32,2); write('INPUT DATA PENYEWA');   gotoxy(3,3) ; write('============================================================================');   gotoxy(3,5) ; write('Nama Penyewa          : '); readln(s.nama);   gotoxy(3,7) ; write('Banyak Anak...

Source Code Data Pegawai dalam Pascal - Program berikut berfokus pada penghitungan honor karyawan menurut pendidikan terakhir dan usang bekerja. Berikut ini source code data pegawai memakai compiler dev-pascal : uses crt; type pkj=record    nama: string[25];    lama_kerja: integer;    pendidikan: string[3];    golongan: char;    jabatan: string[20];    gaji_pokok: real;    tunjangan: real;    total_gaji: real; end; var    p: pkj;    lagi: char; begin clrscr;    lagi:='y';    while upcase(lagi)='Y' do    begin    clrscr;       gotoxy(30,2); write('INPUT DATA PEKERJA');       gotoxy(3,3) ; write('____________________________________________________________________________');       gotoxy(3,5) ; write('Nama          ...

Source Code Stok Barang dalam Pascal - Software house kali ini membahas ihwal Aplikasi Stok Barang DVD dan Game PC yang sudah ada CRUD. Penyimpanan data dalam file " brg.dat " dan menerapkan konsep Procedure dalam membagi path tiap program. Berikut ini source code stok barang memakai compiler dev-pascal : Program PersediaanBarang; uses crt; type  brg = record   nama_games: string[12];   kode_games: string[5];   satuan: string[6];   byk_brg: byte;   tam_brg: integer;   kur_brg: integer;   h_beli: real;   h_jual: real;   tot_beli: real;   tot_jual: real;  end; var  fb: file of brg;  rb: brg;  lagi,ya: char;  pilih,i: byte;  nourut,jml: integer;  kodecari: string[3];  ketemu: boolean; Procedure Tampil; begin for i:= 1 to 23 do  begin   delay(120);   gotoxy(29,i); write ('    ASSALAMMUALAIKUM');   gotoxy(29,i-1); write ('   ...

Source Code Nilai Mahasiswa dalam Pascal - Program ini hanya membahas perihal perhitungan nilai IP setiap Mata Kuliah, namun untuk Nilai IPKnya sendiri dapat di modifikasi lebih lanjut. Berikut ini source code nilai mahasiswa memakai compiler dev-pascal : uses crt; var   npm: string[7];   nama: string[25];   nilai_absen: real;   nilai_tugas: real;   nilai_uts: real;   nilai_uas: real;   nilai_akhir: real;   nilai_mutu: char;   nilai_IP: integer;   jumlah_nilai: integer;   lagi: char; begin clrscr;   lagi:='y';   while upcase(lagi)='Y' do   begin   clrscr;      gotoxy(32,2)  ; write('DATA NILAI MAHASISWA');      gotoxy(3,3)   ; write('___________________________________________________________________________');      gotoxy(27,5)  ; write('NPM            : '); readln(n...