perkalian matriixxx..

program kalimatr;
kamus:
a:array[1..2,1..3] of integer
b:array [1..3,1..2] of integer
c:array[1..2,1..2] of integer
i,j: integer
algoritma:
l <-0; k <-0;
i traversal [1..2]
begin
j traversal [1..2]
begin
if j mod 2=1 then
begin
c[i,j] <- a[j,j]*b[j,j+l] + a[j,j+1]*b[j+1,j+l] + a[j,j+2]*b[j+2,j+l];
l <-l+1;
end;
if j mod 2=0 then
begin
c[i,j] <- a[j,j-1]*b[j-1,1+k] + a[j,j]*b[j,1+k] + a[j,j+1]*b[j+1,1+k];
k<-k+1;
end;
end;
end;
i traversal [1..2]
begin
j traversal[1..2]
begin
output(c[i,j]);
end;

pengurangan matrixxx

program krangmatr;
kamus:
a,b,c : array [1..2,1..3] of integer;
i,j: integer;
algoritma:
i traversal [1..2]
begin
j traversal[1..3]
begin
c[i,j] <- a[i,j] - b[i,j]
end;
end;
i traversal [1..2]
begin
j traversal[1..3]
begin
output(c[i,j]);
end;
end;

penjumlahan matrixxx

program jumlahmatr;
kamus:
a,b,c : array [1..2,1..3] of integer;
i,j: integer;
algoritma:
i traversal [1..2]
begin
j traversal[1..3]
begin
c[i,j] <- a[i,j] + b[i,j]
end;
end;
i traversal [1..2]
begin
j traversal[1..3]
begin
output(c[i,j]);
end;
end;

couple 5 Kata

program 5kata;
{menghitung banyak kata 'kamui' dalam pita karakter}
kamus:
CC,C1,C2: string
count: integer
procedure startcouple;
start;
C1 <- ''
C2 <- CC
procedure advcouple;
adv;
C1 <- C2
C2 <- CC
algoritma:

startcouple;
count <- 0
while CC<>'.' do
begin
if C1='k' and C2='a' then
begin
advcouple;
if C1='m' and C2='u' then
begin
advcouple;
if C1='i' then
begin
count <- count+1
end;
end;
end;
advcouple;
end;
output(count);

cOUple 4 Kata

Program 4kata;
{mencari berapa banyak kata 'suka' dalam pita karakter}
kamus:
Count: integer;
C1,C2.CC: string;
procedure start_couple;
start;
C1 <- ''
C2<- CC
procedure adv_couple;
adv;
C1 <- C2
C2 <- CC
algoritma:
start_couple;
count <- 0
while CC<>'.' do
begin
if C1='s' and C2='u' then
begin
adv_couple;
if C1='k' and C2='a' then
begin
count <- count+1;
end;
adv_couple;
end;
output(count);