Tuesday, December 17, 2013

PROGRAM SEGITIGA BINTANG DENGAN PASCAL

Di bawah ini adalah listing program untuk membuat segitiga bintang dalam pascal :
 
Program segitiga_bintang;
Uses Wincrt;
Var i,j,n:integer;
Begin
Writeln('Program Menampilkan Bintang');
Writeln('===========================');
Writeln;
Write('Masukkan Jumlah Baris: ');readln(n);
For i:= 1 to n do
Begin
For j:= 1 to i do
Write('*');
Writeln;
End;
End.


layout :



sekian aja dulu ya dari saya semoga postinga kali ini bisa bermanfaat bagi pengunjung.. dan jangan lupa beri komentar yah bila ada kesalahan pada programnya supaya saya dapat memperbaikinya..


3 comments:

  1. bagus sekali program ini berguna sekali bozzz kunjungan balik

    ReplyDelete
  2. yups semoga bermanfaat buat tugasnnya.

    ReplyDelete
  3. bisa gak kalo memasukkan angka cuman 1x enter bintangnya sdh muncul semua. tanpa menekan tombol enter berulang-ulang?

    ReplyDelete