Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Pascal/Turbo Pascal » Ayuda con un ejercicio

Pascal/Turbo Pascal - Ayuda con un ejercicio

Volver
Nuevo Tema
<<>>
 
Vista:
sin imagen de perfil

Ayuda con un ejercicio

Publicado por angel (1 intervención) el 10/06/2015 01:49:39
Ejercicio 2:
Se lee información de los clientes de un supermercado. De cada cliente se conoce el número, nombre y apellido, tipo de cliente(A,B o C), y los códigos(1..500) de los diez productos que más compra.
Además el supermercado tiene una estructura donde guarda los 500 productos que venden. De cada producto se dispone el código del producto, el precio y si esta en oferta o no.

Se desea informar para cada cliente cuales son los productos que más compra y están en oferta.


NECESITO HACER ESTE PROGRAMA AYUDA
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

Ayuda con un ejercicio

Publicado por ramon (2158 intervenciones) el 11/06/2015 14:02:48
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
{ A ver siestas estructuras te sirven para empezar }
 
 program super_mercado;
 uses
     crt;
 
 
 
  type
     quetipo = set of 'A'..'C';
 
     producto = record
            codigo : word;
            precio : real;
            oferta : boolean;
          end;
 
 
     cliente = record
             numero : word;
             nombre : string[50];
             apelli : string[50];
             tipocli : quetipo;
             codigos : word;
           end;
 
   var
     client : array[1..500] of cliente;
     estruc : array[1..500] of producto;
     alma, cont : integer;
 
 
   procedure entra_productos;
   var
     sino : char;
   begin
      clrscr;
      alma := alma + 1;
      if alma > 500 then
      begin
         writeln('  Fin De Entradas Array Completo pulse Una Tecla');
         readkey;
         exit;
      end
   else
      begin
      writeln('   **** Entrada De Productos ****');
      writeln;
      write('  Codigo : ');readln(estruc[alma].codigo);
      write('  Precio : ');readln(estruc[alma].precio);
      write('  Oferta [s/n] : ');readln(sino);
      if upcase(sino) = 'S' then
      estruc[alma].oferta := true
    else
       estruc[alma].oferta := false;
      end;
   end;
 
 
  procedure entre_cliente;
  var
     tip : char;
  begin
     clrscr;
     cont := cont + 1;
     if cont > 500 then
     begin
        writeln('  Fin De Entradas Array Completo pulse Una Tecla');
         readkey;
         exit;
     end
  else
     begin
     writeln('   **** Entrada Cliente ****');
     writeln;
     write('  Numero               : ');readln(client[cont].numero);
     write('  Nombre               : ');readln(client[cont].nombre);
     write('  Apellido             : ');readln(client[cont].apelli);
     write('  Tipo Cliente [A,B,C] : ');readln(tip);
     if upcase(tip) in['A'..'C'] then
     client[cont].tipocli := upcase(tip);
     write('  Codigo Producto      : ');readln(client[cont].codigos);
     end;
  end;
 
 begin
      clrscr;
      cont := 0;
      alma := 0;
      entra_productos;
      entre_cliente;
      readkey;
   end.
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