Tugas 6

Dalam Bahasa Pascal:

uses crt;
Var
        X:integer;
        Y:Integer;
        J:Integer;
BEGIN
        CLRSCR;
        WRITELN('Masukan Banyak Bintang: ');READLN(x);
        For y := 1 to X do
        Begin
                for J:= 1 to Y do
                        WRITE('*');
                        WRITELN();
        ENd;
        READLN();
End.
Dalam Bahasa Algoritma:
Var
        X:integer
        Y:Integer
        J:Integer
BEGIN
        Output('Masukan Banyak Bintang: ')Input(x)
        For y --> 1 to X do
        Begin
                for J--> 1 to Y do
                        Output('*');
                        Output()
        ENd
       
End Algoritma