Pascal/Turbo Pascal - ejercicio

   
Vista:

ejercicio

Publicado por Erik Napster_EPD88@hotmail.com (73 intervenciones) el 07/03/2014 17:28:15
hola, tengo que hacer los siguiente:
incluya la función en un programa que pida al usuario el valor de un producto, el % de IVA que hay que aplicarle y devuelva por pantalla el precio de venta al público del producto

de la siguiente funcion de pascal:

Function PVP(valorprod: real, ivaprod: real) :real;
Var
total_iva : real;
begin
total_iva := valorprod*ivaprod/100;
Resultado := valorprod + total_iva;
end;

gracias de antemano
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

ejercicio

Publicado por Juan Ignacio (8 intervenciones) el 07/03/2014 18:00:07
Hola, en la respuesta a la de la función no me fijé pero tiene un par más de errores. Ahora te la corregí también e hice el programa.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program iva;
var valor, porc, publico :real;
Function PVP(valorprod: real; ivaprod: real) :real;
Var
   total_iva : real;
   Resultado : real;
begin
     total_iva := valorprod*ivaprod/100;
     Resultado := valorprod + total_iva;
end;
begin
  write('Ingrese el valor del producto: ');readln(valor);
  write('Ingrese el porcentaje de iva que tiene que aplicar: ');readln(porc);
  publico := PVP(valor,porc);
  writeln('El precio a publico de el producto es de $',publico:10:2);
  readln;
end.

Saludos
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