program pascal aq


program mahasiswa;
uses wincrt;
TYPE
recmhs=record
nama:string;
end;

Var
JumlahBayar:Array[1..100] Of Integer;
DataKei,BanyakDataKei,A,B,C,jum_brg:Integer;
lagi:Char;
Total_bayar:Array[1..10] of Real;
bayar:real;
Ulang:boolean;
Const
KodeKelas:Array [1..3] Of Integer=(1,2,3);
Kelas: array [1..3] of string [20]=('BAHASA INGGRIS','BAHASA PERANCIS','BAHASA JAPAN');
BiayaPendaftaran: array [1..3] of real =(100000,150000,200000);
BiayaKursus: array [1..3] of real = (1000000,1500000,2000000);


PROCEDURE TAMPILAN_AWAL ;
begin
clrscr;
gotoxy(22,1);writeln('===========================================');
gotoxy(33,2);writeln('NURIAH EVA YANTI W.D');
gotoxy(36,3);WRITELN('C0955201008');
gotoxy(34,4);writeln('TEKNIK INFORMATIKA ');
gotoxy(22,5);writeln('===========================================');

WRITELN;
gotoxy(22,10);writeln('*******************************************');
gotoxy(28,11);writeln('MET DATANG DI PROGRAM PENGISIAN ');
gotoxy(33,12);writeln('@ DATA MAHASISWA @');
gotoxy(33,13);writeln('STMIK PALANGKARYA ');
gotoxy(22,14);writeln('*******************************************');
gotoxy(10,18);writeln(' TEKAN ENTER KE PROGRAM UTAMA: ');
READLN;
END;

PROCEDURE MENU (VAR PIL:INTEGER);

begin
clrscr;
gotoxy(35,1);writeln('Data Harga Barang');
gotoxy(22,2);writeln('===========================================');
gotoxy(33,3);writeln('NURIAH EVA YANTI W.D');
gotoxy(33,4);WRITELN('C0955201008');
gotoxy(22,5);writeln('===========================================');
WRITELN;
WRITELN;
WRITELN;
gotoxy(10,9);writeln('============================================');
gotoxy(19,10);writeln('** MENU PILIHAN PROGRAM **');
gotoxy(10,11);writeln('============================================');
gotoxy(14,12);writeln(' 1.ISI DATA MAHASISWA');
gotoxy(14,13);writeln(' 2.TABEL MAHASISWA ');
gotoxy(14,14);writeln(' 3.SELESAI');
gotoxy(10,15);writeln('============================================');
gotoxy(19,16);write(' PILIHAN ANDA (1-3) = ');
readln(PIL);
GOTOXY(10,17);WRITELN('============================================');
end;


PROCEDURE ISI_MAHASISWA;
VAR
LAGI_BRG:CHAR;

Begin

Bayar:=0;
repeat
ClrScr;
DataKei:=DataKei+1;
gotoxy(22,1);writeln('===========================================');
gotoxy(33,2);writeln('NURIAH EVA YANTI W.D');
gotoxy(36,3);WRITELN('C0955201008');
gotoxy(34,4);writeln('TEKNIK INFORMATIKA ');
gotoxy(22,5);writeln('===========================================');
writeln;
WRITELN(' STMIK PALNGKARAYA');
WriteLn(' *******************************************************************');
WriteLn(' |Kode KELAS | KELAS | BIAYA PENDAFTARN | BIAYA KURSUS |');
WriteLn(' *******************************************************************');
WriteLn(' | 1 | BAHASA INGGRIS | 100.000 | 1000.000 |');
WriteLn(' | 2 | BAHASA PERANCIS | 150.000 | 1500.000 |');
WriteLn(' | 3 | BAHASA JAPAN | 200.000 | 2000.000 |');
WriteLn(' *******************************************************************');

WRITELN;
Write(' MASUKKAN KODE KELAS YANG AKAN ANDA PILIH.? ');
ReadLn(KodeKelas[datakei]);

If KodeKelas[datakei]=1 Then
begin
WriteLn(' KELAS = ',Kelas[1]);
end
else
If KodeKelas[datakei]=2 Then
begin
WriteLn(' KELAS = ',Kelas[2]);
end
else
If KodeKelas[datakei]=3 Then
begin
WriteLn(' KELAS = ',Kelas[3]);
end
else
writeln(' ****** AnDa SaLaH MeMasuKkan KoDe ******');
WriteLn(' BIAYA PENDAFTARAN= Rp.',BiayaPendaftaran[KodeKelas[datakei]]:5:0);
Writeln (' BIAYA KURSUS PERBULAN = Rp.',BiayaKursus[KodeKelas[datakei]]:5:0);
Total_bayar[datakei]:=BiayaPendaftaran[KodeKelas[datakei]]+BiayaKursus[KodeKelas[datakei]];
writeln(' TOTAL BAYAR = RP.',total_bayar[datakei]:5:0);
WriteLn;
Write(' Apakah Anda ingin mengisi data lagi tekan Y,tekan Sembarang untuk keluar = ) ? ');
ReadLn(lagi);

