USES WINCRT; 

 

VAR X, Y, I, JLHMHS : INTEGER; 

 NAMA,NIM, JURUSAN, NILHURUF : ARRAY[1..20] OF STRING; 

 NILANGKA : ARRAY [1..20] OF INTEGER; 

 

BEGIN 

 WRITE('JUMLAH MAHASISWA: ');READLN(JLHMHS); 

 FOR I := 1 TO JLHMHS DO 

 BEGIN CLRSCR; 

 WRITE('NAMA MAHASISWA : ');READLN(NAMA[I]); 

 WRITE('N I M : ');READLN(NIM[I]); 

 WRITE('JURUSAN : ');READLN(JURUSAN[I]); 

 WRITE('NILAI : ');READLN(NILANGKA[I]); 

 IF (NILANGKA[I] >= 0) AND (NILANGKA[I] <=40) THEN NILHURUF[I] := 'E' 

 ELSE IF(NILANGKA[I] > 40) AND (NILANGKA[I] <=55) THEN NILHURUF[I] := 'D' 

 ELSE IF(NILANGKA[I] > 55) AND (NILANGKA[I] <=70) THEN NILHURUF[I] := 'C' 

 ELSE IF(NILANGKA[I] > 70) AND (NILANGKA[I] <=80) THEN NILHURUF[I] := 'B' 

 ELSE IF(NILANGKA[I] > 80) AND (NILANGKA[I] <=100) THEN NILHURUF[I] := 'A' 

 ELSE NILHURUF[I] := 'SALAH DATA' 

 END; 

 CLRSCR; 

 FOR Y := 1 TO 70 DO WRITE('-'); 

 GOTOXY(2,2);WRITE('NAMA MAHASISWA'); 

 GOTOXY(20,2);WRITE('N I M'); 

 GOTOXY(30,2);WRITE('JURUSAN'); 

 GOTOXY(45,2);WRITE('N ANGKA'); 

 GOTOXY(60,2);WRITELN('N HURUF'); 

 FOR Y := 1 TO 70 DO WRITE('-'); 

 FOR I := 1 TO JLHMHS DO 

 BEGIN 

 GOTOXY(2,3+I);WRITE(NAMA[I]); 

 GOTOXY(20,3+I);WRITE(NIM[I]); 

 GOTOXY(30,3+I);WRITE(JURUSAN[I]); 

 GOTOXY(45,3+I);WRITE(NILANGKA[I]); 

 GOTOXY(60,3+I);WRITE(NILHURUF[I]); 

 END; 

 WRITELN; 

 FOR Y := 1 TO 70 DO WRITE('-'); 

 END. 

 


USES WINCRT; 

 

VAR X, Y, I, JLHMHS, JLHS : INTEGER; 

 NAMA,JENIS : ARRAY[1..20] OF STRING; 

 HRG,DISC, HRGDIS, NETHRG : ARRAY [1..20] OF REAL; 

 JLHHDISK, JLHNET : REAL; 

 

