Skip navigation

Arie Handoyo 14409208 3IB02A uses crt; untuk inisialisasi program yang digunakan var pil:char; untuk mendeklarasikan variabel sebagai character begin writeln(’1.Rp 50.000,- ‘ ) ; writeln(’2.Rp 100.000,- ‘ ); writeln(’3.Rp 150.000,- ‘ ) ; write(’menu pilihan anda:’);readln(pil); blok program utama if pil=’1′ then writeln(’anda memilih bahan perak‘ ) untuk menampilkan output bila memilih pilihan pertama else if pil=’2′ then writeln(’anda memilih bahan irridium‘ ) untuk menampilkan output bila memilih pilihan kedua else if pil=’3′ then writeln(’anda memilih bahan platina‘ ) untuk menampilkan output bila memilih pilihan ketiga else writeln(’maaf pilihan anda tidak tersedia′); untuk menampilkan output bila anda memasukkan pilihan yang tidak tersedia readln; end. statement untuk mengakhiri program.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: