Program Penjumlahan Dan Pengurangan Matriks

program matrik_uts;
uses wincrt;
var
 a,b,c,d :array[1..10,1..10] of integer;
 x,y,kol,bar:integer;
begin
  write('jumlah kolom =');readln(kol);
  write('jumlah baris =');readln(bar);
  writeln;
  writeln('masukkan matrik  a');
        for x:=1 to bar do
  begin
        for y:=1 to kol do
  begin
    write('[',x,':',y,'] = ');readln (a[x,y]);
end;
end;
 writeln('masukkan matrik  b');
        for x:=1 to bar do
  begin
        for y:=1 to kol do
  begin
    write('[',x,':',y,'] = ');readln (b[x,y]);
end;
  end;

writeln('masukkan matrik  c');
        for x:=1 to bar do
  begin
        for y:=1 to kol do
  begin
    write('[',x,':',y,'] = ');readln (c[x,y]);
end;
  end;
      for x:=1 to bar do
  begin
        for y:=1 to kol do
        begin d[x,y]:= a[x,y]+b[x,y]-c[x,y]; />          end;
          end;
        writeln('hasil penjumlahan');

        for x:=1 to bar do
  begin
        for y:=1 to kol do
  begin
    write (d[x,y]:4);
end;

writeln;
end;
    
end.

Tampilan 

Read More...

BY REFERENCE ATAU SECARA ACUAN/MATEMATIKA

program procedure3;
uses wincrt ;
var
L,M,N:integer;
procedure tambah (A,B,C:integer);
begin
C:=A+B;
end;
begin
write('A=');readln(L);
write('B=');readln(M);
tambah(L,M,N);
writeln('C=',N);
writeln('   nama : misbahul munir     ');
writeln('      nim  : 11122067        ');
writeln('www.munirmaestro.blogpsot.com');
end.

Read More...

BY Value ATAU SECARA NILAI/MATEMATIKA

program procedure2;
uses wincrt ;
var
M,N:integer;
procedure tambah (A,B:integer);
var
c:integer;
begin
C:=A+B;
writeln('C=',C);
end;
begin
write('A=');readln(M);
write('B=');readln(N);
tambah(M,N);
writeln('   nama : misbahul munir     ');
writeln('      nim  : 11122067        ');
writeln('www.munirmaestro.blogpsot.com');
end.

Read More...

PROCEDURE 1 ATAU SECARA STANDART/SEMUA BAHAN

program procedure1;
uses wincrt ;
var
a,b,c:integer;
procedure tambah;
begin
write('A=');readln(A);
write('B=');readln(B);
C:=A+B;
writeln('C=',C);
end;
begin
tambah;
writeln('   nama : misbahul munir     ');
writeln('      nim  : 11122067        ');
writeln('www.munirmaestro.blogpsot.com');
end.

Read More...

Program Perkalian Matrix

Program kali_matriks;
uses wincrt;
type
matriksint = array [1..20,1..20] of integer;
var
M,a,b : matriksint; p , q: integer;
procedure bacamatriks (var M:matriksint;Nbar,Nkol:integer);
var i,j: integer;
begin
 for i:=1 to Nbar do
   begin
    for j:= 1 to Nkol do
     begin
       write ('M[',i,',',j,'] = ');readln (M[i,j]);
     end;
   end;
end;
procedure tulismatriks (var M:matriksint;Nbar,Nkol:integer);
var i,j : integer;
begin
 for i:= 1 to Nbar do
 begin
   for j:= 1 to Nkol do
     begin
       write (M[i,j]:4);
     end;
   writeln;
 end;
end;
procedure kalimatriks (a,b:matriksint; Nbar,Nkol : integer);
var
hasil:matriksint;
i,j,z : integer;
begin
  for i := 1 to Nbar do
  begin
   for j := 1 to Nkol do
   begin
   hasil[i,j] := 0;
    for z := 1 to Nbar do
    hasil[i,j] := hasil[i,j]+a[i,z]*b[z,j];
    begin
    gotoxy (j*5,i*23);
    write(hasil[i,j]:4) ;
    end;
   end;
   writeln;
  end;
end;
begin
  writeln ('MATRIK A ');
  write ('masukkan jumlah baris : '); readln (p);
  write ('masukkan jumlah kolom : '); readln (q);
  bacamatriks (a,p,q);
  write ('A = ');
  writeln;
  tulismatriks (a,p,q);
  writeln;
  writeln ('MATRIKS B ');
  write ('masukkan jumlah baris : '); readln (p);
  write ('masukkan jumlah kolom : '); readln (q);
  bacamatriks (b,p,q);
  write ('B = ');
  writeln;
  tulismatriks (b,p,q);
  writeln ('hasil perkalian matriks adalah : ');
  kalimatriks (a,b,p,q);
end.

Tampilan Saat  Di running

Read More...

PROGRAM MATRIX

PROGRAM MATRIX;
uses
  WinCrt;
var
A,B,C:ARRAY[1..10,1..10] OF INTEGER;
X,Y,KOL,BAR:INTEGER;
BEGIN
FOR X:=1 TO 5 DO
BEGIN
FOR Y:=1 TO 5 DO
BEGIN
   C[X,Y]:=0;
   IF X+Y=6 THEN C[X,Y]:=1;
   WRITE(C[X,Y]:4);
 END;
 WRITELN;
 END;
      writeln('    nama : misbahulmunir    ');
      writeln('      nim  : 111221067     ');
      writeln('www.munirmaestro.blogpsot.com');
 
 END.

Read More...

Matrix Invers

program matriks_invers;uses wincrt;
var n,i,j,x,y,k,l,m: integer;
a:array[1..20,1..20] of real;
begin
{gotoxy (10,1);}
writeln ('nama : misbahul munir');
writeln;
writeln ('nim  : 111221067     ');
writeln;
writeln ('Program Pencarian Invers Matriks');
writeln;
writeln ('Masukkan ordo matrik (n x n).');
write ('n : ');
readln (n);
writeln;
for i:=1 to n do
begin
for j:=1 to n do
begin
write ('A(',i,',',j,') : ');
readln (a[i,j]);
end;
end;
writeln;
for i:=1 to n do
begin
for j:=1 to n do
write (' ',a[i,j]:0:0);
writeln;
end;
{MATTRIK SISI KANAN}
for j:=n+1 to n+n do
begin
i:=j-n;
a[i,j]:=1;
end;
for j:=n+1 to n+n do
begin
for i:=1 to n do
if i<>j-n then a[i,j]:=0;
end;
{PROSES PENGINVERSAN}
for i:=1 to n do
begin
for j:=1 to n+n do
begin
if i<>j then a[i,j]:=a[i,j]/a[i,i];
end;
for j:=1 to n+n do
begin
if i=j then a[i,j]:=1;
end;
{PENJUMLAHAN KESATU BARIS ELEMENT}
for l:=1 to n do
begin
if i<>l then
begin
for j:=i+1 to n+n do
begin
a[l,j]:=a[l,j]-(a[i,j]*a[l,i]);
end;
end;
end;
{PEMBUATAN NOL DISEKITAR MATRIKS KIRI}
for k:=1 to n do
begin
if i<>k then
begin
a[k,i]:=0;
end;
end;
end;
{PENCETAKAN}
readln;
writeln('Maka invers dari matrik adalah :');
for i:=1 to n do
begin
for j:=n+1 to n+n do
write (' ',a[i,j]:0:2);
writeln;
end;
readln;
end.

Read More...

program kombinasi_faktorial

program kombinasi_faktorial;

uses wincrt;
var
fn,fk,fn_k,Kombinasi:real;
i,n,k:integer;
begin
write('Masukkan bilangan n =');readln(n);
write('Masukkan bilangan k =');readln(k);
fn:=1;
fk:=1;
fn_k:=1;
for i:= 2 to n do{Menghitung n faktorial}
fn:=fn*i;
for i := 2 to k do{Menghitung k faktorial}
fk:=fk*i;
for i:= 2 to (n-k) do{ menghitung n-k faktorial}
fn_k:=fn_k*i;
kombinasi:=fn/(fk*fn_k);
writeln(n,' Kombinasi ',k, ' = ',Kombinasi:0:0);
write('');writeln;
write('');writeln;
write('  MATERI KOMBINASI FAKTORIAL  ');writeln;
write('   NAMA   :  MISBAHUL MUNIR   '); writeln;
write('     NO NIM :  111221067     '); writeln;
write('www.munirmaestro.blogpsot.com');writeln;
end.

Read More...