Script untuk mencari harga dan jenis koneksi with “case of”
Contoh Script untuk mencari harga dan jenis koneksi – With “case of”
Uses wincrt;
Var
pil:Integer;
Kode_Pel:char;
Nama,Alamat:String;
Tobel,jumlah,kembali,Discount:Real;
Begin
Writeln(‘ !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!’);
Writeln(‘ * www.cbn.net.id *’);
Writeln(‘ * internet@your.fingertips *’);
Writeln(‘ !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!’);
Writeln(‘ —o0 Internet Connection Type 0o—’);
Writeln(‘ 1.Broadband’);
Writeln(‘ 2.Dial up’);
Writeln(‘ 3.Dedicated Lan’);
Writeln(‘ 4.Wireless’);
Writeln(‘ 5.Data Center’);
Writeln;
Write(‘ Number Of Internet Connection Type=’);Readln(pil);
Write(‘ Enter Customer Code=’);Readln(Kode_Pel);
Begin
Write(‘ Amount Order=$’);Readln(Tobel);
Write(‘ Payment=$’);Readln(Jumlah);
Case pil of
1:Begin
If(kode_pel=’P')or(kode_pel=’p')then
If(kode_pel=’p')And(Tobel>100)then
Discount:=Tobel*0.1
Else If(kode_pel’P')And (Tobel>100)Then
Discount:=Tobel*0.05
Else If(kode_pel’P')And(Tobel
Discount:=0;
Kembali:=Jumlah-(Tobel-discount);
Writeln(‘ Discount=$’,Kembali:12:2);
Writeln(‘ Change=$’,Kembali:12:2);
Writeln(‘ Your Choice is Broadband’);
Writeln(‘ www.m-r1zq.co.nr@copyright2007 ‘);
Writeln(‘ o0————–o0o————–0o’);
End;
2:Begin
If(kode_pel=’P')or(kode_pel=’p')then
If(kode_pel=’P')And(Tobel>100)Then
Discount:=Tobel*0.1
Else If(Kode_Pel’P')And(Tobel
Discount:=Tobel*0.05
Else if(Kode_Pel’P')And(Tobel
Discount:=0;
Kembali:=Jumlah-(Tobel-discount);
Writeln(‘ Discount=$’,discount:12:12);
Writeln(‘ Change=$’,Kembali:12:2);
Writeln(‘ Your Choice is Dial Up’);
Writeln(‘ www.m-r1zq.co.nr@copyright2007 ‘);
Writeln(‘ o0————–o0o————–0o’);
End;
3:Begin
If(kode_pel=’P')or(kode_pel=’p')then
If(kode_pel=’P')And(Tobel>100)Then
Discount:=Tobel*0.1
Else If(Kode_Pel’P')And(Tobel
Discount:=Tobel*0.05
Else if(Kode_Pel’P')And(Tobel
Discount:=0;
Kembali:=Jumlah-(Tobel-discount);
Writeln(‘ Discount=$’,discount:12:12);
Writeln(‘ Change=$’,Kembali:12:2);
Writeln(‘ Your Choice Is Dedicated Lan’);
Writeln(‘ www.m-r1zq.co.nr@copyright2007 ‘);
Writeln(‘ o0————–o0o————–0o’);
End;
4:Begin
If(kode_pel=’P')or(kode_pel=’p')then
If(kode_pel=’P')And(Tobel>100)Then
Discount:=Tobel*0.1
Else If(Kode_Pel’P')And(Tobel
Discount:=Tobel*0.05
Else if(Kode_Pel’P')And(Tobel
Discount:=0;
Kembali:=Jumlah-(Tobel-discount);
Writeln(‘ Discount=$’,discount:12:12);
Writeln(‘ Change=$’,Kembali:12:2);
Writeln(‘ Your Choice Is Wireless’);
Writeln(‘ www.m-r1zq.co.nr@copyright2007 ‘);
Writeln(‘ o0————–o0o————–0o’);
End;
5:Begin
If(kode_pel=’P')or(kode_pel=’p')then
If(kode_pel=’P')And(Tobel>100)Then
Discount:=Tobel*0.1
Else If(Kode_Pel’P')And(Tobel
Discount:=Tobel*0.05
Else if(Kode_Pel’P')And(Tobel
Discount:=0;
Kembali:=Jumlah-(Tobel-discount);
Writeln(‘ Discount=$’,discount:12:12);
Writeln(‘ Change=$’,Kembali:12:2);
Writeln(‘ Your Choice Is Data Center’);
Writeln(‘ www.m-r1zq.co.nr@copyright2007 ‘);
Writeln(‘ o0————–o0o————–0o’);
End;
End;
End;
End.