Program bintang pascal belah ketupat

kali ini mimin akan post masih tentang pascal yakni tentang membuat bintang jadi belah ketupat langsung simak scriptnya di bawah ini..


script pada pascal

Program Belah_Ketupat;
uses wincrt;
var
N,i,j,k : integer;
begin
writeln('=PROGRAM BELAH KETUPAT=');
writeln('Nama = royek.blogspot.com ');

write ('Masukkan Batas : ');readln(N);
writeln;
begin
for i := 1 to N do
begin
for k := (N-1) downto i do
begin
write ('  ');
end;
for j:= 1 to i do
begin
write('*',' ');
end;
begin
for j:=(i-1) downto 1 do
write('*',' ');                                                              
end;
writeln('');
end;
begin
for i := (N-1) downto 1 do
begin
for k := (N-1) downto i do
begin
write('  ');
end;
for j := i downto 1 do
begin
write ('*',' ');
end;
begin
for j := 1 to (i-1) do
write('* ');
end;
writeln('  ');
end;
end;
end;
end.



output dari script diatas

masukan sembarang angka contoh di atas saya masukan angka 6.
sekian postingan saya semoga bermanfaat. :)

JANGAN LUPA TONTON DAN LIKE VIDEO LUCU INI