M lukmanul H

matriks

loekmans — Wed, 24 Dec 2008 07:14:14 +0000

Program matriks
Kamus :
A : array [1..10,1..10] of integer
B : array [1..10,1..10] of integer
C : array [1..10,1..10] of integer
I, j, pil : integer
Procedure penjumlahan
Procedure pengurangan
Procedure perkalian

Algoritma :
Input (n)
i traversal [1..n]
j traversal [1..n]
input (A[i,j])
i traversal [1..n]
j traversal [1..n]
input (B[i,j])

output (‘1.penjumlahan 2.pengurangan 3. Perkalian’)
input (pil)
depend on (pil)
1 : penjumlahan
2 : pengurangan
3 : perkalian

i traversal [1..n]
j traversal [1..n]
output (C[i,j])

procedure penjumlahan
kamus :
algoritma :
i traversal [1..n]
j traversal [1..n]
C [i,j] <- A[i,j] + B[i,j]

Procedure pengurangan
Kamus :
Algoritma :
i traversal [1..n]
j traversal [1..n]
C [i,j] <- A[i,j] – B[i,j]

Procedure perkalian
Kamus :
Z, smntr : integer
Algoritma :
Smntr <- 0
i traversal [1..n]
j traversal [1..n]
z traversal [1..n]
smntr <- smntr + A[i,z] * B[z,j]
C[i,j] <- smntr

tugas prokomp

loekmans — Wed, 10 Dec 2008 17:16:42 +0000

program 4huruf;
{program yang dibuat untuk mencari banyaknya kata yang terdiri 4 huruf misalkan:’ASIK’ dalam
kumpulan huruf}

kamus
prec-is-A:boolean
C1,C2,C3:char

algoritma:
CPTASIK <- 0       {jumlah kata ASIK}
prec-is-A <- false
START       {memulai start biasa, karena yang akan diproses adalah prec-is-A}
while (CC <> ‘.’) do
prec-is-A <- CC = ‘A’
ADV-COUPLE       {adv dengan couple karena memproses C1,C2,C3}
ADV-COUPLE
ADV-COUPLE
if (C1 = ‘K’ and C2 = ‘I’ and C3 = ‘S’ and prec-is-A) then
CPTASIK <- CPTASIK + 1 {penambahan kata asik apabila ditemukan}
ADV     {ADV biasa karena yang akan diproses adalah prec-is-A}

output (CPTASIK)

procedure ADV-COUPLE
{SKEMA PEMROSESAN DENGAN MARK, Solusi 1 : mesin COUPLE}:
{I.S. : C1, C2 DAN C3, C3 <> ‘.’}
{F.S. : C1 = C2, C2 = C3, C3 = CC, CC mungkin = ‘.’}
kamus:
Algoritma:
c1<-c2
ADV
c2<-c3
ADV
c3<-cc

procedure START
kamus :
Algoritma:
C1 <- CC

tugas prokomp

loekmans — Wed, 10 Dec 2008 17:13:16 +0000

program 3huruf;
{program yang dibuat untuk mencari banyaknya kata yang terdiri 3 huruf misalkan:’DIA’ dalam
kumpulan huruf}

kamus
C1,C2,C3:char

Algoritma :
START-COUPLE {memulai start COUPLE, karena yang akan diproses adalah C1 dan C2}
CPTLE <- 0 {jumlah kata DIA}
while (CC <> ‘.’) do
if (C1 = ‘A’ and C2 = ‘I’) then
ADV-COUPLE
if (c1 =’I’ and c2 = ‘D’) then
CPTDIA <- CPTDIA + 1
ADV-COUPLE
Output (CPTDIA)

procedure ADV-COUPLE
{SKEMA PEMROSESAN DENGAN MARK, Solusi 1 : mesin COUPLE}:
{I.S. : C1, C2, c2 <> ‘.’}
{F.S. : C1 = C2, C2 = CC, CC mungkin = ‘.’}
kamus:
Algoritma:
c1<-c2
ADV
c2<-cc

procedure START-COUPLE
{SKEMA PEMROSESAN DENGAN MARK, Solusi 1 : mesin COUPLE}
{I.S. : sembarang }
{F.S. : Couple pertama terbentuk : C1 = ‘ ‘, C2 = CC, CC mungkin = ‘.’}
kamus :
Algoritma:
C1 <- ‘ ‘ {karena yang dicari adalah ‘DIA’, Bagaimana jika yang dicari
pasangan lain?}
START
C2 <- CC

tugas prokomp

loekmans — Wed, 10 Dec 2008 17:03:30 +0000

program 3huruf;
{program yang dibuat untuk mencari banyaknya kata yang terdiri 3 huruf misalkan:’DIA’ dalam
kumpulan huruf}

kamus
prec-is-D:boolean
C1,C2:char

algoritma:
CPTDIA <- 0 {jumlah kata DIA}
prec-is-D <- false
START {memulai start biasa, karena yang akan diproses adalah prec-is-D}
while (CC <> ‘.’) do {tidak End-couple}
prec-is-D <- CC = ‘D’
ADV-COUPLE {adv dengan couple karena memproses C1,C2}
ADV-COUPLE
if (C1 = ‘I’ and C2 = ‘A’ and prec-is-D) then
CPTDIA <- CPTDIA + 1 {penambahan kata asik apabila ditemukan}
ADV {ADV biasa, karena yang akan diproses adalah prec-is-D}

output (CPTDIA)

procedure ADV-COUPLE
{SKEMA PEMROSESAN DENGAN MARK, Solusi 1 : mesin COUPLE}:
{I.S. : C1, C2, c2 <> ‘.’}
{F.S. : C1 = C2, C2 = CC, CC mungkin = ‘.’}
kamus:
Algoritma:
c1<-c2
ADV
c2<-cc

procedure START
kamus :
Algoritma:
C1 <- CC

orang yang paling berharga dalam hidupku

loekmans — Thu, 20 Nov 2008 08:29:30 +0000

orang yang paling berharga dalam hidup ku adalah orang tuaku. mereka selalu mengusahakan yang terbaik dalam hidupku. jasa mereka tak akan terlupa oleh ku . aku pun akan berusaha untuk membalas semua jasa mereka dengan susah payah dan jerih payah ku. tapi aku sadar semua tak mudah bagiku. apalagi dengan kepandaian yang tak begitu dapat aku andalkan. tapi aku akan berusaha untuk mewujudkan semua keinginan orang tuaku. aku ingin membuat orang tua ku bangga atas diriku.
pada waktu nilai UTS ku dibagikan aku sangat putus asa sekali, karena semua nilai mata kuliah ku jelek.tapi mereka tetap menerima dan mendukungku. kadang semua yang telah aku alami membuat diriku down atau putus asa. tapi aku mempunyai satu cara yang paling dapat membuat saya menjadi semangat lagi. itu adalah coretan kecil yang selalu aku pajang dalam kamarku. yang isinya merupakan semua kebaikan orang tuaku yang telah beliau berikan kepada ku. aku yakin Allah akan mewujudkan keinginan seseorang ditinjau dari usahanya.
aku sangat bersyukur sekali memiliki orang tua seperti mereka.

Tugas Prokomp

loekmans — Mon, 17 Nov 2008 03:37:35 +0000

tugas ini untuk mengetahui seberapa bisakah saya dalam memeahami algoritma saya.

Buatlah algoritma yang mengeluarkan bilangan prima yang ke n. Dengan n adalah dari inputan user, sedangkan outputnya adalah bilangan prima ke n yang telah ditentukan.

jawab !!!

Program prima;
Kamus

I, cek, j, n, prima:integer
Algoritma
i <- 1
j <- 2
cek <- 0
Output (‘masukkan nilai n = ‘); input (n);

While i <= n do
While j <> cek do
If j mod 2 <> 0 or j = 2 then
If j mod 3 <> 0 or j = 3 then
If j mod 5 <> 0 or j = 5 then
If j mod 7 <> 0 or j = 7 then
Prima <- j
Cek <-prima+1
j <- j + 1

i <- i + 1
output (‘ bilangan prima ke ‘, n ,’adalah = ‘, prima )

cara lain

loekmans — Mon, 17 Nov 2008 03:15:11 +0000

Program prima;

Kamus
I, j, n, prima:integer

Algoritma
i <- 1
j <- 2
prima <- 0

Output (‘masukkan nilai n = ‘); input (n);
While i <= n do

While (prima = 0) do
if ( j = 2 ) or ( j = 3 ) or ( j = 5 ) or ( j = 7 ) then
prima <- j
else
if ( j mod 2 <> 0 ) and ( j mod 3 <> 0 ) and ( j mod 5 <> 0 ) and ( j mod 7 <> 0 ) then
prima <- j
else
prima <- 0
j <- j + 1

i <- i + 1

output (‘ bilangan prima ke ‘, n ,’adalah = ‘, prima )