Source kode pascal 6

Program Prosedur_aktual;
Uses Wincrt;
Var Y:char;
    m:byte;
Procedure Tampil(x:char;n:byte);
Var i:integer;
Begin
  for i := 1 to n do
    Write(x);
  Writeln;
End;
Begin
  Tampil('+',8);
  Tampil('*',10);
  Tampil('A',5);
  Y:='B';
  m:=11;
  Tampil(Y,m);
End.



Program Prosedur_reference;
Uses Wincrt;
Var a,b,c : Integer;

Procedure Coba(x,y:integer; var z:integer);
Begin
  x:=x+1;
  y:=y+1;
  z:=x+y;
End;

Begin
  a:=2;b:=3;c:=0;
  Coba(a,b,c);
  Writeln('a = ',a);
  Writeln('b = ',b);
  Writeln('c = ',c);
End.


Program Tukar_Nilai;
Uses WinCrt;
Type Larik = Array [1..100] of Integer;
Var
   A,B    : Larik;
   i,x,m  : Byte;

Procedure Tukar;
Var T:Integer;
Begin
  x:=0;
  For i := 1 to m do
    Begin
      T:=A[i];
      A[i]:=B[i];
      B[i]:=T;
      Gotoxy(15+x,6);Write(A[i]);
      Gotoxy(15+x,7);Write(B[i]);
      x:=x+2;
    End;
End;

Procedure Input;
Var x:Byte;
Begin
  Randomize;
  x:=0;
  For i := 1 to m do
    Begin
      A[i]:=Random(10);
      B[i]:=Random(10);
      Gotoxy(15+x,12);Write(A[i]);
      Gotoxy(15+x,13);Write(B[i]);
      x:=x+2;
    End;  
End;

Begin
  Gotoxy(21,1);Write('Program Menukar Nilai Larik A & B');
  Gotoxy(21,2);Write('=================================');
  Gotoxy(1,4);Write('Jumlah Data : ');Readln(m);
  Gotoxy(5,6);Write('Nilai A:');
  Gotoxy(5,7);Write('Nilai B:');
  Input;
  Gotoxy(1,9);Write('Setelah Di Tukar');
  Gotoxy(1,10);Write('================');
  Gotoxy(5,12);Write('Nilai A:');
  Gotoxy(5,13);Write('Nilai B:');
  Tukar;
End.

Program Urut_Pecahan;
Uses Wincrt;
Var pmb,pny     : array [1..10] of integer;
    i,j,n       : integer;

Procedure Urut(x : integer);
Var t1,t2 : integer;
Begin
  For i := 1 to x-1 do
    For j := i+1 to x do
      Begin
        if ((pmb[i]/pny[i])>(pmb[j]/pny[j])) then
           Begin
             t1:=pmb[i];
             t2:=pny[i];
             pmb[i]:=pmb[j];
             pny[i]:=pny[j];
             pmb[j]:=t1;
             pny[j]:=t2;
           End;
      End;
End;
Begin
  Gotoxy(30,1);Write('Program Urut Pecahan');
  Gotoxy(30,2);Write('====================');
  Gotoxy(1,4);Write('Jumlah Data Pecahan: ');Readln(n);
  For i := 1 to n do
    Begin
      Gotoxy(1,5+i);Write('Input Pecahan ke-',i,' : ');Readln(pmb[i]);
      Gotoxy(24,5+i);Write('/ ');Readln(pny[i]);
    End;
  Urut(n);
  Writeln;
  Writeln('Hasilnya: ');
  For i := 1 to n do
    Writeln(pmb[i],'/',pny[i]);
End.