PROGRAM DATA MAHASISWA

Berikut ini adalah source codenya :
 

uses wincrt;
type
Mahasiswa = record
NIM : integer;
Nama : string[20];
Nilai: integer;
end;

var
TabMhs : array[1..100] of Mahasiswa;
bantuan : Mahasiswa;
a, b, n : integer;

procedure bacadata;
begin
  for a := 1 to n do
  begin
    writeln;

PROGRAM MATRIKS SKALAR

Berikut ini adalah source codenya :
 

uses wincrt;
type data = array[1..10,1..10] of integer;
var
   m1, m2, m3 : data;
   hasilmatriks : array [1..5, 1..5] of integer;
   m : data;
   i, j, u, v, w, a, b, c, k, skalar : integer;

procedure InputMatriks;
begin
  clrscr;
  writeln('***** Input Ordo Matriks (A x B) *****');
  write('Nilai A : '); readln(a);
  write('Nilai B : '); readln(b);
  clrscr;

PROGRAM PERKALIAN DUA MATRIKS

Berikut ini adalah source codenya :
 

uses wincrt;
type data = array[1..10,1..10] of integer;
var matriksI,matriksII : data;
    baris,kolom : integer;

procedure IsiMatriks;
var i,j : integer;
begin
  writeln('Penentuan ORDO MATRIKS I');
  write('Masukkan banyak baris matriks I = ');readln(baris);
  write('Masukkan banyak kolom matriks I = ');readln(kolom);

  for i:=1 to baris do
      for j:=1 to kolom do
      begin

PROGRAM FAKTORIAL

Berikut ini adalah source codenya :

uses wincrt;

function Faktorial(z:integer):longint;

begin

     if (z=1) then

        Faktorial := 1

     else

        Faktorial := z*faktorial(z-1);

end;

Program Cetak Angka Menurun

berikut ini adalah source codenya :

uses wincrt;

var

   x,y,n:integer;

   lagi:char;

begin

   repeat

   clrscr;

   write('Masukkan batas angka : '); readln(n);

   writeln;

   for x:=n downto 1 do

   begin

      for y:=x downto 1 do

      write(x);

      end;

   writeln;writeln;

   write('Lagi ......[Y/T]');lagi:=upcase(readkey);

   writeln(lagi);

   until lagi <> 'Y';

end.