Until UpCase(lagi)<>'Y';
END;

PROCEDURE LAPORAN;
VAR
J:INTEGER; LIHAT_LAGI:CHAR;
Begin
ClrScr;
BanyakDataKei:=DataKei;
For DataKei:=1 to BanyakDataKei Do
Bayar:=Bayar+Total_bayar[DataKei];
For DataKei:=1 to BanyakDataKei Do
WriteLn(' TOTAL BAYAR ',Kelas[KodeKelas[DataKei]],' = Rp.' ,Total_bayar[DataKei]:2:0);
WriteLn(' *****************************************');
WriteLn(' TOTAL SELURUHNYA : Rp.',Bayar:2:0);
WriteLn(' *****************************************');
WriteLn;
writeln(' =============================================================================');
writeln(' TABEL DATA CALON MAHASISWA BARU');
writeln(' STMIK PALANGKRAYA');
writeln(' JLN.KINIBALU NO.99 PALANGKARAYA KALTENG ');
WRITELN(' ==============================================================================');
writeln(' KODE I KELAS I BIAYA PENDAFTARAN I BIAYA KURSUS I TOTAL BAYAR');
WRITELN(' ==============================================================================');
For DataKei:=1 to BanyakDataKei Do

WriteLn(' ',KodeKelas[DataKei],' ',Kelas[KodeKelas[DataKei]],' Rp. ',BiayaPendaftaran[KodeKelas[DataKei]]:5:0,
' Rp.',BiayaKursus[KodeKelas[DataKei]]:5:0,' Rp.',Total_bayar[DataKei]:2:0);
WriteLn(' =============================================================================');
WRITELN;
WriteLn(' :: => Total Pembayaran : Rp.',Bayar:2:0,' <= ::');
writeln(' =============================================================================');
writeln(' Apakah Anda ingin mengisi Data lagi tekan Y,tekan Sembarang untuk keluar =');READLN(LIHAT_LAGI);
CASE LIHAT_LAGI OF
'Y':ISI_MAHASISWA;
'T':EXIT;
END;
end;

procedure tampilan_akhir;
Begin
clrscr;
Gotoxy(29,1);Writeln(' MATA KULIAH PEMOGRAMAN ');
Gotoxy(27,2);Writeln('NAMA : NURIAH EVAYANTI WIRADINATA');
Gotoxy(27,3);Writeln('NIM : C0955201008 ');
Gotoxy(27,4);Writeln('JURUSAN : TEKNIK INFORMATIKA ');
Gotoxy(27,5);Writeln('KELAS : A ');
Gotoxy(27,6);writeln('KELOMPOK: 1 ');
Gotoxy(18,9);writeln(' ************************************************');
Gotoxy(31,10);Writeln('DATA CALON MAHASISWA BARU');
Gotoxy(34,11);Writeln('STMIK PALANGKRAYA');
Gotoxy(23,12);Writeln(' JLN.KINIBALU NO.99 PALANGKARAYA KALTENG');
Gotoxy(18,13);writeln('*************************************************');
Gotoxy(35,17);writeln('TERIMA KASIH. . . . . ');
Gotoxy(18,18);WRITELN('PENGISIAN DATA CALON MAHASISWA BARU TELAH SELESAI');

READLN;
End;

var pilih:integer;
begin
ulang:=true;
DataKei:=0;
while ulang do
begin
clrscr;
TAMPILAN_AWAL;
menu (pilih);

case pilih of
1:BEGIN
ISI_MAHASISWA;
jum_brg:=DataKei;

end;
2: LAPORAN;

3: tampilan_akhir;
end;
end;
end. Program harga_barang;
Uses WinCrt;
Var
JumlahBeli:Array[1..100] Of Integer;
DataKei,BanyakDataKei:Integer;
lagi:Char;
Total_bayar:Array[1..10] of Real;
bayar:real;
Const
NomorBarang:Array [1..10] Of Integer=(1,2,3,
4,5,6,7,8,9,10);
NamaBarang:Array [1..10] Of String[10]=('NOKIA','NEXSIAN','SAMSUNG',
'MOTOROLA','SIEMENS','BLACKBERI','H_TACK','K_TOCKS','LG','PANASON');
HargaSatuan:Array [1..10] Of Real =(980000,750000,300000,
990000,950000,400000,300000,200000,500000,790000);

