Tugas 3

program menuOK;

uses wincrt;

var tanya,pilih:char;

 

 

procedure kali;

var a,b:integer;

hasil:real;

begin

clrscr;

writeln(‘Masukan bil1 yang diakar:’);

readln(a);

writeln(‘Maskan bil2 yang diakar:’);

readln(b);

hasil:=sqrt(a)*sqrt(b);

writeln(‘Hasilnya adalah:’,hasil:2:4);

end;

 

procedure bagi;

var a,b:integer;

hasil:real;

begin

clrscr;

writeln(‘Masukan bil1 yang diakar:’);

readln(a);

writeln(‘Maskan bil2 yang diakar:’);

readln(b);

hasil:=sqrt(a)/sqrt(b);

writeln(‘Hasilnya adalah:’,hasil:2:4);

end;

 

procedure pangkat;

var a,b:integer;

hasil:real;

i:byte;

 

begin

clrscr;

hasil:=1;

writeln(‘Masukan bilangan yang diakar:’);

readln(a);

write(‘Pangkat berapa?’);

readln(b);

for i := 1 to b do

 

begin

hasil:=hasil*sqrt(a);

end;

writeln(hasil)

end;

 

 

begin

repeat

clrscr;

writeln(‘====================’);

writeln(‘Program operasi akar’);

writeln(‘====================’);

writeln(‘1.Perkalian akar’);

writeln(‘2.Pembagian akar’);

writeln(‘3.Perpangkatan akar’);

writeln(‘Masukan pilihan anda:’);

readln(pilih);

case pilih of

‘1’:kali;

‘2’:bagi;

‘3’:pangkat;

else

writeln(‘Lihat baik baik!!!’);

end;

write(‘Anda masih mau lanjut[TEKAN y/t]:…’);

readln(tanya);

until tanya=’t’;

writeln(‘Terimakasih anda telah memakai program kami’);

end.