Rizq Technology – Exploring Your iDea.

Script untuk mencari harga di Restoran with Case of. Uses wincrt; Var pil:Integer; Kode_Pel:char; Nama,Alamat:String; Tobel,jumlah,kembali,Discount:Real; Begin Writeln(‘RESTORAN UNTUNG TAK MAU RUGI’); Writeln(‘Menu Restoran Favorit’); Writeln(’1.Menu Sego liwet+Juice Wortel’); Writeln(’2.Menu Soto Kudus+Juice Jeruk Hangat’); Writeln(’3.Menu Masakan Sunda,Lalapan+Wedang Ronde’); Writeln(’4.Menu Masakan Eropa’); Writeln(’5.Menu Masakan Jepang’); Writeln; Write(‘Nomor Menu Pilihan=’);Readln(pil); Write(‘Masukan Kode Pelanggan=’);Readln(Kode_Pel); Begin Write(‘Total Belanja Hari [...]

Script untuk mencari posisi salah ada di mana. uses wincrt; var nilaistring:string[6]; nilaireal1:real; posisisalah:integer; begin NilaiString:=’123.A5′; Val(NilaiString,Nilaireal1,PosisiSalah); writeln(‘nilaistring:’,nilaistring); writeln(‘NilaiReal1:’,NilaiReal1:8:2); writeln(‘posisisalah:’,posisisalah); end.

Script untuk memilih operator dalam bilangan. program Tutorial5_2; Uses wincrt; var bilangan1,bilangan2:integer; operator:char; begin writeln(‘masukan bilangan 1′); readln(bilangan1); writeln(‘masukan bilangan 2′); readln(bilangan2); writeln(‘pilih operator matematika yang anda inginkan:’);readln(operator); case operator of ‘+’:begin writeln(bilangan1,’+’,bilangan2,’=’,bilangan1+bilangan2,’.’); writeln(‘operasi penjumlahan’); end; ‘_’:begin writeln(bilangan1,’_’,bilangan2,’=’,bilangan1-bilangan2,’,’); writeln(‘operasi pengurangan’); end; ‘*’:begin writeln(bilangan1,’*’,bilangan2,’=’,bilangan1*bilangan2,’,’); writeln(‘operasi perkalian’); end; else writeln(‘gunakan+,-,*,or/sebagai operator. coba lagi.’); end; end.

uses wincrt; const jenis=’ikan hias yang mahal harganya’; ikan=’ikan arwana jenis red dan gold’; var sifat:string[90]; begin sifat:=jenis+”+’ adalah ‘+ikan; writeln(sifat); end.

Contoh Script untuk pengulangan kata dgn “While Do” Uses wincrt; var Nilai,Total,rata_rata:real; i:integer; lagi:char; begin Clrscr; Writeln(‘ !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!’); Writeln(‘ * www.cbn.net.id *’); Writeln(‘ * internet@your.fingertips *’); Writeln(‘ !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!’); Writeln(‘ —o0 Quiz For Development Officer 0o—’); Writeln(‘ <<>>’); Writeln(‘ 1.Broadband ‘); Writeln(‘ 2.Dial up’); Writeln(‘ 3.Dedicated Lan’); Writeln(‘ 4.Wireless’); Writeln(‘ 5.Data Center’); i:=0; nilai:=0; Total:=0; lagi:=’Y’; [...]