Membuat Persegi Panjang dengan Pascal #183

andrypein.net : Masih bertema pola-pola an, masih berhubungan dengan persegi juga kali ini aing akan share code tentang membuat persegi panjang dengan pascal.

Logikanya akan mencetak bintang dengan jumlah bintang ‘n’ sebanyak ‘n’ baris.

Seperti ini lah hasilnya kira-kira.

var
  a,b,n : smallint;
begin
write('input : ');readln(n);
    for a := 1 to n do
      begin
        for b := 1 to n do
          begin
            write('*');
          end;
        writeln;
      end;
    readln;
end.

Done, bisa cek ideone untuk klarifikasisapiisme persegi panjang dengan pascal nya.

IdeaOne Src

*AFK