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);

TugasS ProkOm..

Soal:
Buatlah program untuk menghitung jumlah deret bilangan exponen dan menampilkannya dengan pendekatan Exp(x)= x + (x pangkat 2 / 2! ) + ( x pangkat 3 / 3! ) + ... + (x pangkat n / n!) banyaknya deret sesuai dengan inputan user.

Jawab:

Program htung_dret;

kamus:

a,b,i : integer;
exp, sum : real;

algoritma:
Output ('Masukkan nilai x : ');
Input (a);
Output ('Masukkan banyak deret : ');
Input (b);
i <- 1 ;
exp <- 1;
sum <- 0;
Repeat
exp <- exp*(a/i) ;
Output (exp,' ');
sum <- sum+exp;
i <- i+1;
until (i>b);

Output ('Jumlah bil deret : ',sum);

jUST on mY Own

Secercah mentari di haribaan diri..
Bergelayut lemah menjajali liku nestapa hati..
Dan awan-awan tlah berarak di persimpangan ..
Sebuah peradaban tlah mendongak tajam..
Menanti sang enggan menjemputnya dengan angan..
Dari arti, makna diri, titisan kalbu yang bertasbih..
Menjaga tabir dari makna-makna yang terukir..
Menatap pinta dari satuan bayang-bayang alam yang terakhir..