SoloCodigo
Programación General => Pascal => Mensaje iniciado por: Napster_EPD en Jueves 20 de Marzo de 2014, 16:15
-
hola tengo que modificar el siguiente programa:
program Operaciones;
uses
crt;
var
primer_numero : real;
segundo_numero : real;
procedure entrada(var n1, n2 : real);
begin
write(' Entre Primer Num. : ');
readln(n1);
write(' Entre Segundo Num. : ');
readln(n2);
end;
function suma(n1, n2 : real) : real;
begin
suma := n1 + n2;
end;
procedure presenta_resultados;
begin
writeln('**** El Resultado De La Suma ****');
writeln(' Es : ',suma(primer_numero,segundo_numero):0:2);
readkey;
end;
begin
clrscr;
entrada(primer_numero,segundo_numero);
clrscr;
writeln(' La Operacion Sera : ',primer_numero:0:2,' + ',
segundo_numero:0:2);
writeln;
presenta_resultados;
end.
y debe ser un procedimiento en vez de una funcion. gracias de antemano.
-
Es demasiado sencillo, solo debes de agregar una variable mas para el resultado de la suma de los 2 numeros ingresados.
Transforma la function en un procedure y pasa por referencia, en los parametros formales, la variable resultado.
Luego informa los resultados imprimiendo en pantalla n1 + n2 = variable Resultado.
La implementacion no te la dejo, porque sino no tendria gracia.
Pero no te desanimes, el problema es sumamente sencillo.
Saludos.