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. yups semoga bermanfaat buat tugasnnya.

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

    ReplyDelete