Program Perkalian Matriks dengan Pascal

Program perkalian matrik 2x3 dengan 3x4 yang menghasilkan matrik 2X4. Berikut codingnya:

Program perkalian_matrik;
uses wincrt;
const
  Amatrik23 : array [1..2, 1..3] of integer = ((2,3,1),(1,4,1));
  Bmatrik34 : array [1..3, 1..4] of integer = ((3,2,5,2),(2,1,1,4),(3,6,2,1));
var
  Cmatrik24 : array [1..2, 1..4] of integer;
  i,j,k : integer;
begin
  clrscr;
  for i := 1 to 2 do
  begin
    for j := 1 to 3 do
    begin
      write(Amatrik23[i,j]:3);
    end;
    writeln;
  end;

  for j := 1 to 3 do
  begin
    for k := 1 to 4 do
    begin
      writeln;
      write(Bmatrik34[j,k]:4);
    end;
    writeln;
  end;

  for i := 1 to 2 do
  begin
    for k := 1 to 4 do
    begin
      Cmatrik24[i,k]:=0;
      for j := 1 to 3 do
      begin 
        Cmatrik24[i,k] := Cmatrik24[i,k] + Amatrik23[i,j] * Bmatrik34[j,k];
      end;
    end;
  end;

  writeln;
  writeln('Hasil Perkalian Matrik');
  for i := 1 to 2 do
  begin
    for k := 1 to 4 do
    write(Cmatrik24[i,k]:4);
    writeln;
  end;
end.



Selamat mencoba!! ^_^

Read More

Fungsi SQR dan SQRT dalam pascal

Untuk mendefinisikan kwadrat dan akar kwadrat di dalam fungsi matematika dipakai perintah:

SQR  untuk kwadrat

SQRT untuk akar kwadrat

Argumen fungsi SQR dan SQRT bias variable atau konstanta dengan tipe real ataupun integer, tapi hasil harus real.

contoh program menghitung panjang sisi miring segitiga siku-siku (sqr & sqrt)

Program Sisi_Miring;

Uses wincrt;

Var

   a,b,c:real;

Begin

    clrscr;

    write('Masukkan sisi A = '); readln(a);

    write('Masukkan sisi B = '); readln(b);

    c:=sqrt((sqr(a))+(sqr(b)));

    writeln('Panjang sisi miring = ',c:2:2);

End.

Selamat mencoba!!

Read More