*
**
***
**
*
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->->->->->->->->
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
0 comment:
Post a Comment