Pascal/Turbo Pascal - Funciones

   
Vista:

Funciones

Publicado por oscar (64 intervenciones) el 01/11/2012 23:53:24
Hola quisiera saber porque me va mal esta funcion, el trozo es el siguiente donde me da error

1
2
3
4
5
6
7
8
9
10
11
12
13
begin
write ('Introduzca el valor del producto:');
readln (valorprod);
write ('Introduzca el Iva del producto:');
readln (ivaprod);
iva_final:= total_iva (valorprod, ivaprod);
writeln;
write ('El iva total es =', iva_final:3:2);
res:= PVP (valorprod, total_iva);
writeln;
write ('El precio de venta es=', res:3:2);
readln;
end.


antes declare las variables
y estas son las funciones

1
2
total_iva := valorprod*ivaprod/100;
    PVP := valorprod + total_iva;


en
iva_final:= total_iva (valorprod, ivaprod); me dice error de sintaxis se esperaba; pero se encontro ( y no se pq

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

Funciones

Publicado por ramon (2072 intervenciones) el 02/11/2012 19:31:08
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
{Prueba esto una parte es lo tuyo modificado un poco}
 
 
 program prue;
  uses
    crt;
  var
     total_iva : real;
     valorprod, ivaprod : real;
     pvp : real;
 
  begin
     clrscr;
     write('   Introduzca el valor del producto : ');
     readln(valorprod);
     write('   Introduzca el Iva del producto   : ');
     readln(ivaprod);
     total_iva := valorprod * ivaprod / 100;
     writeln;
     writeln('   El iva total es = ',total_iva :0:2);
     pvp := valorprod + total_iva;
     writeln;
     writeln('   El precio de venta es = ', pvp:0:2);
     writeln;
     writeln('  Pulse [Enter]');
     readln;
  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

Funciones

Publicado por oscar (64 intervenciones) el 05/11/2012 21:46:53
hola resulta q me va mal
he hecho

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
Program Precio_producto;
uses
crt;
 
Function PVP(valorprod:real; ivaprod: real):real;
Var
    total_iva : real;
 
begin
    total_iva := valorprod*ivaprod/100;
    PVP := valorprod + total_iva;
 
End;
 
Var
valorprod:real;
ivaprod:real;
preciofinal:real;
iva_final:real;
total_iva:real;
 
begin
write ('Introduzca el valor del producto:');
readln (valorprod);
write ('Introduzca el Iva del producto:');
readln (ivaprod);
total_iva:= valorprod*ivaprod/100;
iva_final:= total_iva;
writeln;
write ('El iva final es =', iva_final:3:2);
preciofinal:= PVP (valorprod, total_iva);
writeln;
write ('El precio de venta es=', preciofinal:3:2);
readln;
End.


y el profesor me dice q me va mal pq lo calculo dos veces y q el iva es exagerado, q estoy haciendo mal?
Porque en tu ejemplo no usas una funciom y tengo q usar esto

1
2
3
4
5
6
7
Function PVP(valorprod: real, ivaprod: real) real
Var
    total_iva : real;
begin
    total_iva := valorprod*ivaprod/100;
    Resultado := valorprod + total_iva;
End.


gracias
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

Funciones

Publicado por oscar (64 intervenciones) el 05/11/2012 22:15:29
CORREGIDO CIERRO TEMA
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