tag:blogger.com,1999:blog-81920630557716101082012-02-16T01:23:32.830-08:00Ryan_RPLhttp://www.blogger.com/profile/07684460179177974595noreply@blogger.comBlogger11100tag:blogger.com,1999:blog-8192063055771610108.post-17179821888000615472007-11-18T04:46:00.000-08:002007-11-18T04:48:12.369-08:00uses crt;<br /> var<br />a,b,c,d:integer;<br />e,f,g:real;<br /> begin<br />clrscr;<br /> repeat<br /> textcolor(11);<br />writeln('************');<br /> writeln;<br />writeln('program kalkulator');<br /> writeln;<br />writeln('macam-macam program kalkulator:');<br /> writeln('1.tambah');<br /> writeln('2.kurang');<br /> writeln('3.kali');<br /> writeln('4.bagi');<br /> writeln('5.keluar');<br />writeln('************');<br /> writeln;<br />writeln('silahkan anda memilih apa yang anda inginkan');<br /> readln(a);<br />clrscr;<br /> case a of<br />1:begin<br />writeln('masukan angka :');readln(b);<br />writeln('masukan angka :');readln(c);<br /> d:=b+c;<br />writeln('hasil:',d);readln;<br /> end;<br />2:begin<br />writeln('masukan angka :');readln(b);<br />writeln('masukan angka :');readln(c);<br /> d:=b-c;<br />writeln('hasil :',d);readln;<br /> end;<br />3:begin<br />writeln('masukan angka:');readln(b);<br />writeln('masukan angka:');readln(c);<br /> d:=b*c;<br />writeln('hasil:',d);readln;<br /> end;<br />4:begin<br />writeln('masukan angka:');readln(e);<br />writeln('masukan angka:');readln(f);<br /> g:=e/f;<br />writeln('hasil:',g);readln;<br /> end;<br /> end;<br />writeln('************');<br /> writeln;<br />writeln('terima kasih telah mencoba program pascal ini');<br /> writeln;<br />writeln('************');<br />readln;<br /> until a=5<br />end.<div class="blogger-post-footer"><img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/8192063055771610108-1717982188800061547?l=ryan-rpl.blogspot.com' alt='' /></div>Ryan_RPLhttp://www.blogger.com/profile/07684460179177974595noreply@blogger.com0