Program Sederhana Pascal Penjualan Tiket Perjalanan
Thursday, April 27, 2017
0
comments
Salam Sobat Blogger, kali ini admin ingin membagikan artikel yang diperoleh dari tugas di kampus. Sembari berbagi, dan belajar. Mana tahu ada para sobat blogger yang mengalami situasi soal seperti ini.
silahkan di coba.. terima kasih
uses crt;
var
nama,kelas,tujuan,bonus,hadiah:string;
npm:integer;
harga,jumlah,total:longint;
begin
clrscr;
writeln ('PENJUALAN TIKET PT.ABC');
writeln ('============================');
write
('Masukkan NPM Anda [16110444]:');readln(npm);
if npm = 16110444 then
begin
nama:='Hendy Hermawan';
end;
writeln('Nama Anda:', nama);
write('Tujuan anda [Jakarta/Bandung/Semarang]:');
readln(tujuan);
write('Kelas [ekonomi/eksekutif]:');readln(kelas);
if
(tujuan = 'Jakarta') or (tujuan='jakarta') then
begin
if (kelas =
'ekonomi') or (kelas ='Ekonomi') then hadiah:='tidak ada'; harga := 600000 ;
if (kelas =
'eksekutif') or (kelas='Eksekutif') then
hadiah:='Aqua'; harga :=
750000 ;
end
else if (tujuan = 'Bandung') or (tujuan ='bandung') then
begin
if (kelas =
'ekonomi') or (kelas='Ekonomi') then hadiah:='tidak ada'; harga := 700000 ;
if (kelas =
'eksekutif') or (kelas='Eksekutif') then hadiah:='tidak ada'; harga := 850000 ;
end
else if (tujuan = 'Semarang') or (tujuan='semarang') then
begin
if (kelas =
'ekonomi') or (kelas ='Ekonomi') then hadiah :='tidak ada'; harga := 800000 ;
if (kelas =
'eksekutif') or (kelas ='Eksekutif') then hadiah :='Roti dan Aqua'; harga :=
900000 ;
end;
writeln('Bonus Perjalan:',hadiah);
writeln('Harga Tiket:',harga);
write('Masukkan Jumlah:');readln(jumlah);
if jumlah > 3 then bonus := 'Roti Amanda' else
if jumlah <= 3 then bonus := 'Tidak Ada, Hahaha';
writeln('=======================================');
total:=jumlah*harga;
writeln('Total Biaya:',total);
writeln('=======================================');
writeln('Bonus Pembelian Tiket:',bonus);
writeln('=======================================');
readln;
end.
Nah, silahkan sobat jalankan dengan CTRL+F9 atau di run kan pada program pascal sobat.
Hasil eksekusi
 |
| Program Pascal Penjualan Tiket Sederhana |
TERIMA KASIH ATAS KUNJUNGAN Sobat
Judul: Program Sederhana Pascal Penjualan Tiket Perjalanan
Ditulis oleh Erixon
Semoga artikel ini bermanfaat bagi sobat. Jika ingin mengutip, baik itu sebagian atau keseluruhan dari isi artikel ini harap menyertakan link dofollow ke https://tekinfotika.blogspot.com/2017/04/program-sederhana-pascal-penjualan.html. Terima kasih sudah singgah membaca artikel ini.Ditulis oleh Erixon
Categories:
Bahasa Pemrograman,
Coding Program,
Pascal
0 Comments
