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 » Listado vendedor/ventas

Pascal/Turbo Pascal - Listado vendedor/ventas

Volver
Nuevo Tema
<<>>
 
Vista:

Listado vendedor/ventas

Publicado por facu (1 intervención) el 07/08/2019 22:28:18
Hola gente, estoy empezando con esto y no entiendo bien este ejercicio. Espero me puedan ayudar

Una empresa tiene 30 empleados, numerados del 1 al 30.
Por cada venta de algun articulo realizada se tienen los sig datos:
*numero de vendedor
*precio del articulo
NO SE SABE LA CANTIDAD DE VENTAS REALIZADAS, cada vendedor pudo haber realizado 1, mas de 1 o ninguna. Los datos NO estan ordenados.
Numero de vendedor igual a 0 indica fin de datos

Se desea obtener un listado donde se muestre para cada vendedor el costo total de lo que vendió.
EJ:

VENDEDOR --------- TOTAL
1 -------------------------- 200
3 -------------------------- 0
4--------------------------- 400
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

Listado vendedor/ventas

Publicado por ranon (2158 intervenciones) el 12/08/2019 14:17:39
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
{Espero esto te sirva}
 
program vendedor;
 uses
    crt;
  type
    empleados = array[1..30] of record
        vendedor : integer;
        total    : real;
      end;
 
   var
     vend : empleados;
     num, cont : integer;
     imp : real;
 
   procedure entradatos;
   var
     tc : char;
   begin
      clrscr;
      writeln('***** Entrada Datos Empleados 1 A 30 *****');
      writeln;
      write(' Entre Numero Empleado : ');readln(num);
      write(' Entre Importe         : ');readln(imp);
      writeln(' Los Datos Entrados  Son Correctos [S/N]');
      repeat
         tc := upcase(readkey);
      until tc in['S','N'];
    if tc = 'N' then
    entradatos
  else
     begin
       vend[num].total := vend[num].total + imp;
       vend[num].vendedor := num;
       cont := cont + 1;
     end;
   end;
 
   procedure presentadatos;
   var
     t : integer;
   begin
      if cont > 0 then
      begin
      writeln('Numero','      ','Total');
      writeln;
      for t := 1 to cont do
      writeln(vend[t].vendedor,'          ',vend[t].total:0:2);
      readkey;
      end;
   end;
 
 
   procedure menu;
   var
     tl : char;
     sali : boolean;
   begin
      sali := false;
    repeat
       clrscr;
       writeln('******* MENU JENERAL ******');
       writeln;
       writeln('   1 : Entrada Datos');
       writeln('   2 : Presenta Datos');
       writeln('   3 : Salir');
       writeln;
       writeln('<<<<<<< Elija Opcion >>>>>>>');
       repeat
          tl := readkey;
       until tl in['1','2','3'];
       clrscr;
    case tl of
  '1' : entradatos;
  '2' : presentadatos;
  '3' : sali := true;
     end;
    until sali = true;
   end;
 
 
   begin
       fillchar(vend,sizeof(vend),0);
       cont := 0;
       menu;
   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