PASCAL - BINTANG.....

PROGRAM PASCAL DENGAN OUTPUT SEPERTI INI

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

program bintang;
program nilai_huruf;
uses wincrt;

var
   baris :integer;
   kolom :integer;
   akhir :integer;
begin
write('panjang bintang = ');readln(akhir);
writeln;
if akhir=0 then
writeln('ohhh ga bisa');

for baris:=1 to akhir do
    begin
         for kolom:=1 to baris do
         write('*');
         writeln;
    end;
end.

Artikel Terkait: