Persegi Empat Diagonal dengan Pascal Bag II #181

andrypein.net : Masih dengan tema persegi dan algoritma pemrograman dengan bentuk pola-pola.

Source nya hampir mirip dari yang kemarin namun tidak ada diagonalnya.

So, code pola persegi empat diagonal dengan pascal nya bisa dilihat dibawah ini gan.

write('masukkan angka yang anda inginkan = '); readln(a);
for b:= 1 to a do
 begin
  for c := 1 to a do
   begin
    if((b=1) or (b=a) or (c=1) or (c=a) or (b=c))then
     write('*')
    else
     write(' ');
   end;
   writeln;
 end;
readln;

IdeaOne Src

*AFK