BEGIN 

 WRITE('JUMLAH BARANG: ');READLN(JLHMHS); 

 JLHHDISK := 0; 

 JLHNET := 0; 

 FOR I := 1 TO JLHMHS DO 

 BEGIN CLRSCR; 

 WRITE('NAMA BARANG : ');READLN(NAMA[I]); 

 WRITE('HARGA : ');READLN(HRG[I]); 

 WRITE('DISKON : ');READLN(DISC[I]); 

 HRGDIS[I] := HRG[I] * DISC[I]*0.01; 

 NETHRG[I] := HRG[I] - HRGDIS[I]; 

 JLHHDISK := JLHHDISK + HRGDIS[I]; 

 JLHNET := JLHNET + NETHRG[I]; 

 END; 

 CLRSCR; 

 FOR Y := 1 TO 70 DO WRITE('-'); 

 GOTOXY(2,2);WRITE('NAMA BARANG'); 

 GOTOXY(20,2);WRITE('HARGA'); 

 GOTOXY(30,2);WRITE('DISKON'); 

 GOTOXY(45,2);WRITE('HARGA DISKON'); 

 GOTOXY(60,2);WRITELN('NET HARGA'); 

 FOR Y := 1 TO 70 DO WRITE('-'); 

 FOR I := 1 TO JLHMHS DO 

 BEGIN 

 GOTOXY(2,3+I);WRITE(NAMA[I]); 

 GOTOXY(20,3+I);WRITE(HRG[I]:8:0); 

 GOTOXY(30,3+I);WRITE(DISC[I]:2:0,'%'); 

 GOTOXY(45,3+I);WRITE(HRGDIS[I]:8:0); 

 GOTOXY(60,3+I);WRITE(NETHRG[I]:8:0); 

 END; WRITELN; 

 FOR Y := 1 TO 70 DO WRITE('-'); 

 GOTOXY(10,5+I);WRITE('JUMLAH'); 

 GOTOXY(45,5+I);WRITE(JLHHDISK:8:0); 

 GOTOXY(60,5+I);WRITELN(JLHNET:8:0); 

 FOR Y := 1 TO 70 DO WRITE('-'); 

 

END. 


USES WINCRT; 

 

VAR X, Y, I, JLHBRG, JLHS : INTEGER; 

 NAMA,JENIS : ARRAY[1..20] OF STRING; 

 HRG,QTY, HRGTTL, PAJAK, NETHRG : ARRAY [1..20] OF REAL; 

 JLHTTL, JLHPJK, JLHNET : REAL; 

 

BEGIN 

 WRITE('JUMLAH BARANG: ');READLN(JLHBRG); 

 JLHTTL := 0; 

 JLHPJK := 0; 

 JLHNET := 0; 

 FOR I := 1 TO JLHBRG DO 

 BEGIN CLRSCR; 

 WRITE('NAMA BARANG : ');READLN(NAMA[I]); 

 WRITE('HARGA : ');READLN(HRG[I]); 

 WRITE('Q T Y : ');READLN(QTY[I]); 

 HRGTTL[I] := HRG[I] * QTY[I]; 

 PAJAK[I] := HRGTTL[I] * 0.05; 

 NETHRG[I] := HRG[I] - PAJAK[I]; 

 JLHTTL := JLHTTL + HRGTTL[I]; 

 JLHPJK := JLHPJK + PAJAK[I]; 

 JLHNET := JLHNET + NETHRG[I]; 

 END; 

 CLRSCR; 

 FOR Y := 1 TO 70 DO WRITE('-'); 

 GOTOXY(2,2);WRITE('NAMA BARANG'); 

 GOTOXY(20,2);WRITE('HARGA'); 

 GOTOXY(30,2);WRITE('QTY'); 

 GOTOXY(36,2);WRITE('HARGA TOTAL'); 

 GOTOXY(48,2);WRITE('PAJAK'); 

 GOTOXY(60,2);WRITELN('NET HARGA'); 

 FOR Y := 1 TO 70 DO WRITE('-'); 

 FOR I := 1 TO JLHBRG DO 

 BEGIN 

 GOTOXY(2,3+I);WRITE(NAMA[I]); 

 GOTOXY(20,3+I);WRITE(HRG[I]:8:0); 

 GOTOXY(30,3+I);WRITE(QTY[I]:3:0); 

 GOTOXY(36,3+I);WRITE(HRGTTL[I]:8:0); 

 GOTOXY(48,3+I);WRITE(PAJAK[I]:8:0); 

 GOTOXY(60,3+I);WRITE(NETHRG[I]:8:0); 

 END; WRITELN; 

 FOR Y := 1 TO 70 DO WRITE('-'); 

 GOTOXY(10,5+I);WRITE('JUMLAH'); 


 GOTOXY(36,5+I);WRITE(JLHTTL:8:0); 

 GOTOXY(48,5+I);WRITE(JLHPJK:8:0); 

 GOTOXY(60,5+I);WRITELN(JLHNET:8:0); 

 FOR Y := 1 TO 70 DO WRITE('-'); 

 

END.