programprog;(*Parametros por valor*)procedurem1(a:integer;b:integer;c:integer);begina:=100;b:=200;c:=300;writeln('Valores cambiados en el m1() a:',a,' b:',b,' c:',c);(* Imprime a:100 b:200 c:300 *)end;(*Parametros por referencia*)procedurem2(vara:integer;varb:integer;varc:integer);begina:=100;b:=200;c:=300;writeln('Valores cambiados en el metodo m2() a:',a,' b:',b,' c:',c);(* Imprime a:100 b:200 c:300 *)end;vara:integer;b:integer;c:integer;begina:=10;b:=20;c:=30;writeln('Valores antes de llamar a m1() a:',a,' b:',b,' c:',c);(* Imprime a:10 b:20 c:20 *)m1(a,b,c);writeln('Valores despues de llamar a m1() a:',a,' b:',b,' c:',c);(* Imprime a:10 b:20 c:30 *)m2(a,b,c);writeln('Valores despues de llamar a m2() a:',a,' b:',b,' c:',c);(* Imprime a:100 b:200 c:300 *)readlnend.
Comments (0)
HTTPSSSH
You can clone a snippet to your computer for local editing.
Learn more.