Membuat Program Pangkat dengan mudah di Pascal

Membuat Program Pangkat dengan mudah di Pascal, untuk membuat program pangkat di pascal caranya memang agak berbeda dengan operasi aritmatika pada umumnya. Untuk program pangkat menggunakan tipe data function, dan berbeda dengan aritmatika yang biasanya menggunakan variabel (var). Langsung saja berikut adalah contoh kode Membuat Program Pangkat dengan mudah di Pascal.

uses wincrt;
var a,b:integer;
    hasil:real;
               function pangkat(x:integer):real;

begin
     hasil:=exp(x*ln(a));
     pangkat:=hasil;
                    end;

begin
     write('masukan angka = ');read(a);
     write('masukan pangkat = ');read(b);
     write('hasil dari ',a ,' pangkat ',b,' adalah ',pangkat(b):0:0);
     end.

Langsung saja dicoba di program pascal anda. Disini saya menggunakan TPW 1.5. Jika anda menggunakan TP 7.0 ganti tulisan uses wincrt dengan uses crt. Saya rasa anda sudah mengetahuinya tapi alangkah beiknya lagi saya mengingatkan.
Terima kasiihh.


nb: hargai karya orang dengan, like, follow, coment, and share