Question 1

Disusun Oleh Dosen : Elisawati, S.Kom, M.Kom

Soal :

Buatlah Program Dengan Menggunakan Proseduce Untuk Membalikan Suatu Angka ?

Jawaban :

Parameter_Acuan.pas

program pengiriman_parameter_secara_acuan;
uses crt;

procedure pembalikan(var a : string); 
var
    i,o : integer;
    n : string;
begin
    write('Nilai Balikan  : ');
    for  i := LENGTH(a) downto 1 do 
        begin
            n := copy(a,i,1);
            write(n);
        end;
end;

var
    x : string;
begin
    clrscr;
    write('Masukan Angka = ');readln(x);
    pembalikan(x); 
end.