Program Pertambahan 2 Matriks Ordo 4X3 di Pascal

Sintak Programnya :

PROGRAM pertambahan_2_matrik_ordo_4x3;
USES WINCRT;
VAR
 Matrik1 : ARRAY [1..4,1..3] OF INTEGER;
Matrik2 : ARRAY [1..4,1..3] OF INTEGER;
Matrik3 : ARRAY [1..4,1..3] OF INTEGER;
   A, B: INTEGER;
BEGIN
WRITEln('masukan nilai matrik ke-1 :');
writeln('---------------------------');
     FOR A :=1 TO 4 DO
     BEGIN
          FOR B := 1 TO 3 DO
          BEGIN
               wRITE('Data nilai ke-[',A,',',B,']');
               READLN(matrik1[A][B]);
          END;
     END;

Program Perkalian 2 Matriks Ordo 2x3 di Pascal

Pada kesempatan kali ini saya akan posting Program Perkalian 2 Matrix Ordo 2x3 di Pascal.

Sintak programnya :

perkalian_2_matrik_ordo_2x3;
USES WINCRT;
VAR
 Matrik1 : ARRAY [1..2,1..3] OF INTEGER;
Matrik2 : ARRAY [1..2,1..3] OF INTEGER;
Matrik3 : ARRAY [1..2,1..3] OF INTEGER;
   A, B: INTEGER;
BEGIN
WRITEln('masukan nilai matrik ke-1 :');
writeln('---------------------------');
     FOR A :=1 TO 2 DO
     BEGIN
          FOR B := 1 TO 3 DO
          BEGIN
               wRITE('Data nilai ke-[',A,',',B,']');
               READLN(matrik1[A][B]);
          END;
     END;

Membuat Program Penjualan Menggunakan Turbo Pascal

Pada kesempatan kali ini saya akan posting membuat program penjualan menggunakan turbo pascal.

Sintak programnya :

Program Penjualan;
uses wincrt;
const
jenis_barang = 20;
a = '********************************************************************************';
b = ' INPUT DATA BARANG';
c = '----------------------------------------------------------------------------------------------------';
d = ' OUTPUT DATA BARANG ';
e ='===================================================';
Type
recordbarang = record
Kode : string[6];
Nama : string[15];
Jumlah : byte;
Ukuran : string[12];
harga_unit:real;
end;