begin
clrscr;
gotoxy(22,1);writeln('===========================================');
gotoxy(33,2);writeln('NURIAH EVA YANTI W.D');
gotoxy(36,3);WRITELN('C0955201008');
gotoxy(34,4);writeln('TEKNIK INFORMATIKA ');
gotoxy(22,5);writeln('===========================================');

WRITELN;
gotoxy(22,10);writeln('*******************************************');
gotoxy(28,11);writeln('MET DATANG DI PROGRAM PENGISIAN ');
gotoxy(29,12);writeln('@ DATA HARGA DAN NAMA BARANG @');
gotoxy(32,13);writeln('COUNTERS PORORIO FUKADA ');
gotoxy(22,14);writeln('*******************************************');
gotoxy(10,18);writeln(' TEKAN ENTER KE PROGRAM UTAMA: ');
READLN;

Begin
datakei:=0;
Bayar:=0;
repeat
ClrScr;
DataKei:=DataKei+1;
gotoxy(22,1);writeln('===========================================');
gotoxy(33,2);writeln('NURIAH EVA YANTI W.D');
gotoxy(36,3);WRITELN('C0955201008');
gotoxy(34,4);writeln('TEKNIK INFORMATIKA ');
gotoxy(22,5);writeln('===========================================');
writeln;
WRITELN(' Counters Nevadya Pororio Fukada');
WriteLn(' *********************************************');
WriteLn(' |Kode barang | Nama barang | Harga satuan |');
WriteLn(' *********************************************');
WriteLn(' | 1 | NOKIA | Rp.980.000 |');
WriteLn(' | 2 | NEXSIAN | Rp.750.000 |');
WriteLn(' | 3 | SAMSUNG | Rp.300.000 |');
WriteLn(' | 4 | MOTOROLA | Rp.990.000 |');
WriteLn(' | 5 | SIEMENS | Rp.950.000 |');
WriteLn(' | 6 | BLACKBERI | Rp.400.000 |');
WriteLn(' | 7 | H_TACK | Rp.300.000 |');
WriteLn(' | 8 | K_TOCKS | Rp.200.000 |');
WriteLn(' | 9 | LG | Rp.500.000 |');
WriteLn(' | 10 | PANASON | Rp.790.000 |');
WriteLn(' *********************************************');
WRITELN;
Write(' MASUKKAN KODE BARANG YANG AKAN ANDA BELI.? ');
ReadLn(NomorBarang[datakei]);

If NomorBarang[datakei]=1 Then
begin
WriteLn(' NAMA BARANG = ',NamaBarang[1]);
end
else
If NomorBarang[datakei]=2 Then
begin
WriteLn(' NAMA BARANG = ',NamaBarang[2]);
end
else
If NomorBarang[datakei]=3 Then
begin
WriteLn(' NAMA BARANG = ',NamaBarang[3]);
end
else
If NomorBarang[datakei]=4 Then
begin
WriteLn(' NAMA BARANG = ',NamaBarang[4]);
end
else
If NomorBarang[datakei]=5 Then
begin
WriteLn(' NAMA BARANG = ',NamaBarang[5]);
end
else
If NomorBarang[datakei]=6 Then
begin
WriteLn(' NAMA BARANG= ',NamaBarang[6]);
end
else
If NomorBarang[datakei]=7 Then
begin
WriteLn(' NAMA BARANG = ',NamaBarang[7]);
end
else
If NomorBarang[datakei]=8 Then
begin
WriteLn(' NAMA BARANG = ',NamaBarang[8]);
end
else
If NomorBarang[datakei]=9 Then
begin
WriteLn(' NAMA BARANG = ',NamaBarang[9]);
end
else
If NomorBarang[datakei]=10 Then
begin
WriteLn(' NAMA BARANG = ',NamaBarang[10]);
end
else
writeln(' ****** AnDa SaLaH MeMasuKkan KoDe ******');
WriteLn(' HARGA SATUAN = Rp.',HargaSatuan[NomorBarang[datakei]]:5:0);
Write (' JUMLAH BELI = ');ReadLn(jumlahbeli[datakei]);
Total_bayar[datakei]:=HargaSatuan[NomorBarang[datakei]] *jumlahbeli[datakei];
writeln(' TOTAL BAYAR = RP.',total_bayar[datakei]:5:0);
WriteLn;
Write(' Apakah Anda ingin mengisi lagi(Y/T) ? ');ReadLn(lagi);

