Pascal/Turbo Pascal - programa para calcular el iva AYUDA..

   
Vista:

programa para calcular el iva AYUDA..

Publicado por vadimir (4 intervenciones) el 15/10/2014 23:59:53
buenas me gustaria saber si me pueden ayudar con este problema soy estudiante de ingeniería. me urge la ayuda ya que me an mandodo 35 ejercicios y ya e resuelto la gran mayoria no me gusta rerurir a estos medios de ayuda pero se aserca la entrega del parcial y no logro terminar este.

Elaborar Programa en Pascal que calcule el pago del monto de pago mensual de los alimentos de la cesta básica. Se debe pedir como entrada el:
 Nombre comprador
 C.I. comprados
 %IVA a aplicar
 Monto Producto uno
 Monto Producto dos
 Monto Producto tres
 Monto Producto 4
 Monto Producto 5
Para lo cual debe entre otras cosas: Inicializar variables; leer las variables; aplicar la formula e imprimirá todos los datos solicitados por pantalla, incluyendo los resultados de aplicar las formulas; y realizar la preguntar ¿desea realizar otro cálculo?, o bien, ¿existen más datos? u otra similar. Además se pide calcular el:
 El 15% del IVA a pagar por el monto de los productos uno, dos y tres.
 Se debe calcular el costo total por cada producto.
Costo total por cada producto uno = monto de productos uno * %IVA
Costo total por cada producto dos = monto de productos dos * %IVA
Costo total por cada producto tres = monto de productos tres * %IVA

 A Los productos 4 y 5 están exentos del IVA, por lo que no se les calcula el IVA.
 Determinar el monto total de la factura.

La factura se mostraría en pantalla así:

Nombre comprador
C.I. comprados

==========================================
Monto IVA Costo Total
==========================================
Producto uno 15% Costo Total Producto uno

Producto dos 15% Costo Total Producto dos
Producto tres 15% Costo Total Producto tres
Producto 4 Costo Total Producto 4
Producto 5 Costo Total Producto 5
==========================================
Total…………………………Monto factura

con lo que me puedan ayudar estaria agradecido.
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

programa para calcular el iva AYUDA..

Publicado por ramon (2072 intervenciones) el 16/10/2014 20:51:54
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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
{A ver si esto te sirve}
 
 program compras;
  uses
     crt;
  const
      num = 5;
  type
     compra = record
         nombre : string[80];
         numic  : longint;
         valiva : real;
         produc : array[1..num] of real;
       end;
 
  var
    lacompra : compra;
    cont : integer;
    costopro : array[0..num - 1] of real;
    total : real;
    tecla : char;
 
   procedure limpia_registro;
   begin
      fillchar(lacompra,sizeof(compra),0);
   end;
 
   procedure pide_datos(var co : compra);
   var
      i : integer;
   begin
      clrscr;
      with co do
      begin
      writeln('   **** Entrada De Datos Compra ****');
      writeln;
      write('   Nombre Cliente          : ');
      readln(nombre);
      write('   Numero C.I. Cliente     : ');
      readln(numic);
      write('   IVA a Aplicar           : ');
      readln(valiva);
      for i := 1 to num do
      begin
         write('  Precio Praducto ',i,' : ');
         readln(produc[i]);
      end;
     end;
   end;
 
   procedure calculo_compra(cp : compra);
   var
      i : integer;
   begin
      for i := 0 to num - 1 do
      begin
        if i < 3 then
        begin
      costopro[i] := cp.produc[i + 1] + (cp.produc[i + 1] * cp.valiva / 100);
        end
    else
       begin
          costopro[i] := cp.produc[i + 1];
       end;
   end;
 end;
 
 procedure presenta_resultados(d : array of real; cr : compra);
 var
   t : integer;
 begin
     total := 0;
     clrscr;
     writeln('   *****> Resultados Compra <*****');
     writeln;
     writeln('   Nombre Empleado      = ',cr.nombre);
     writeln('   Numero C.I           = ',cr.numic);
     writeln;
     for t := 0 to num - 1 do
     begin
     if t < 3 then
     begin
     writeln('   Producto N.',t + 1,' = ',cr.produc[t + 1]:0:2,'   IVA ',
                                           cr.valiva:0:2,'   ',d[t]:0:2);
     end
  else
      begin
        writeln('   Producto N.',t + 1,' = ',cr.produc[t + 1]:0:2,
                                                      '   ',d[t]:0:2);
      end;
     total := total + d[t];
     end;
     writeln;
     writeln('  ===========================');
     writeln('  Costo Total   = ',total:0:2);
 end;
 
 
   begin
     repeat
       clrscr;
       limpia_registro;
       pide_datos(lacompra);
       calculo_compra(lacompra);
       presenta_resultados(costopro,lacompra);
       writeln;
       writeln('   Desea Realizar Otro Calculo [S/N]');
       repeat
       tecla := upcase(readkey);
       until tecla in['S','N'];
     until tecla = 'N';
   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

programa para calcular el iva AYUDA..

Publicado por vadimir (4 intervenciones) el 18/10/2014 22:50:16
amigo de verdad muchas gracias. me fuiste de gran ayuda. cuando ley esta respuesta no tenia mucho de a ver terminado el mio pero me ayudaste a mejorarlo un monton gracias de verdad.
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