Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Pascal/Turbo Pascal » ejercicio 1 actividad 2

Pascal/Turbo Pascal - ejercicio 1 actividad 2

Volver
Nuevo Tema
<<>>
 
Vista:
sin imagen de perfil

ejercicio 1 actividad 2

Publicado por Erik (73 intervenciones) el 12/03/2014 17:50:52
Hola queria hacer lo siguiente:

A partir del módulo principal que se presenta a continuación, cree los procedimientos necesarios para realizar un programa que pida al usuario dos números y realice la suma de los mismos.
La estructura del programa será como la que le presentamos a continuación.
Hay que destacar que la impresión del valor de la suma hay que hacerlo OBLIGATORIAMENTE en el procedimiento presenta_resultados: Esto le obligará a pasar el parámetro suma por referencia en el procedimiento cálculo, que realiza la suma.

(*
Fichero: unidad6_2_1.pas
Autor:
Mail:
Descripción:
*)

program Operaciones;

(*-- Funciones y procedimientos -- *)

(* ¡¡ Aquí irían las definiciones de los procedimientos calculo y
presenta_resultados !! *)

(*-- Variables Globales -- *)
var
primer_numero:real;
segundo_numero:real;
suma:real;

(*-- Programa Principal -- *)
begin

(* Solicitud de los datos *)
writeln('Introduzca el primer numero: ');
readln(primer_numero);
writeln('Introduzca el segundo numero: ');
readln(segundo_numero);

calculo(primer_numero,segundo_numero,suma);

(* Impresión del resultado de la suma por pantalla *)
presenta_resultados(suma);
end.

gracias de antemano
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

ejercicio 1 actividad 2

Publicado por ramon (2158 intervenciones) el 13/03/2014 14:02:05
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
{Mira esto}
 
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.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar