Algoritma dan Pascal Bintang

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

N=5

*

**

***

****

*****

Bentuk Algoritma untuk membuat barisan bintang seperti diatas.

Algoritma bintang
{I.S : Diinputkan satu angka oleh user}
{F.S : Menampilkan barisan 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

Bentuk Pascal untuk membuat barisan bintang dimana warna bintang setiap baris dibedakan.

program bintang;
uses crt;

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

begin
     write('Masukkan Jumlah Baris 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;
     readkey();
end.

Screenshot :

input

output

Posted in : Algoritma, Pascal