Algoritma Mencetak Karakter Asterik atau Bintang

Buatlah program untuk menampilkan output sbb :

* * * * *
* * * * 
* * * 
* * 
*

Analisa  Masalah :

1.Output terdiri dari 5 baris dan 5 kolom
• Baris pertama mencetak 5 tanda *, artinya baris pertama terdiri dari 5 kolom.
• Baris ke-2  mencetak 4 tanda *, artinya baris ke-2 terdiri dari 4 kolom
• Baris ke-3 mencetak 3 tanda *, artinya baris ke-3 terdiri dari 3 kolom
• Baris ke-4 mencetak 2 tanda *, artinya baris ke-4 terdiri dari 2 kolom
• Baris ke-5 mencetak 1 tanda *, artinya baris ke-5 terdiri dari 1 kolom

2.Jika n=5, maka :
• Baris pertama, indek kolomnya mulai dari  1 hingga n
• Baris ke-2, indeks kolomnya mulai dari 1 hingga n-1
• Baris ke-3, indeks kolomnya mulai dari 1 hingga n-2
• Baris ke-4, indeks kolomnya mulai dari 1 hingga n-3
• Baris ke-5, indeks kolomnya mulai dari 1 hingga n-4

   Hasil tersebut menunjukkan bahwa ketika baris bertambah, maka nilai n berkurang satu.

3. Ouput terdiri dari 2 buah perulangan yaitu perulangan indeks baris  dan perulangan indeks kolom. Dalam program, perulangan pertama menyatakan indeks baris dan perulangan ke-2 menyatakan indeks kolom.
4. Dalam bahasa Pascal, perulangan pertama menggunakan fo-downto-do dan perulangan ke-2 menggunakan for-to-do


Algoritma :

1. Mulai
2. Deklarasikan variable i, j, n
3. Input nilai n
4. Buat perulangan baris dari i=n hingga i=1
5. Buat perulangan kolom dari j=1 hingga i
6. Cetak karakter bintang *
7. Ulangi langkah 5 hingga j=i
8. Pindah baris
9. Ulangi langkah 4 hingga i=1
10.Hentikan tampilan hasil program
11.Tekan sembarang tombol
12.Selesai


Flowchart

uses crt;
var i,j, n : integer;

Begin
  clrscr;
  write('Input nilai n = ');
  readln(n);
  for i:=n downto 1 do
   Begin
     for j:=1 to i do
        write('*');
     writeln;
   End;
   writeln;
   writeln('Tekan sembarang tombol');
   readkey;
End.


Catatan :

Perintah readkey berfungsi untuk menghentikan proses program secara sementara dan akan dilanjutkan kembali dengan cara menekan sembarang tombol pada keyboard. Agar user dapat mengetahui langkah selanjutnya, maka tampilkan informasi “Tekan sembarang tombol” sebelum perintah readkey.

Semoga bermanfaat.

God bless you all