#_XiA0u YUe_#

perkalian matriixxx..

2008-12-28T04:03:00.000-08:00

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

2008-12-28T04:00:00.000-08:00

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

2008-12-28T03:45:00.000-08:00

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

2008-12-28T03:27:00.000-08:00

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

2008-12-28T03:09:00.000-08:00

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..

2008-11-16T04:30:00.000-08:00

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

2008-11-11T00:11:00.000-08:00

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..

Hi there!!!

2008-11-08T01:21:00.000-08:00

Menulis bukanlah suatu kegiatan yang gampang. Tapi juga bukan suatu pekerjaan yang sulit. menulis bisa menjadi sangat menyenangkan bagi orang-orang yang bisa menikmatinya. menikmati dan meresapi manfaat yang bisa didapat dari kita menulis, memulainya dan menjadikannya suatu hobi bukan sesuatu yang mustahil. Keterampilan menulis itu sangat penting untuk jaman sekarang ini. Apalagi, jika beruntung kita dapat menghasilkan uang dari hobi menulis kita. ^-^
So, jangan berhenti menulis...
Ayuuuu, Ganbatte Kudasai!!!!!