Tugas 2

Bahasa Algoritma:

Var
        X:integer
        Y:Integer
        Z:integer
        a:Integer
BEGIN
        OUTPUT('Masukan Angka Untuk Tabel Perkalian: ')INPUT(x)
        OuTPUT('Akan Di Kalikan Dari 1 Sampai : ')Input(Y)
        for z --> 1 to Y do
                begin
                A-->x * z
                Output(x)Output(' x ')Output(Z)Output(' = ')Output(a)
                End For
       
ENd Algoritma
Bahasa Pascal:
uses crt;
Var
        X:integer;
        Y:Integer;
        Z:integer;
        a:Integer;
BEGIN
        CLRSCR;
        WRITELN('Masukan Angka Untuk Tabel Perkalian: ');READLN(x);
        WRITELN('Akan Di Kalikan Dari 1 Sampai : '); READLN(Y);
        for z := 1 to Y do
                begin
                A:= x * z;
                WRITE(x);WRITE(' x ');WRITE(Z);WRITE(' = ');WRITELN(a);
                End;
        READLN();
ENd.