Secara menadasar pemangkatan dilakukan dengan bilangan yang dipilih dilkalikan dengan bilangannya sendiri sebanyak bilangan yang menjadi pangkat

Pembuatan Pemangkatan dalam Pascal

Hai Codinger,

 

Kali ini saya akan memaparkan tentang pemangkatan dalam pascal. Secara menadasar pemangkatan dilakukan dengan bilangan yang dipilih dilkalikan dengan bilangannya sendiri sebanyak bilangan yang menjadi pangkat, contoh 3 pangkat 2 bermaksud bahwa kita akan mengalikan 3 dengan 3 sebanyak 2 kali.

dalam Pascal akan lebih mudah dalam kita membuatnya, karena pascal meruakan progrma menadasr untuk kita membangun sebuah rumus, apalagi rumus ini sudah dasarnya sehingga kita tinggal menerapkan saja.

Sebelum kita membuat rumus legkapnya, kita membuat Function dulu, berikut scriptnya :

function pangkat(a:real;b:integer):real;

var
        i:integer;
        c:real;
begin
        c:=1;
        for i:=1 to b do
        c:=c*a;
        pangkat:=c;
end;

Fungsi tersebut bermaksud bahwa variabel pangkat memiliki variabel global yaitu a bertipe real yang menjadi bilangan menjadi bilangan yang akan dipangkatkan, jadi bilangan yang dipangkatan boleh bilangan real (contoh : 4,5 ), kemudian variabel global bertipe integer yang menyatakan bilangan yang menjadi pangkat yang berarti tidak boleh bilangan real hanya boleh bilangan bulat (contoh: 4).

kemudian variabel lokal yang digunakan yaitu i bertipe integer dan c bertipe sebagai real. Kemudian dalam Badan program, c diisi dengan bilangan 1 untuk melakukan perulangan, kemudian melakukan perulangan dari 1 sampai sebanyak bilangan yang menjadi pangkat (b). kemudian membuat perulangan dengan rumus c diisi dengan c dikali dengan a (bilangan yang akan dipangkatkan), kemudian akan dikembalikan nilai pangkat yang diisi dengan nilai c.

kemudian kita membuat badan program, berikut scriptnya :

var
        n:real;
        x:integer;

begin
        clrscr;
        Writeln('Program untuk menghitung Pangkat');
        writeln;
        write('Bilangan N : ');readln(n);
        write('Pangkat X  : ');readln(x);
        writeln;
        writeln(n:0:2,' pangkat ',x,' = ',pangkat(n,x):0:2);
        readln;
end.

Dalam badan program bermaksud bahwa varibal global yang digunakan adalah n yang bertipe real yang menjadi bilangan yang akan dipangkatkan, kemudian variabel x yang menjadi bilangan yang menjadi  pangkat. Kemudian dalam badan program terdapat clrscr; yang merupakan Command untuk memanggil peng-clear window, kemudian melakukan command output dan melakukan proses input untuk mengisi nilai n dan x kemudian memanggil function pangkat.

 

Kemudian ini adalah script lengkapnya :

program hitungpangkat;

uses crt;

function pangkat(a:real;b:integer):real;

var
        i:integer;
        c:real;
begin
        c:=1;
        for i:=1 to b do
        c:=c*a;
        pangkat:=c;
end;

var
        n:real;
        x:integer;

begin
        clrscr;
        Writeln('Program untuk menghitung Pangkat');
        writeln;
        write('Bilangan N : ');readln(n);
        write('Pangkat X  : ');readln(x);
        writeln;
        writeln(n:0:2,' pangkat ',x,' = ',pangkat(n,x):0:2);
        readln;
end.

Dalam program ini adalah program yang saya build sendiri, rekan-rekan Codinger bisa tambahkan sendiri dalam pengisian kondisi ketika bagaimana ketika user memasukan nilai real dalam variabel integer, dll.

 

berikut screenshot running program

 

selamat mencoba rekan-rekan Codinger.


About Author

Rizka Reza Pahlevi

Nothing, zero.


Comment & Discussions

    Please LOGIN before if you want to give the comment.