Pascal/Turbo Pascal - programa para ventas

 
Vista:
sin imagen de perfil

programa para ventas

Publicado por marcos (7 intervenciones) el 25/08/2017 16:04:19
Buenas.''

Alguien tan amable de ayudarme. ocupo un programa que simule una venta de x productos en el cual se nesecito informacion del cliente (nombre apellido difecion pais y telefono) introducir datos del producto (cantidad color talla en caso de ropa). GRACIAS si alguien me colabora.
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 ventas

Publicado por ramon (2127 intervenciones) el 26/08/2017 18:46:26
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
{A ver si esto ayuda}
 
 
program ventas;
 uses
    crt;
  type
     producto = record
          cantidad : integer;
          color : string[30];
          talla : integer;
        end;
 
     cliente = record
          nombre : string[40];
          apellido : string[120];
          direccion : string[200];
          pais : string[100];
          telefono : string[25];
          produc : producto;
       end;
 
    const
       n = 6;
 
   var
     cli : array[1..n] of cliente;
     datos : cliente;
     i, cont : integer;
     sal : boolean;
     tec : char;
 
   procedure entre_datos(var d : cliente);
   begin
      writeln('  ****** Entrada Datos Cliente ******');
      writeln;
      write('   Nombre    = ');
      readln(d.nombre);
      write('   Apellido  = ');
      readln(d.apellido);
      write('   Direccion = ');
      readln(d.direccion);
      write('   Pais      = ');
      readln(d.pais);
      write('   Telefono  = ');
      readln(d.telefono);
   end;
 
   procedure entrada_productos(var p : cliente);
   begin
      writeln;
      writeln('   <<<<<< Entrada De Productos >>>>>>');
      writeln;
      write('   Entre Cantidad = ');
      readln(p.produc.cantidad);
      write('   Entre Color    = ');
      readln(p.produc.color);
      write('   Entre Talla    = ');
      readln(p.produc.talla);
   end;
 
   begin
     cont := 1;
     sal := false;
    repeat
      clrscr;
      writeln('Desea Entrar Datos [S/N]');
      repeat
      tec := upcase(readkey);
      until tec in['S','N'];
     case tec of
  'S' : begin
          if cont <= n then
          begin
            entre_datos(datos);
            entrada_productos(datos);
            cli[cont] := datos;
            if cont < n then
            cont := cont + 1;
          end
       else
           begin
              writeln('   Fin De Entradas Pulse Una Tecla');
              readkey;
              sal := true;
           end;
        end;
  'N' : sal := true;
     end;
    until (cont > n) or (sal = true);
    for i := 1 to cont - 1 do
    begin
    clrscr;
    writeln('   Datos Cliente ');
    writeln;
    writeln('   Nombre    : ',cli[i].nombre);
    writeln('   apellido  : ',cli[i].apellido);
    writeln('   Direccion : ',cli[i].direccion);
    writeln('   Pais      : ',cli[i].pais);
    writeln('   Telefono  : ',cli[i].telefono);
    writeln;
    writeln('   Datos Producto ');
    writeln;
    writeln('   Cantidad  : ',cli[i].produc.cantidad);
    writeln('   Color     : ',cli[i].produc.color);
    writeln('   Talla     : ',cli[i].produc.talla);
    writeln;
    writeln('   Pulse Una Tecla');
    readkey;
    end;
   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 ventas

Publicado por Marcos (1 intervención) el 26/08/2017 22:50:17
Es algo similar aun faltan cosas pero gracias con eso me puedo guiar .

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