Algortima dan Pascal Segitiga Bintang

Algoritma dan Program Pascal untuk menyelesaikan kasus seperti di bawah ini (warna bintang setiap baris dibedakan).

N=3

*

**

***

**

*

Bentuk Algoritma Segitiga Bintang

Algoritma segitigabintang
{I.S : Diinputkan satu angka oleh user}
{F.S : Menampilkan barisan segitiga bintang}

Deklarasi:
 n : integer
 i : integer
 j : integer
 
Algoritma:
 input(n)
 
 for i <- 1 to n do
  for j <- 1 to i do
   output('*')
  endfor
  output('')
 endfor
 
 for i <- n-1 downto 1 do
  for j <- 1 to i do
   output('*')
  endfor
  output('')
 endfor

Bentuk Program Pascal Segitiga Bintang dimana warna bintang setiap baris dibedakan.

program segitigabintang;
uses crt;

var
   n : integer;
   i : integer;
   j : integer;

begin
     write('Masukkan Jumlah Baris Segitiga Bintang : '); readln(n);
     clrscr();

     i := 0;
     j := 0;
     for i:=1 to n do
     begin
          for j:=1 to i do
          begin
               write('*');
          end;
          writeln(''); textcolor(i);
     end;

     for i:=n-1 downto 1 do
     begin
          for j:=1 to i do
          begin
               write('*');
          end;
          writeln(''); textcolor(j);
     end;
     readkey();
end.

Screenshot :

input

output

Posted in : Algoritma, Pascal