Pemrograman

Membuat Program Pangkat

program pangkat;
uses wincrt;
var i,j,k:integer;

begin
        k:=1;
        write('Masukkan Nilai              :   ');readln(i);
        write('Masukkan pangkat         :   ');readln(j);

     
        for j:=1 to j do
        k:=k*i;

        write('i,' pangkat ',j,' =  ',k);
end.


Membuat Program Perkalian Matriks

uses wincrt;
type
larik=array [0..50,0..50] of integer;

var
A,B,C:larik;
i,j,x,y,mb1,mb2,mk1,k,mk2:integer;

begin
     write('Masukkan jumlah baris matriks 1: ');readln(mb1);
     write('Masukkan jumlah kolom matriks 1: ');readln(mk1);
     writeln;
     write('Masukkan jumlah baris matriks 2: ');readln(mb2);
     write('Masukkan jumlah kolom matriks 2: ');readln(mk2);

     if (mk1=mb2)
     then
     begin
     clrscr;
     x:=-2;
     y:=3;
     writeln('Matriks I');
     for i:=0 to mb1-1 do
     begin
          for j:=0 to mk1-1 do
          begin
               x:=x+3;
               y:=y;
               gotoxy(x,y);
               readln(A[i,j]);
          end;
          x:=-2;
          y:=y+2;
     writeln;
     end;

     writeln('Matriks II');
     y:=y+2;
     for i:=0 to mb2-1 do
     begin
          for j:=0 to mk2-1 do
          begin
               x:=x+3;
               y:=y;
               gotoxy(x,y);
               readln(b[i,j]);
          end;
          x:=-2;
          y:=y+2;
     writeln;
     end;

     for i:=0 to mb1-1 do
     begin
          for j:=0 to mk2-1 do
          begin
               for k:=0 to mk1-1 do
               begin
                    C[i,j]:=((A[i,k]*B[k,j])+C[i,j]);
               end;
          end;
     end;


     write('Matriks hasil perkalian');
     y:=y+2;
     for i:=0 to mb1-1 do
     begin
          for j:=0 to mk2-1 do
          begin
               x:=x+3;
               y:=y;
               gotoxy(x,y);
               write(C[i,j]);
          end;
          x:=-2;
          y:=y+2;
     writeln;
     end;
     end
     else
     write('Perkalian matriks tidak bisa dilakukan');
end.