Until UpCase(lagi)<>'Y';
Begin
ClrScr;
BanyakDataKei:=DataKei;
For DataKei:=1 to BanyakDataKei Do
Bayar:=Bayar+Total_bayar[DataKei];
For DataKei:=1 to BanyakDataKei Do
WriteLn(' TOTAL BELANJA ',NamaBarang[NomorBarang[DataKei]],' = Rp.' ,Total_bayar[DataKei]:2:0);
WriteLn(' *****************************************');
WriteLn(' TOTAL SELURUHNYA : Rp.',Bayar:2:0);
WriteLn(' *****************************************');
WriteLn;
writeln(' =============================================================================');
writeln(' TABEL DATA DAN HARGA BARANG');
writeln(' COUNTERS NEVADYA PORORIO');
writeln(' JLN.MENDAWAI NO.99 PALANGKARAYA KALTENG ');
WRITELN(' =============================================================================');
writeln(' KODE BARANG I NAMA BARANG I HARGA SATUAN I JUMLAH BELI I TOTAL BAYAR ');
WRITELN(' =============================================================================');
For DataKei:=1 to BanyakDataKei Do

WriteLn(' ',NomorBarang[DataKei],' ',NamaBarang[NomorBarang[DataKei]],' Rp.',
HargaSatuan[NomorBarang[DataKei]]:5:0,' ',JumlahBeli[DataKei],' ','Rp.',Total_bayar[DataKei]:2:0);
WriteLn(' =============================================================================');
WRITELN;
WriteLn(' :: => Total Pembayaran : Rp.',Bayar:2:0,' <= ::');
End;
end;

BEGIN
WRITELN;
WRITELN;
WRITELN(' TEKAN ENTER UNTUK KELUAR');
readln;

Begin
clrscr;
Gotoxy(29,1);Writeln(' MATA KULIAH PEMOGRAMAN ');
Gotoxy(27,2);Writeln('NAMA : NURIAH EVAYANTI WIRADINATA');
Gotoxy(27,3);Writeln('NIM : C0955201008 ');
Gotoxy(27,4);Writeln('JURUSAN : TEKNIK INFORMATIKA ');
Gotoxy(27,5);Writeln('KELAS : A ');
Gotoxy(27,6);writeln('KELOMPOK: 1 ');
Gotoxy(18,9);writeln(' ************************************************');
Gotoxy(33,10);Writeln('DATA DAN HARGA BARANG');
Gotoxy(29,11);Writeln('COUNTERS NEVADYA PORORIO FUKADA');
Gotoxy(23,12);Writeln(' JLN.MENDAWAI NO.99 PALANGKARAYA KALTENG');
Gotoxy(18,13);writeln('*************************************************');
Gotoxy(35,17);writeln('TERIMA KASIH. . . . . ');
Gotoxy(18,18);WRITELN('PENGISIAN DATA DAN HARGA BARANG TELAH SELESAI');
exit;
End;
end;
END.


program mahasiswa;
uses wincrt;
TYPE
recmhs=record
nama:string;
end;

Var
JumlahBayar:Array[1..100] Of Integer;
DataKei,BanyakDataKei,A,B,C,jum_brg:Integer;
lagi:Char;
Total_bayar:Array[1..10] of Real;
bayar:real;
Ulang:boolean;
Const
KodeKelas:Array [1..3] Of Integer=(1,2,3);
Kelas: array [1..3] of string [20]=('BAHASA INGGRIS','BAHASA PERANCIS','BAHASA JAPAN');
BiayaPendaftaran: array [1..3] of real =(100000,150000,200000);
BiayaKursus: array [1..3] of real = (1000000,1500000,2000000);

PROCEDURE TAMPILAN_AWAL;
begin
clrscr;
gotoxy(22,1);writeln('===========================================');
gotoxy(33,2);writeln('NURIAH EVA YANTI W.D');
gotoxy(36,3);WRITELN('C0955201008');
gotoxy(34,4);writeln('TEKNIK INFORMATIKA ');
gotoxy(22,5);writeln('===========================================');

