Mesran

Hanya ingin berbagi kebaikan dan mendapatkan kebaikan yang lain.

Pembahasan Kasus !

Masih ingat dengan kasus yang saya berikan sebelumnya ?

Mungkin bisa anda cek di https://mesran.wordpress.com/2011/02/25/ayo-latihan-yukkk/

nah ini dia pembahasannya.


USES CRT ;

VAR


Kode   : Array[1..100] of String[5];
Jumlah : Array[1..100] of Integer;
Nama   : String[20] ;
Harga  : Longint;
Total  : Longint ;
SubTotal : Longint ;
Lagi   : Char;
i,j    : integer;

BEGIN
i:=0;
Lagi:='y';
{untuk menginputkan data produk}
REPEAT
Clrscr;
Gotoxy (20, 4) ; Write('Menginputkan Produk');
Gotoxy (20, 5) ; Write('--------------------------');
Inc(i);
Gotoxy (20, 6) ; Write('Data Ke :', i );
Gotoxy (20, 7) ; Write('Kode      :         [001,002,003]' );
Gotoxy (20, 8) ; Write('Jumlah    :');

Gotoxy (20,10) ; Write('--------------------------');
Gotoxy (20,11) ; Write('Ada Lagi [Y/T] :');

Gotoxy (33, 7) ; readln(Kode[i]);
Gotoxy (33, 8) ; readln(Jumlah[i]);
Gotoxy (38,11) ; Lagi := Readkey ;
UNTIL Lagi In ['T','t'] ;

{menampilkan data produk}
CLRSCR ;
Gotoxy( 5,1);write('Laporan Penjualan Produk WANITA');
Gotoxy( 5,2);write('PT. LELAKI SEJATI');
Gotoxy( 5,3);write('Jln. Belawan No. 00');
Gotoxy( 5,4);write('+---+------+-----------------+------+---------+----------+');
Gotoxy( 5,5);write('|No | Kode | Nama Produk     |Jumlah|  Harga  |   Total  |');
Gotoxy( 5,6);write('+---+------+-----------------+------+---------+----------+');

FOR j:= 1 to i do
BEGIN

If Kode[j] = '001' then
BEGIN
Nama := 'Farfum AAA'; Harga := 150000;
END
ELSE IF Kode[j] = '002' Then
BEGIN
Nama := 'Tshirt Love'; Harga := 97900;
END
ELSE IF Kode[j] = '003' then
BEGIN
Nama := 'Jeans OK'; Harga := 275000;
END;

Total := Jumlah[j] * Harga ;
SubTotal := SubTotal + Total ;

Gotoxy(5,6+j); write('|',j:2,' | ',Kode[j]:4,' |', Nama);
Gotoxy(34,6+j); write('| ', Jumlah[j]:3,'  |', Harga:8,' |', Total:9, ' |');

End;
Gotoxy( 5,7+j);write('+---+------+-----------------+------+---------+----------+');
Gotoxy(37,8+j); write('Total Penjualan ',SubTotal:8);
Gotoxy( 5,9+j);write('+---+------+-----------------+------+---------+----------+');
Readln;

End.

Jalankanlah program tersebut dan perhatikan hasilnya apakah seperti ini ?

Hasil Input.

Hasil Output.

Tugas Anda :

Buatlah Page per Page dari tampilan layar di atas, buatlah didalam satu penampilan menampilkan sebanyak 5 record saja, dan tampilkan Halaman : N diatas sebelah kanan atas.

Selamat Memahami & Mengerjakan.

Filed under: Pemrograman Pascal,

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: