TUGAS 2.1

Bahasa ALgoritma:
Var
        x:Integer
        Y:Integer
        Z:Integer
        A:Integer
Begin
        Output('Masukan Angka Untuk Table Perkalian: ')Input(X)
        Output'Akan Dikalikan Dari 1 Sampai : ')Input(Y)
        z-->1
        While Z <= Y do
        Begin
              A--> x * z
              Output(x);Output(' * ');Output(Z);Output(' = ');Output(a)
              Z--> Z+1
        END
END Algoritma
Bahasa Pascal:
uses crt;
Var
        x:Integer;
        Y:Integer;
        Z:Integer;
        A:Integer;
Begin
        CLRSCR;
        WRITELN('Masukan Angka Untuk Table Perkalian: ');READLN(X);
        WRITELN('Akan Dikalikan Dari 1 Sampai : ');READLN(Y);
        z:=1;
        While Z <= Y do
        Begin
              A:= x * z;
              WRITE(x);WRITE(' * ');WRITE(Z);WRITE(' = ');WRITELN(a);
              Z:= Z+1;
        END;
        READLN();
ENd.