Sabtu, 27 September 2008

While & Do While (TM3)

1. Menampilkan Bil. Genap 1-20 dengan while
~Algoritma
Deklarasi
x: integer
Deskripsi
x<- 1
while(x<=10)
write(x*2)
x <- x+1
endwhile
~Flowchart


~Program
Menampilkan Bil. Ganjil 30-50 dengan while
~Algoritma
Deklarasi
x: integer
Deskripsi
x <- 16
while(x<=30)
write(x*2-1)
x <- x+1
endwhile
~Flowchart ~Program
2. Menampilkan Bil. Kelipatan 7 1-50 dengan do while
~Algoritma
Deklarasi
x : integer
Deskripsi
x <- 1
do
write(x*7)
x <- x+1
while(x<=7)
~Flowchart ~Program
3. Menampilkan deret bintang ke bawah dengan do while
~Algoritma
Deklarasi
x,y : integer
Deskripsi
x <- 3
y <- 1
do
z : integer
z <-1
do
write(" ")
z <- z+1
while(z<=y)


a : integer
a <- x
do
write("* ")
a <- a-1
while(a>=y)

write(endl)
y <- y+1
while(y>=x)

~Flowchart

~Program


1 Comment:

Unknown mengatakan...

Feel good......