Pascal/Turbo Pascal - ayuda para realizar un programa en pascal

   
Vista:

ayuda para realizar un programa en pascal

Publicado por juan (4 intervenciones) el 15/08/2014 04:11:48
hola todos buenas noches, necesito su ayuda urgente para un ultimo parcial de la uni, xD
un ejercicio, un programa en pascal, que tenga un menu de 3 opciones primera digitar vendedor y ventas, y por cadaa venta le vendedor recibe un 10% de comision, en la segunda opcion del menu diga cual fue el vendedor que vendio mas y en la tercera opcion del menu diga salir lo que pasa que e tenido mucho trabajo y es para mañana y no me da el tiempo s elo agradeceria saludos :3
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 para realizar un programa en pascal

Publicado por juan (4 intervenciones) el 15/08/2014 23:35:30
ayuda porfava
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

ayuda para realizar un programa en pascal

Publicado por Rene Gar (58 intervenciones) el 16/08/2014 05:04:37
Prueba si te sirve cuando ingreses datos lee lo que se te pide

saludos....

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
var
  Nombres:array of string;
  NroVendedor:integer;
  NroVentas:array of integer;
  opcion:byte;
 
procedure IngresarDatos;
var
  i:integer;
begin
    writeln('Ingrese el numero de vendedores a registrar ');
    readln(NroVendedor);
 
    SetLength(Nombres,NroVendedor);
    SetLength(NroVentas,NroVendedor);
    writeln();
 
    for i:=0 to NroVendedor-1 do
    begin
      Writeln('Ingrese el nombre del vendedor ');
      readln(Nombres[i]);
      writeln('Ingrese numero de ventas de ',Nombres[i]);
      readln(NroVentas[i]);
      writeln();
    end;
 
end;
 
procedure Mostrarventas;
var
  i:integer;
  pos:integer;
  maximo:integer;
begin
    maximo:=0;
    for i:=Low(Nombres) to High(Nombres) do
    begin
        if NroVentas[i]>maximo then
        begin
          maximo:=NroVentas[i];
          pos:=i;
        end;
 
    end;
    writeln();
   writeln('El mejor vendeor es ',Nombres[pos],' con ',maximo,' ventas ');
end;
 
begin
  repeat
  ClrScr;
 
  Writeln('Menu de ventas by Rene Gar ');
  writeln();
  writeln('Escoga el numero de alguna opcion ');
  writeln();
  writeln('(1) Ingresar Vendedor y Ventas');
  writeln('(2) Vendedor que mas vendio ');
  writeln('(3) salir ');
  readln(opcion);
 
  ClrScr;
  case  opcion of
    1:IngresarDatos;
    2:Mostrarventas;
    3:exit;
    else writeln('error vuelva a intentarlo ');
  end;
 
  writeln('De clic para continuar ');
  readln();
 
  until opcion=3;
end.

recuerda agradecer no cuesta nada
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

ayuda para realizar un programa en pascal

Publicado por juan (4 intervenciones) el 16/08/2014 05:12:32
mucha gracias me salvaste la vida man esto me vale 30 puntos -_- y tengo mucho trabajo xd trato de areglar un error en el them pero no logro solucionarlo
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

ayuda para realizar un programa en pascal

Publicado por juan (4 intervenciones) el 16/08/2014 05:31:22
gracias por hay va el programa :3 thanks solo tengo k agregar la funcion record, y la formula dle porciento xD
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