uses CRT;
Var
kode : byte;
harga,jumlah : longint;
th : longint;
nama : string;
begin
clrscr;
Writeln('Inputkan Kode Penjualan');
writeln('---------------------------');
write('kode:');readln(kode);
case kode of
1 : Begin
clrscr;
nama:='Televisi';
Writeln('Nama:',nama);
harga:=1750000;
writeln('Harga:',harga);
write('Jumlah Beli:');readln(jumlah);
th :=harga*jumlah;
writeln('---------------');
writeln('Total Harga:',th);
end;
2 : Begin
clrscr;
nama:='DVD';
writeln('Nama:',nama);
harga:=650000;
writeln('Harga:',harga);
write('Jumlah Beli:');readln(jumlah);
th:= jumlah*harga;
writeln('---------------');
writeln('Total Harga:',th);
end;
3 : Begin
clrscr;
nama:='CD ROOM';
writeln('Nama:',nama);
harga:=450000;
writeln('Harga:',harga);
write('Jumlah Beli:');readln(jumlah);
th := jumlah*harga;
writeln('---------------');
writeln('Total Harga:',th);
end;
end;
readln;
end.
Jika anda sudah sesuai mengetikkan script diatas pada Aplikasi Turbo
Pascal anda, kemudian tekan CTRL+F9, maka akan muncul tampilan gambar
dibawah ini,
Namun jika belum tampil ataupun gagal, silahkan periksa kembali letak kesalahan anda.
Untuk memulai langkah selanjutnya, anda diberikan 3 pilihan untuk
menginput kode produknya yaitu 1,2, dan 3. contoh ketikkan angka 1, maka
akan tampil gambar seperti dibawah ini.
lalu ketikkan nominal jumlah belinya, misalnya 5.
disadur dari
Berbagi Ilmu itu Bijaksana
