Program Kombinasi Menggunakan Procedure

Begini hasil run dari programnya : 









program combination;

uses crt;

var n,z,r,i,b:longint;

procedure faktorial(var a:longint);

var

x:longint;

begin

x:=1;

for i := a downto 1 do

x:=x*i;

a:=x;

end;

procedure kombinasi(var l:longint);

begin

faktorial(z);

b:=r*z;

l:=n div b;

writeln;

writeln('Hasil dari Kombinasi = ',l);

writeln('______________________________');

end;

begin

clrscr;

write('masukkan nilai n! =  '); readln(n);

b:=n;

faktorial(n);

write('masukkan nilai r! =  '); readln(r);

z:=b-r;

faktorial(r);

kombinasi(r);

readkey;

end.

Program Perkalian Matriks

Program perkalian matriks dengan orde 3x3 ke atas.

program matrik;
uses crt;
const
     orde = 10;
type
    matrix = array[1..orde,1..orde] of integer;
var
    M1,M2 : matrix;
    m,n,pil : integer;
procedure isimatrik;
var  i,j : integer;
begin
     writeln('Penentuan Tipe  MATRIKS A');
     writeln('=============================================================');
     writeln;
     write('Masukan banyak baris matriks A = '); readln(m);
     write('Masukan banyak kolom matriks A = '); readln(n);
     for i:=1 to m do
         for j:=1 to n do
             begin
             write('Matriks A[',i,',',j,']: ');
             readln(M1[i,j]);
             end;

     writeln('Penentuan Tipe MATRIKS B');
     writeln('=============================================================');
     writeln;
     write('Masukan banyak baris matriks B = '); readln(m);
     write('Masukan banyak kolom matriks B = '); readln(n);
     for i:=1 to m do
         for j:=1 to n do
             begin
             write('Matriks B[',i,',',j,']: '); readln(M2[i,j]);
             end;
end;
procedure kalimatrik(M1,M2 : matrix);
var hasil : matrix;
    i,j,z   : integer;
    begin
     for i:=1 to m do
         for j:=1 to n do
             begin
                  hasil[i,j]:=0;
                  for z:=1 to m do
                  hasil[i,j]:=hasil[i,j]+M1[i,z]*M2[z,j];
             end;


     writeln;
     writeln;
     writeln('Hasil perkalian Matriks A dan Matriks B: ');
     writeln;
     writeln('Matriks A');
     writeln('------------->>');
     for i:= 1 to m do
        begin
           for j:=1 to n do
            write(M1[i,j],'   ');
            writeln;
            writeln;
        end;


     writeln;
     writeln('Matriks B');
     writeln('------------->>');
     for i:=1 to m do
        begin
           for j:= 1 to n do
            write(M2[i,j],'   ');
            writeln;
            writeln;
        end;


     writeln;
     writeln('Hasil perkalian MATRIX');
     writeln;
     for i:=1 to m do
         begin
         for j:=1 to n do

             write(hasil[i,j],'    ');
             writeln;
             writeln;
             writeln;
             end;
             writeln;
end;

begin
     Clrscr;
     isimatrik;
     kalimatrik(M1,M2);
     readln;
end.

Program Penjumlahan Matriks

Program penjumlahan matriks  dengan menggunakan perintah procedure pada bahasa pemrograman pascal memiliki beberapa perbedaan dengan yang tidak menggunakan perintah procedure.Namun, jika mau di bandingkan program yang menggunakan procedure jauh lebih muda.
program matriks;
uses crt;
const
     orde = 10;
type matrix = array[1..orde,1..orde] of integer;
var M1,M2 : matrix;
    m,n,pil : integer;
procedure isimatrik;
var  i,j : integer;
begin
     writeln('Penentuan Tipe Matriks 1');
     writeln('==============================================================');
     writeln;
     write('Masukan banyak baris matriks 1 = ');readln(m);
     write('Masukan banyak kolom matriks 1 = ');readln(n);
     for i:=1 to m do
         for j:=1 to n do
             begin
             gotoxy(j*12,i*7);
             readln(M1[i,j]);
             end;
     clrscr;
     writeln('Penentuan Tipe Matriks 2');
     writeln('================================================================');
     writeln;
     write('Masukan banyak baris matriks 2 = ');readln(m);
     write('Masukan banyak kolom matriks 2 = ');readln(n);
     for i:=1 to m do
         for j:=1 to n do
             begin
             gotoxy(j*12,i*7);
             readln(M2[i,j]);
             end;
end;
procedure jumlahmatrik(M1,M2 : matrix);
var hasil : matrix;
    i,j   : integer;
begin
     for i:=1 to m do
         for j:=1 to n do
             begin
                 hasil[i,j]:=m1[i,j]+m2[i,j];
             end;
     clrscr;
     writeln('Hasil Penjumlahan Matriks');
     writeln('================================================================');
     for i:=1 to m do
         for j:=1 to n do
             begin
             gotoxy(j*12,i*7);
             write(hasil[i,j]);
             end;
end;
begin
clrscr;
isimatrik;
jumlahmatrik(M1,M2);
readln;
end.

Program konversi suhu (celcius ke reamur dan celcius ke fahrenheit)

Nih, ada program konversi suhu di atas dengan menggunakan program pascal.Pasti banyak yang udah pada tahu caranya.Nah, bagi yang belum tahu ni gue beritahukan caranya .
It is simple guys...

Program Mengkonvensi_Suhu;

uses crt;

var C,F,R : real ;

begin

Clrscr;

       writeln (' Program konversi suhu C-R dan C-F');

       writeln ;

       write (' Masukkan besar derajat celcius   :') ;

       readln (C);

       R:= (4/5)*C;

       F:= (180/100)*C+32;

       writeln ;

       writeln ('Jadi suhu dalam reamur adalah :',r:2:2);

       write ('Jadi suhu dalam fahrenheit adalah :',F:2:2);

readln;

end.