Program CalculaResta
Publicado por Clive (7 intervenciones) el 14/11/2012 16:05:24
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:
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 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
0