Latihan_UTS

Ada sedikit latihan, untuk dipelajari sebelum uts sebagai bahan referensi saja.
Buat tampilan sebagai berikut:

Tampilan layar 1 :
lat1.jpg

tampilan layar 2 :
lat2.jpg

Listing program :
program pulza;
uses crt;
var nm,nm_produk:string[30];
nominal,hrg_nominal,jumbel,totbay:longint;
lagi,kd_produk:char;
label mpie;
begin
mpie:
clrscr;
gotoxy(20,4);writeln(‘PENJUALAN PULZA “LENSA”‘);
writeln;
write(‘Masukan Nama Agen : ‘);readln(nm);
write(‘Pilih Kode Produk [M/I/S] : ‘);readln(kd_produk);
write(‘Pilih Nominal Pulsa [5/10/20/25]: ‘);readln(nominal);
if (kd_produk=’M’) or (kd_produk=’m’) then
begin
nm_produk:=’mentari’;
case nominal of
5:
hrg_nominal:=5100;
10:
hrg_nominal:=10500;
20:
hrg_nominal:=21000;
25:
hrg_nominal:=25500;
end;
end
else if (kd_produk=’I’) or (kd_produk=’i’) then
begin
nm_produk:=’im3′;
case nominal of
5:
hrg_nominal:=5200;
10:
hrg_nominal:=10700;
20:
hrg_nominal:=21000;
25:
hrg_nominal:=25000;
end;
end
else if (kd_produk=’S’) or (kd_produk=’s’) then
begin
nm_produk:=’Simpati’;
case nominal of
10:
hrg_nominal:=12000;
20:
hrg_nominal:=22000;
25:
hrg_nominal:=26000;
end;
end;
writeln;
writeln(‘Nama Produk : ‘,nm_produk);
writeln(‘Harga Nominal : ‘,hrg_nominal);
write(‘Jumlah Beli : ‘);readln(jumbel);
clrscr;
gotoxy(10,2);writeln(‘Data Pembelian Pulsa’);
writeln;
writeln(‘Nama Agen : ‘,nm);
writeln(‘Nama Produk : ‘,nm_produk);
writeln(‘Harga Nominal : ‘,hrg_nominal);
writeln(‘Jumlah Beli : ‘,jumbel);
totbay:=jumbel*hrg_nominal;
writeln(‘Ingin Input Data Lagi [Y/N] : ‘);readln(lagi);
if (lagi=’Y’) and (lagi=’y’) then
goto mpie;
readln;
end.

Untuk memperlancar silakan anda buat contoh lain .

Iklan

3 Comments

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s