ayuda programa 2
Publicado por Erik (73 intervenciones) el 18/03/2014 10:49:50
hola tengo que modificar el siguiente programa:
y debe ser un procedimiento en vez de una funcion. gracias de antemano.
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
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.
Valora esta pregunta
0