• Viernes 29 de Marzo de 2024, 09:29

Autor Tema:  hola, tengo un problema 2  (Leído 2038 veces)

Napster_EPD

  • Nuevo Miembro
  • *
  • Mensajes: 3
    • Ver Perfil
hola, tengo un problema 2
« en: Jueves 20 de Marzo de 2014, 16:15 »
0
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.

oakis

  • Nuevo Miembro
  • *
  • Mensajes: 2
    • Ver Perfil
Re:hola, tengo un problema 2
« Respuesta #1 en: Martes 1 de Abril de 2014, 06:42 »
0
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.