WRITELN;
gotoxy(22,10);writeln('*******************************************');
gotoxy(28,11);writeln('MET DATANG DI PROGRAM PENGISIAN ');
gotoxy(33,12);writeln('@ DATA MAHASISWA @');
gotoxy(33,13);writeln('STMIK PALANGKARYA ');
gotoxy(22,14);writeln('*******************************************');
gotoxy(10,18);writeln(' TEKAN ENTER UNTUK KE MENU: ');
READLN;
END;

PROCEDURE MENU (VAR PIL:INTEGER);
begin
clrscr;
gotoxy(22,1);writeln('===========================================');
gotoxy(33,2);writeln('NURIAH EVA YANTI W.D');
gotoxy(36,3);WRITELN('C0955201008');
gotoxy(34,4);writeln('TEKNIK INFORMATIKA ');
gotoxy(22,5);writeln('===========================================');
writeln;
WRITELN;
WRITELN;
WRITELN;
gotoxy(10,9);writeln('============================================');
gotoxy(19,10);writeln('** MENU PILIHAN PROGRAM **');
gotoxy(10,11);writeln('============================================');
gotoxy(14,12);writeln(' 1.TAMPILAN AWAL ');
gotoxy(14,13);writeln(' 2.ISI DATA MAHASISWA');
gotoxy(14,14);writeln(' 3.TABEL MAHASISWA ');
gotoxy(14,15);writeln(' 4.SELESAI');
gotoxy(10,16);writeln('============================================');
gotoxy(19,17);write(' PILIHAN ANDA (1-4) = ');
readln(PIL);
GOTOXY(10,18);WRITELN('============================================');
end;


PROCEDURE ISI_MAHASISWA;
VAR
LAGI_BRG:CHAR;

Begin

Bayar:=0;
repeat
ClrScr;
DataKei:=DataKei+1;
gotoxy(22,1);writeln('===========================================');
gotoxy(33,2);writeln('NURIAH EVA YANTI W.D');
gotoxy(36,3);WRITELN('C0955201008');
gotoxy(34,4);writeln('TEKNIK INFORMATIKA ');
gotoxy(22,5);writeln('===========================================');
writeln;
WRITELN(' STMIK PALNGKARAYA');
WriteLn(' *******************************************************************');
WriteLn(' |Kode KELAS | KELAS | BIAYA PENDAFTARN | BIAYA KURSUS |');
WriteLn(' *******************************************************************');
WriteLn(' | 1 | BAHASA INGGRIS | 100.000 | 1000.000 |');
WriteLn(' | 2 | BAHASA PERANCIS | 150.000 | 1500.000 |');
WriteLn(' | 3 | BAHASA JAPAN | 200.000 | 2000.000 |');
WriteLn(' *******************************************************************');

WRITELN;
Write(' MASUKKAN KODE KELAS YANG AKAN ANDA PILIH.? ');
ReadLn(KodeKelas[datakei]);

If KodeKelas[datakei]=1 Then
begin
WriteLn(' KELAS = ',Kelas[1]);
end
else
If KodeKelas[datakei]=2 Then
begin
WriteLn(' KELAS = ',Kelas[2]);
end
else
If KodeKelas[datakei]=3 Then
begin
WriteLn(' KELAS = ',Kelas[3]);
end
else
writeln(' ****** AnDa SaLaH MeMasuKkan KoDe ******');
WriteLn(' BIAYA PENDAFTARAN= Rp.',BiayaPendaftaran[KodeKelas[datakei]]:5:0);
Writeln (' BIAYA KURSUS PERBULAN = Rp.',BiayaKursus[KodeKelas[datakei]]:5:0);
Total_bayar[datakei]:=BiayaPendaftaran[KodeKelas[datakei]]+BiayaKursus[KodeKelas[datakei]];
writeln(' TOTAL BAYAR = RP.',total_bayar[datakei]:5:0);
WriteLn;
Write(' Apakah Anda ingin mengisi data lagi tekan Y,tekan Sembarang untuk keluar) ? ');
ReadLn(lagi);

Until UpCase(lagi)<>'Y';
END;

PROCEDURE LAPORAN;
VAR
J:INTEGER; LIHAT_LAGI:CHAR;
Begin
ClrScr;
BanyakDataKei:=DataKei;
For DataKei:=1 to BanyakDataKei Do
Bayar:=Bayar+Total_bayar[DataKei];
For DataKei:=1 to BanyakDataKei Do
WriteLn(' TOTAL BAYAR ',Kelas[KodeKelas[DataKei]],' = Rp.' ,Total_bayar[DataKei]:2:0);
WriteLn(' *****************************************');
WriteLn(' TOTAL SELURUHNYA : Rp.',Bayar:2:0);
WriteLn(' *****************************************');
WriteLn;
writeln(' =============================================================================');
writeln(' TABEL DATA MAHASISWA');
writeln(' STMIK PALANGKRAYA');
writeln(' JLN.KINIBALU NO.99 PALANGKARAYA KALTENG ');
WRITELN(' ==============================================================================');
writeln(' KODE I KELAS I BIAYA PENDAFTARAN I BIAYA KURSUS I TOTAL BAYAR');
WRITELN(' ==============================================================================');
For DataKei:=1 to BanyakDataKei Do

