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