Senin, 02 Maret 2009

Tugas Algoritma

Kamus :
type :
table : array [1..25,1..25] of integer
var
A,B,C : byte
M,N,O : byte
I,J,K : byte

algo
{
Read (M,N,O)
input data matriks A
{
For i <-- 1 to M do
{
For j <-- 1 to N do Read (A[i,j]) } input data matriks B
For i <-- 1 to N do
{
For j <-- 1 to O do Read (B[i,j]) } Perkalian Matriks
For i <-- 1 to M do
{
For j <-- 1 to N do
{
For K <-- 1 to O do
writeln ( C [i,j]) <-- C[i,j] + A[i,k]*B[k,j]
}
}

Senin, 16 Februari 2009

Cerita Lama (Puisi Iqbal)

Sa'at yang membahagiakan
Waktu ku dengan dirinya
Tak mampu ku berkata
Aku sangat bahagia

Namun cinta suci ini
Mulai dia khianati
Dia menduakan aku
Dengan pria yang ku tahu

Sa'at aku teringat
Aku ingin menangis
Waktu aku
Melihat dia berdua

Dan aku tak mengerti
Mengapa harus dia
Dia adalah
Sahabat ku sendiri

Sa'at yang bahagia itu
Kini mulai terhapus
Kenangan bersama dirinya
Jadi cerita lama

Aku sungguh tak bisa
Untuk mema'afkannya
Meski aku
Merasa bahagia.......,bahagia.........