WriteLn(' ',KodeKelas[DataKei],' ',Kelas[KodeKelas[DataKei]],' Rp. ',BiayaPendaftaran[KodeKelas[DataKei]]:5:0,
' Rp.',BiayaKursus[KodeKelas[DataKei]]:5:0,' Rp.',Total_bayar[DataKei]:2:0);
WriteLn(' =============================================================================');
WRITELN;
WriteLn(' :: => Total Pembayaran : Rp.',Bayar:2:0,' <= ::');
writeln('================================================================================');
writeln(' Apakah Anda ingin mengisi Data lagi tekan Y,tekan Sembarang untuk keluar');READLN(LIHAT_LAGI);
CASE LIHAT_LAGI OF
'Y':ISI_MAHASISWA;
'T':EXIT;
END;
end;
procedure tampilan_akhir;
Begin
clrscr;
Gotoxy(29,1);Writeln(' MATA KULIAH PEMOGRAMAN ');
Gotoxy(27,2);Writeln('NAMA : NURIAH EVAYANTI WIRADINATA');
Gotoxy(27,3);Writeln('NIM : C0955201008 ');
Gotoxy(27,4);Writeln('JURUSAN : TEKNIK INFORMATIKA ');
Gotoxy(27,5);Writeln('KELAS : A ');
Gotoxy(27,6);writeln('KELOMPOK: 1 ');
Gotoxy(18,9);writeln(' ************************************************');
Gotoxy(31,10);Writeln('DATA CALON MAHASISWA BARU');
Gotoxy(34,11);Writeln('STMIK PALANGKRAYA');
Gotoxy(23,12);Writeln(' JLN.KINIBALU NO.99 PALANGKARAYA KALTENG');
Gotoxy(18,13);writeln('*************************************************');
Gotoxy(35,17);writeln('TERIMA KASIH. . . . . ');
Gotoxy(18,18);WRITELN('PENGISIAN DATA CALON MAHASISWA BARU TELAH SELESAI');

READLN;
EXIT;
End;
var pilih:integer;
begin
ulang:=true;
DataKei:=0;
while ulang do
begin
clrscr;
menu (pilih);

case pilih of
1: TAMPILAN_AWAL;
2:BEGIN
ISI_MAHASISWA;
jum_brg:=DataKei;

end;
3: LAPORAN;

4: tampilan_akhir;
end;
end;
end.


Program harga_barang;
Uses WinCrt;
type
recharga=record
nama_barang:string;
end;
Var
JumlahBeli:Array[1..100] Of Integer;
DataKei,BanyakDataKei,A,B,C,jum_brg:Integer;
lagi:Char;
Total_bayar:Array[1..10] of Real;
bayar:real;
Ulang:boolean;
Const
NomorBarang:Array [1..10] Of Integer=(1,2,3,
4,5,6,7,8,9,10);
NamaBarang:Array [1..10] Of String[10]=('MEJA','KURSI','LEMARI',
'RAK BUKU','TEMPAT TIDUR','MEJA BELAJAR','PINTU','CENDELA','KURSI GOYANG','RAK BAJU');
Const
KUALITAS:Array [1..3] Of integer =(1,2,3);
HARGA_SATUAN:ARRAY [1..3] of real=(1000000,750000,500000);

PROCEDURE MENU (VAR PIL:INTEGER);
begin
clrscr;
gotoxy(22,1);writeln('===========================================');
gotoxy(33,2);writeln('NURIAH EVA YANTI W.D');
gotoxy(36,3);WRITELN('C0955201008');
gotoxy(34,4);writeln('TEKNIK INFORMATIKA ');
gotoxy(22,5);writeln('===========================================');

