Kaskus

Tech

DarknessTalicAvatar border
TS
DarknessTalic
Daftar Soal Algoritma Pemrograman (ALPRO)
nona212Avatar border
nona212 memberi reputasi
1
217.7K
3.3K
GuestAvatar border
Komentar yang asik ya
Mari bergabung, dapatkan informasi dan teman baru!
Programmer Forum
Programmer Forum
KASKUS Official
20.2KThread4.9KAnggota
Tampilkan semua post
xoriuzAvatar border
xoriuz
#67
ane coba jawab gan


soal 2:
Code:
*
***
*****
***
*


Code:


jawab
[code]
for i<-1 to n do
\tif i<= n div 2 + 1 then
\t\tnspacedepan = n div 2 - i + 1
\t\tnbintang = i * 2 - 1
\telse
\t\tnspacedepan = i - n div 2 - 1
\t\tnbintang = (n - i) * 2 + 1
\tendif
\t
\tfor j<-1 to nspacedepan do
\t\twrite(" ");
\tendfor
\t
\tfor j<-1 to nbintang do
\t\twrite("*");
\tendfor
\t
\twriteln();
endfor



soal 1:
Code:
*
* *
* *
* *
*


jawab
Code:

for i<-1 to n do
\tif i<= n div 2 + 1 then
\t\tnspacedepan = n div 2 - i + 1
\t\tnbintang = i * 2 - 1
\telse
\t\tnspacedepan = i - n div 2 - 1
\t\tnbintang = (n - i) * 2 + 1
\tendif
\t
\tfor j<-1 to nspacedepan do
\t\twrite(" ");
\tendfor
\t
\tfor j<-1 to nbintang do
\t\tif j = 1 or j=nbintang then
\t\t\twrite("*");
\t\telse
\t\t\twrite(" ");
\t\tendif
\tendfor
\t
\twriteln();
endfor


CMIIW emoticon-Big Grin
0
Ikuti KASKUS di
© 2025 KASKUS, PT Darta Media Indonesia. All rights reserved.