Pascal/Turbo Pascal - Ejercicio con Procedure

   
Vista:
Imágen de perfil de rainbow

Ejercicio con Procedure

Publicado por rainbow (5 intervenciones) el 02/12/2013 12:28:39
Hola!

Estoy haciendo unos ejercicios y me acabo de quedar atascado:

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

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
.
 
(*
  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.

Si me pueden ayudar... gracias
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 con Procedure

Publicado por ramon (2072 intervenciones) el 02/12/2013 13:53:36
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
40
41
42
43
{Mira algo así}
 
program Operaciones;
 
(*-- Funciones y procedimientos -- *)
 
(* ¡¡ Aquí irían las definiciones de los procedimientos calculo y
      presenta_resultados !! *)
 
   procedure calculo(n, h : real;var suma : real);
  begin
     suma := (n + h);
  end;
 
  procedure presenta_resultados(h : real);
  begin
      writeln('   Elresultado De La Suma Es');
      writeln('   Suma = ',h:0:2);
      writeln;
      writeln('   Pulse Enter ');
      readln;
  end;
 
(*-- 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.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
Imágen de perfil de rainbow

Ejercicio con Procedure

Publicado por rainbow (5 intervenciones) el 14/12/2013 17:27:58
Muchas gracias por tu ayuda!

Gracias a tu respuesta he podido resolver varios ejercicios sin demasiado problema!

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