Pascal/Turbo Pascal - Ayuda con programa resta porfa

   
Vista:

Ayuda con programa resta porfa

Publicado por Clive (7 intervenciones) el 14/11/2012 17:20:48
Hola. Soy nuevo en la programacion, tengo un problema con un programa de restar dos numeros enteros en pascal. El programa que he de corregir es el que muestro a continuacion:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Program CalculaResta;
 
Procedure CalculaResta(primer_valor, segundo_valor: Integer):Integer;
Begin
CalculaResta :=primer_valor-segundo_valor;
MuestraPorPantalla(CalculaResta);
End;
 
Procedure MuestraPorPantalla(resultado: Integer);
Begin
Writeln(‘El resultado es ‘,resultado);
End;
 
Var
Valor1:integer;
Valor2:integer;
begin
write('Introduzca el primer numero : ');
readln(Valor1);
write('Introduzca la cantidad a restar : ');
readln(Valor2);
CalculaResta(Valor1,Valor2);
end.


No se puede modificar el numero de procedimientos(procedure), tienes que ser con dos, solamente. Hasta ahora he corregido varias cosas que estaban mal pero ha llegado un punto en que no soy quien a encontrar que puede estar fallando, he intentando varias cosas pero o sigue como estaba o aumentan los errores. Lo que he corregido es:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Program CalculaResta;
 
Procedure Resta(Valor1, Valor2: Integer):Integer;
Begin
Resta :=Valor1-Valor2;
writeln(Resultado);
End;
 
Procedure MuestraPorPantalla(resultado: Integer);
Begin
Writeln(‘El resultado es ‘,resultado);
End;
 
Var
Valor1:integer;
Valor2:integer;
begin
write('Introduzca el primer numero : ');
readln(Valor1);
write('Introduzca la cantidad a restar : ');
readln(Valor2);
Resta(MuestraPorPantalla);
end.
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

Ayuda con programa resta porfa

Publicado por ramon (2072 intervenciones) el 14/11/2012 18:52:36
Tienes la respuesta en el anterior tuyo
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