Sekarang saya
akan berbagi bagaimana membuat perulangan bintang dengan menggunakan bahasa
pemograman versi 2. Untuk melihat bagaimana versi 1 nya bisa dilihat disini.
Berikut adalah
hasil dari programnya:
Untuk source
codenya bisa dilihat dibawah ini:
program
Perulangan_Bintang;
uses
crt;
var
baris,sepasi,piramit1,piramit2,jumbaris
:longint;
begin
clrscr;
write('masukkan angka
:');readln(jumbaris);
for baris :=1 to jumbaris do
begin
for sepasi := jumbaris downto baris do
begin
write(' ');
end;
for piramit1 := 1 to baris do
begin
write('*');
end;
for piramit2 := 2 to baris do
begin
write('*');
end;
writeln;
end;
readln;
end.
Sekian untuk postingan kali ini terima kasih telah berkunjung.