Program Aritmatika Pada Pascal

Buatlah program aritmatika pada pascal dengan menjumlahkan, mengurangkan, mengalikan, membagi, mengakarkan, serta mempangkatkan bilangan 1 dan bilangan 2 sehingga menyerupai tampilan diatas.

Jawab :

PROGRAM ARITMATIKA;

Uses crt;

var

   a1,a2 : integer;

   jml,krg,kali : integer;

   bagi,akr,pgkt : real;

Begin

   clrscr;

   write('masukkan angka 1:');

   readln(a1);

   write('masukkan Angka 2:');

   readln(a2);

   jml:=a1+a2;

   krg:=a1-a2;

   kali:=a1*a2;

   bagi:=a1/a2;

   akr:=sqrt(jml);

   pgkt:=sqr(jml);

   writeln;

   writeln;

   writeln(a1,' + ',a2,' = ',jml);

   writeln(a1,' - ',a2,' = ',krg);

   writeln(a1,' x ',a2,' = ',kali);

   writeln(a1,' : ',a2,' = ',bagi:4:2);

   writeln('akr dari',jml,'=',akr:4:2);

   writeln(jml,'^2','=',pgkt:4:2);

   readln;

end.

Anda sedang membaca artikel tentang Program Aritmatika Pada Pascal dan Anda bisa menemukan artikel Program Aritmatika Pada Pascal ini dengan url http://gratisan69.blogspot.com/2012/04/program-aritmatika-pada-pascal.html. Anda boleh menyebarluaskan atau mengcopy artikel Program Aritmatika Pada Pascal ini jika memang bermanfaat bagi Anda atau teman-teman Anda, namun jangan lupa untuk mencantumkan link sumbernya.

Artikel Terkait