PascalPemrograman

Membuat Pola Segitiga dengan Pascal #190

Ketahuilah bahwa untuk mengetahui itu harus tahu

andrypein.net : Awalnya mencoba compiler online dari complr, namun situsnya mati jadi aing pake ideone lagi.

Pola-pola an sekarang adalah membuat pola segitiga dengan pascal.

Hasil akhir akan membentuk * bilangan ganjil ges seperti gambar ini.

pola segitiga dengan pascal
yo
Yosh, inilah kode segitiga dengan pascal nya :
var
 a,b,c,n : integer;
begin
  readln(n);
  writeln;
  if n mod 2 = 0 then
   for a := 1 to (n div 2) do 
    begin
     for b := 1 to (n div 2)-a do
      write (' ');
     for c := 1 to (a*2) do
      write ('*');
      writeln;
    end
  else
   for a := 1 to (n div 2)+1 do 
    begin
     for b := 1 to (n div 2)+(1-a) do
      write (' ');
     for c := 1 to (a*2)-1 do
      write ('*');
      writeln;
    end;

IdeaOne Src

*AFK

Andry Fadrie K

CPU : AMD Ryzen 5 1600 12Core
Mobo : Asus ROG Strix B450-F GAMING
RAM : 16GB
Storage : 12.8TB
VGA : NVIDIA GeForce GTX 1050ti
OS : KDE Neon
Kernel : 5.11.0-46

Related Articles

2 Comments

Tinggalkan Balasan

Alamat email Anda tidak akan dipublikasikan.

Back to top button