PROGRAM Data_barang;
USES CRT;
TYPE T_TOKO=RECORD
KD_BARANG:LONGINT;
JENIS_BARANG:STRING[30];
NM_BARANG:STRING[20];
ST_BARANG:INTEGER;
HARGA:LONGINT;
KONDISI:STRING[9];
END;
VAR TOKO:ARRAY[1..600]OF T_TOKO;
I,N:INTEGER;
PIL:CHAR;

PROCEDURE MASUK;
BEGIN
N:=0;
REPEAT
CLRSCR;
INC(N);
TEXTCOLOR(YELLOW);
WRITELN;
WRITELN(‘   PENGISIAN DATA TOKO KE : ‘,N);
WRITELN(‘   ==========================’);
WRITELN;
WITH TOKO[N] DO
BEGIN
WRITE(‘ KODE BARANG    : ‘);READLN(KD_BARANG);
WRITE(‘ JENIS BARANG   : ‘);READLN(JENIS_BARANG);
WRITE(‘ NAMA BARANG    : ‘);READLN(NM_BARANG);
WRITE(‘ STOCK BARANG   : ‘);READLN(ST_BARANG);
WRITE(‘ HARGA @        : ‘);READLN(HARGA);
WRITE(‘ KONDISI        : ‘);READLN(KONDISI);
END;
WRITELN;
WRITE(‘SELESAI TEKAN [y/Y] : ‘);PIL:=READKEY;
UNTIL ((PIL=’y’)OR(PIL=’Y’));
END;

PROCEDURE LAPORAN;
BEGIN
WRITELN;
TEXTCOLOR(YELLOW);
WRITELN(‘——–============= DAFTAR HARGA BARANG TOKO MULYA BARU =============——-‘);
WRITELN(‘==============================================================================’);
WRITELN;
WRITELN(‘==============================================================================’);
WRITELN(‘NO.| KD_BARANG | JENIS_BARANG |    NM_BARANG   | ST_BARANG |  HARGA | KONDISI ‘);
WRITELN(‘==============================================================================’);
FOR I:=1 TO N DO
BEGIN
WITH TOKO[I] DO
BEGIN
WRITELN(‘ ‘,I:2,’|’,KD_BARANG:11,’|’,JENIS_BARANG:14,’|’,NM_BARANG:16,’|’,ST_BARANG:11,’|’,HARGA:8,’|’,KONDISI);
END;
END;
WRITELN(‘==============================================================================’);
END;

PROCEDURE PEMBUAT;
BEGIN
CLRSCR;
WRITELN;WRITELN;
TEXTCOLOR(white);
WRITELN(‘   —-================*================—-‘);
WRITELN;
WRITELN(‘   *****************  BY  ******************’);
WRITELN(‘   ************  RIDWAN MEI R  *************’);
WRITELN(‘   ************  10111100023   *************’);
WRITELN(‘   **************  (C) 2011  ***************’);
WRITELN;
WRITELN(‘   —-================*================—-‘);
READKEY;
END;

PROCEDURE KELUAR;
BEGIN
CLRSCR;
TEXTCOLOR(LightBLUE);
WRITELN;WRITELN;
WRITELN(‘   =========================================’);
WRITELN;
WRITELN(‘   TERIMAKASIH TELAH MENGGUNAKAN PROGRAM INI’);
WRITELN;
WRITELN(‘   =========================================’);
READKEY;
END;

PROCEDURE PROG;
BEGIN
CLRSCR;
TEXTCOLOR(YELLOW);
WRITELN;
WRITELN(‘ TENTANG PROGRAM’);
WRITELN(‘ —————‘);
WRITELN;
WRITE(‘ Program ini dirancang untuk keperluan pendataan warga di Dusun/desa anda. ‘);
WRITE(‘ Selain itu sangat mudah untuk dioperasikan karena sangat sederhana. Program ini sangat ringan, ‘);
WRITE(‘ sehingga dengan komputer yang sangat sederhana dapat menjalankan program ini dengan lancar.’);
WRITE(‘ Semoga dapat membantu pembukuan toko anda. Selamat mencoba…. ‘);
READKEY;
END;

FUNCTION MENU:CHAR;
VAR XX:CHAR;
BEGIN
CLRSCR;
TEXTCOLOR(YELLOW);
WRITELN;
WRITELN(‘   PROGRAM PENDATAAN BARANG TOKO ‘);
WRITELN(‘   ============================= ‘);
WRITELN;WRITELN;
WRITELN(‘   —————————– ‘);
WRITELN(‘   |     <<  MENU UTAMA  >>    | ‘);
WRITELN(‘   —————————– ‘);
WRITELN(‘   |                           | ‘);
WRITELN(‘   | 1. MASUKKAN DATA BARANG   | ‘);
WRITELN(‘   | 2. LAPORAN DATA BARANG    | ‘);
WRITELN(‘   | 3. TENTANG PROGRAM        | ‘);
WRITELN(‘   | 4. PEMBUAT                | ‘);
WRITELN(‘   | 5. KELUAR                 | ‘);
WRITELN(‘   |                           | ‘);
WRITELN(‘   —————————– ‘);
WRITELN;
WRITE(‘   PILIH SALAH SATU [1..5] :’);
XX:=READKEY;
MENU:=XX;
END;

BEGIN
REPEAT
PIL:=MENU;
CASE PIL OF
‘1’:BEGIN
CLRSCR;
MASUK;
READKEY;
END;
‘2’:BEGIN
CLRSCR;
LAPORAN;
READKEY;
END;
‘3’:prog;
‘4’:PEMBUAT;
‘5’:KELUAR;
ELSE
BEGIN
CLRSCR;
TEXTCOLOR(LightRed);
WRITELN;WRITELN;
WRITELN(‘      MAAF PILIHAN ANDA TIDAK ADA !!!’);
READKEY;
END;
END;
UNTIL PIL=’5′;
END.

Itu tadi program dari pascal