Berikut merupakan kode perkalian 2 matrix :

uses crt;
var
a,f,k:array[1..100,1..100] of integer;
b,c,i,j,l,z:longint; m,n,d,e,g,h:byte;
begin clrscr;
write(' Program Perkalian 2 Matriks');readln;writeln;writeln;
writeln('Masukkan data untuk matriks pertama (M1)'); writeln;
write('banyaknya baris matriks pertama: '); readln(b);
write('banyaknya kolom matriks pertama: '); readln(c);writeln;
for d:= 1 to b do
begin
for e:= 1 to c do
begin
write('entri baris ke-',d,' kolom ke-',e,': '); readln(a[d,e]);
end;
end...
Continue reading ...

Kali ini saya akan memaparkan bagaimana membuat space(tempat) untuk spasi. ini biasanya digunakan untuk pembuatan tabel, ini hanya diperlukan untuk kerapian. kususnya peng arsipan.


program spasi;
uses crt;
type data=record
     nama,nim:string;
     end;

var i,text:integer;
dt : array[1..2] of data;
function spasi(teks:string):string;
var teks1:string;
j:integer;
begin
teks1:=teks;
for j := 1 to (20-length(teks1)) do
teks1 := teks1 + ' ';
spasi := teks1;

end;

begin
for i := 1 to 2 do
begin
write('masukkan nama :...
Continue reading ...

Record adalah sebuah sebuah bentuk yang dapat menampung variabel yang berbeda. sedangkan array adalah berfungsi untuk menampung data dengan index yang ada, sehingga cukup 1 variabel yang digunakan.
record dan array dapat digabungkan sebagai berikut

program record&array;
uses crt;
type
    Thiphop = record
            nama : string[20];
            alamat : string[30];
            Nick   : string[10];
            end;
var i:byte;
hiphoper :array[1..6] of Thiphop;
begin
writeln('inputkan kosong / enter unt...
Continue reading ...