Mesran

Hanya ingin berbagi kebaikan dan mendapatkan kebaikan yang lain.

Latihan File : File Produk.DAT

Berikut merupakan file latihan pembuatan file yang mana data data yang kita inputkan akan tersimpan pada file ini produk.dat.


Berikut listing programnya :

uses crt ;
type Produk = Record
     Kode  : String[3] ;
     Nama  : String[30] ;
     Harga : Longint ;
     End;
Var
   fPro : File of Produk ;
   rPro : Produk ;
   lg   : Char ;

procedure openproduk ;
begin
     Assign(fpro, 'c:\produk.dat') ;
     {$I-} Reset(fpro) ;
     {$I+}if IOResult<>0 then Rewrite(fpro) ;
end;

begin
     OpenProduk ;
     Repeat
           Clrscr ;
           GotoXY(20,5) ; Write('Input Data Produk')  ;
           GotoXY(20,6) ; Write('-----------------------------')  ;
           GotoXY(20,7) ; Write('Kode  : ')  ; Readln(rpro.Kode) ;
           GotoXY(20,8) ; Write('Nama  : ')  ; Readln(rpro.Nama) ;
           GotoXY(20,9) ; Write('Harga : ')  ; Readln(rpro.Harga) ;
           GotoXY(20,10); Write('-----------------------------')  ;
           GotoXY(20,11); Write('Input Lagi [Y/T] : ')  ; Readln(lg) ;
           Seek(fpro, Filesize(fpro)) ;
           write(fPro, rpro) ;
     Until Upcase(Lg)='T' ;
     close(fPro) ;
end.
Advertisements

Filed under: Pemrograman Pascal,

One Response

  1. […] jaman sekarang. Karna Turbo Pascal 7 itu dibuat masih jamannya 486 lah (:D heheh itu yang saya kenal dulu).  Oleh sebab itu untuk komputer komputer saat ini sering harus di Patch […]

Terima kasih telah memberikan komentar anda.

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

Archives Per Tahun

%d bloggers like this: