program provider_2;
uses crt;
var
menu:char;
menu1:char;
menu2:char;
menu3:char;
menu3a:char;
kode:string;
begin
clrscr;
writeln('Kuota++ 2GB, masa aktif panjang cuma Rp 35rb');
writeln('1.Mau');
writeln('2.Info Kartu' );
writeln('3.Internet');
writeln('4.Paketan++');
writeln('5.Isi Pulsa Fisik');readln(menu);
case menu of
'1':begin
writeln('Anda akan membeli Kuota++ Regular 2GB (Rp35rb)');
writeln('1.Ya');
writeln('2.Tidak');readln(menu1);
case menu1 of
'1':write('Selamat Paket Kuota++ Regular 2GB telah diaktifkan');
'2':write('Connection Problem or Invalid MMI Code');
end;
readln;
clrscr;
end;
'2':begin
writeln('1.Cek Nomor dan Cek Pulsa');
writeln('2.Cek Kuota');readln(menu2);
case menu2 of
'1':begin
writeln('Account Detail');
writeln('Nomor Tri: 6289669596601');
writeln('-Pulsa Utama : Rp 56,-');
writeln('-Pulsa Utama : Rp 99.000,-');
writeln('Berlaku s/d 18-OCT-16');
readln;
end;
'2':begin
writeln('Kuota Detail');
writeln('-Kuota Utama : 5,563 GB');
writeln('-Kuota Bonus : 0 GB');
writeln('-Kuota Malam : 11,342 GB (12 Malam- 6 Pagi)');
readln;
end;
'3':begin
writeln('Internet Tri sesuai mau kamu');
writeln('1.Harian');
writeln('2.Mingguan');
writeln('3.Bulanan');readln(menu3);
case menu3 of
'1':begin
writeln('Harian 500 MB (Rp10rb)');
writeln('1.Beli');
writeln('2.Tidak');readln(menu3a);
case menu3a of
'1':writeln('Selamat Paket Harian 500 MB (Rp10rb) telah berhasil diaktifkan');
'2':writeln('Connection Problem or Invalid MMI Code');
end;
end;
end;
end;
end;
end;
end;
end.
Spoiler for Supaya Lebih Jelas:
Source Code di atas adalah program untuk memberikan informasi Provider, Sampai saat ini berjalan Lancar
Yang ane nggak ngerti :
Kenapa Di Case of file number 3 ga kebaca beda sama yang number 2, mohon pencerahannya ane lagi tugas praktikum terima kasih
Diubah oleh Unknown.FWZ 15-10-2015 22:32
0
967
Kutip
6
Balasan
Tulis komentar menarik atau mention replykgpt untuk ngobrol seru
Urutan
Terbaru
Terlama
Tulis komentar menarik atau mention replykgpt untuk ngobrol seru