WRITELN;
gotoxy(22,10);writeln('*******************************************');
gotoxy(28,11);writeln('MET DATANG DI PROGRAM PENGISIAN ');
gotoxy(29,12);writeln('@ DATA HARGA DAN NAMA BARANG @');
gotoxy(33,13);writeln('TOKO PORORIO FUKADA ');
gotoxy(22,14);writeln('*******************************************');
gotoxy(10,18);writeln(' TEKAN ENTER KE PROGRAM UTAMA: ');
READLN;
begin
clrscr;
gotoxy(35,1);writeln('Data Harga Barang');
gotoxy(22,2);writeln('===========================================');
gotoxy(33,3);writeln('NURIAH EVA YANTI W.D');
gotoxy(33,4);WRITELN('C0955201008');
gotoxy(22,5);writeln('===========================================');
WRITELN;
WRITELN;
WRITELN;
gotoxy(10,9);writeln('============================================');
gotoxy(19,10);writeln('** MENU PILIHAN PROGRAM **');
gotoxy(10,11);writeln('============================================');
gotoxy(14,12);writeln(' 1.ISI DATA HARGA BARANG');
gotoxy(14,13);writeln(' 2.TABEL DATA HARGA BARANG ');
gotoxy(14,14);writeln(' 3.SELESAI');
gotoxy(10,15);writeln('============================================');
gotoxy(19,16);write(' PILIHAN ANDA (1-3) = ');
readln(PIL);
GOTOXY(10,17);WRITELN('============================================');
end;
END;


PROCEDURE ISI_BARANG;
VAR
LAGI_BRG:CHAR;

Begin

Bayar:=0;
repeat
ClrScr;
DataKei:=DataKei+1;
gotoxy(22,1);writeln('===========================================');
gotoxy(33,2);writeln('NURIAH EVA YANTI W.D');
gotoxy(36,3);WRITELN('C0955201008');
gotoxy(34,4);writeln('TEKNIK INFORMATIKA ');
gotoxy(22,5);writeln('===========================================');
writeln;
WRITELN(' Toko Nevadya Pororio Fukada');
WriteLn(' **************************** [************************');
WriteLn(' |Kode barang | Nama barang | [Kualitas l Harga satuan]');
WriteLn(' **************************** [ A l RP.1000.000 ]');
WriteLn(' | 1 | MEJA | [ B l RP. 750.000 ]');
WriteLn(' | 2 | KURSI | [ C l RP. 500.000 ]');
WriteLn(' | 3 | LEMARI | [************************');
WriteLn(' | 4 | RAK BUKU |');
WriteLn(' | 5 | TEMPAT TIDUR|');
WriteLn(' | 6 | MEJA BELAJAR|');
WriteLn(' | 7 | PINTU |');
WriteLn(' | 8 | CENDELA |');
WriteLn(' | 9 | KURSI GOYANG|');
WriteLn(' | 10 | RAK BAJU |');
WriteLn(' ****************************');
WRITELN;
Write(' MASUKKAN KODE BARANG YANG AKAN ANDA BELI.? ');
ReadLn(NomorBarang[datakei]);

If NomorBarang[datakei]=1 Then
begin
WriteLn(' NAMA BARANG = ',NamaBarang[1]);
end
else
If NomorBarang[datakei]=2 Then
begin
WriteLn(' NAMA BARANG = ',NamaBarang[2]);
end
else
If NomorBarang[datakei]=3 Then
begin
WriteLn(' NAMA BARANG = ',NamaBarang[3]);
end
else
If NomorBarang[datakei]=4 Then
begin
WriteLn(' NAMA BARANG = ',NamaBarang[4]);
end
else
If NomorBarang[datakei]=5 Then
begin
WriteLn(' NAMA BARANG = ',NamaBarang[5]);
end
else
If NomorBarang[datakei]=6 Then
begin
WriteLn(' NAMA BARANG= ',NamaBarang[6]);
end
else
If NomorBarang[datakei]=7 Then
begin
WriteLn(' NAMA BARANG = ',NamaBarang[7]);
end
else
If NomorBarang[datakei]=8 Then
begin
WriteLn(' NAMA BARANG = ',NamaBarang[8]);
end
else
If NomorBarang[datakei]=9 Then
begin
WriteLn(' NAMA BARANG = ',NamaBarang[9]);
end
else
If NomorBarang[datakei]=10 Then
begin
WriteLn(' NAMA BARANG = ',NamaBarang[10]);
end
else
writeln(' ****** AnDa SaLaH MeMasuKkan KoDe ******');
Write(' MASUKKAN KUALITAS BARANG YANG AKAN ANDA PILIH.? ');
ReadLn(KUALITAS[datakei]);
If KUALITAS[datakei]=1 Then
begin
WriteLn(' KUALITAS BARANG = ',KUALITAS[1]);
end
else
If NomorBarang[datakei]=2 Then
begin
WriteLn(' KUALITAS BARANG = ',KUALITAS[2]);
end
else
If NomorBarang[datakei]=3 Then
begin
WriteLn(' KUALITAS BARANG = ',KUALITAS[3]);
end
else
writeln(' ****** AnDa SaLaH MeMasuKkan KoDe ******');
WriteLn(' HARGA SATUAN = Rp.',HARGA_SATUAN[KUALITAS[datakei]]:5:0);
Write (' JUMLAH BELI = ');ReadLn(jumlahbeli[datakei]);
Total_bayar[datakei]:=HARGA_SATUAN[NomorBarang[datakei]] *jumlahbeli[datakei];
writeln(' TOTAL BAYAR = RP.',total_bayar[datakei]:5:0);
WriteLn;
Write(' Apakah Anda ingin mengisi data lagi tekan Y,tekan Sembarang untuk keluar) ? ');
ReadLn(lagi);

