Buat Program Bintang !

*

**

***

**

*

Program Bintang

Untuk mencetak N bintang}

DEKLARASI

N, I, J, K : Integer

ALGORITMA:

Read (N)

For I <- 1="" do="" downto="" n="" span="">
For J <- -="" 1="" do="" i="" span="" to="">
Write (' ')
K <- n="" span="">
Repeat
Write ('*')
K <- -="" 1="" k="" span="">
until (K <>
Writeln ( )
Endfor
Endfor
For I <- -="" 1="" do="" downto="" n="" span="">
K <- -="" 1="" n="" span="">
Repeat
Write(' ')
K <- -="" 1="" k="" span="">
until (K <>
For J <- 1="" do="" downto="" i="" span="">
Write ('*')
Writeln ( )
Endfor
Endfor

Oleh : http://adf.ly/5Dve9