Program Segitiga Bintang Pascal

Buatlah program Segitiga Bintang pada pascal dengan memasukkan angka sehingga tampilannya seperti diatas.

 

Jawab :

uses crt;

var

a,b,c : byte;

begin

   clrscr;

   write('Masukkan Angka : ');

   readln(a);

   writeln;

   writeln;

   for b := 1 to a do

    begin

    for c := 1 to b do

    write(' *');

    writeln;

    end;

readkey;

end.

Anda sedang membaca artikel tentang Program Segitiga Bintang Pascal dan Anda bisa menemukan artikel Program Segitiga Bintang Pascal ini dengan url http://gratisan69.blogspot.com/2012/04/program-segitiga-bintang-pascal.html. Anda boleh menyebarluaskan atau mengcopy artikel Program Segitiga Bintang Pascal ini jika memang bermanfaat bagi Anda atau teman-teman Anda, namun jangan lupa untuk mencantumkan link sumbernya.

Artikel Terkait