Until UpCase(lagi)<>'Y';
END;
PROCEDURE LAPORAN;
VAR
J:INTEGER; LIHAT_LAGI:CHAR;
Begin
ClrScr;
BanyakDataKei:=DataKei;
For DataKei:=1 to BanyakDataKei Do
Bayar:=Bayar+Total_bayar[DataKei];
For DataKei:=1 to BanyakDataKei Do
WriteLn(' TOTAL BELANJA ',NamaBarang[NomorBarang[DataKei]],' = Rp.' ,Total_bayar[DataKei]:2:0);
WriteLn(' *****************************************');
WriteLn(' TOTAL SELURUHNYA : Rp.',Bayar:2:0);
WriteLn(' *****************************************');
WriteLn;
writeln(' =============================================================================');
writeln(' TABEL DATA DAN HARGA BARANG');
writeln(' COUNTERS NEVADYA PORORIO');
writeln(' JLN.MENDAWAI NO.99 PALANGKARAYA KALTENG ');
WRITELN(' ==============================================================================');
writeln(' KODE BRNG I NAMA BARANG I KWLITAS I HARGA SATUAN I JUMLAH BELI I TOTAL BAYAR');
WRITELN(' ==============================================================================');
For DataKei:=1 to BanyakDataKei Do

WriteLn(' ',NomorBarang[DataKei],' ',NamaBarang[NomorBarang[DataKei]],' ',KUALITAS[DataKei],
' Rp.',HARGA_SATUAN[KUALITAS[DataKei]]:5:0,' ',JumlahBeli[DataKei],' ','Rp.',Total_bayar[DataKei]:2:0);
WriteLn(' =============================================================================');
WRITELN;
WriteLn(' :: => Total Pembayaran : Rp.',Bayar:2:0,' <= ::');
writeln('================================================================================');
writeln(' Apakah Anda ingin mengisi Data lagi tekan Y,tekan Sembarang untuk keluar');READLN(LIHAT_LAGI);
CASE LIHAT_LAGI OF
'Y':ISI_BARANG;
'T':EXIT;
END;
end;

procedure tampilan_akhir;
Begin
clrscr;
Gotoxy(29,1);Writeln(' MATA KULIAH PEMOGRAMAN ');
Gotoxy(27,2);Writeln('NAMA : NURIAH EVAYANTI WIRADINATA');
Gotoxy(27,3);Writeln('NIM : C0955201008 ');
Gotoxy(27,4);Writeln('JURUSAN : TEKNIK INFORMATIKA ');
Gotoxy(27,5);Writeln('KELAS : A ');
Gotoxy(27,6);writeln('KELOMPOK: 1 ');
Gotoxy(18,9);writeln(' ************************************************');
Gotoxy(33,10);Writeln('DATA DAN HARGA BARANG');
Gotoxy(26,11);Writeln('TOKO NEVADYA PORORIO FUKADA');
Gotoxy(23,12);Writeln(' JLN.MENDAWAI NO.99 PALANGKARAYA KALTENG');
Gotoxy(18,13);writeln('*************************************************');
Gotoxy(35,17);writeln('TERIMA KASIH. . . . . ');
Gotoxy(18,18);WRITELN('PENGISIAN DATA DAN HARGA BARANG TELAH SELESAI');

READLN;
End;
var pilih:integer;
begin
ulang:=true;
DataKei:=0;
while ulang do
begin
clrscr;
menu (pilih);

case pilih of
1:BEGIN
ISI_BARANG;
jum_brg:=DataKei;

end;
2: LAPORAN;

3: tampilan_akhir;
end;
end;
end.