Pascal/Turbo Pascal - POR FA AYUDA sobre un programa en pascal

   
Vista:

POR FA AYUDA sobre un programa en pascal

Publicado por carolina33 crueladevil33@gmail.com (1 intervención) el 19/11/2014 04:13:37
buenas noches alguien que me ayude en un programa soy estudiante de ing de industrial ni idea de programacion por fa alguien q me ayude el problema es el siguiente

La empresa de productos lácteos “Vida y Salud”, es una empresa dedicada a la elaboración de los siguientes productos lácteos; los cuales se especifican a continuación:

Leche Descremada.
Leche Entera.
Yogures.
Helados.
A los fines de realizar sus campañas de ventas y elaborar las adecuadas estrategias
publicitarias, para así obtener mayores ganancias y posicionarse con ventaja en el
mercado de la elaboración de lácteos, la empresa ha contratado a un especialista en
encuestas para realizar un estudio de mercado, que permita conocer la aceptación del
público en referencia a los diferentes productos fabricados por la empresa.
Dicha encuesta se aplicará a una muestra de 200 personas, tomando en cuenta las
siguientes variables:
Producto.
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

POR FA AYUDA sobre un programa en pascal

Publicado por carolina33 crueladvil33@gmqil.com (1 intervención) el 20/11/2014 18:48:35
falto esta parte del programa:
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

POR FA AYUDA sobre un programa en pascal

Publicado por ramon (2072 intervenciones) el 22/11/2014 00:32:15
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
{Mira a ver si esto hayuda}
 
program encuesta;
  uses
     crt;
   const
       lacteos : array[1..4] of string[16] = (
       'Leche_Descremada','Leche_Entera','Yogures','Helados');
   type
      productos = record
         nom : string[40];
         prod : integer;
      end;
 
   var
     encu : array[1..4] of productos;
     cont, i, k : integer;
 
 
   function estrella : string;
   var
     n, c : integer;
     temp : array[1..4] of productos;
     pp : productos;
    begin
       for i := 1 to 4 do
       temp[i] := encu[i];
      for n := 1 to 4 do
        for c := 4 downto n + 1 do
        if temp[n].prod > temp[c].prod then
        begin
           pp := temp[n];
           temp[n] := temp[c];
           temp[c] := pp;
        end;
        estrella := temp[4].nom;
    end;
 
   procedure respuestas; {Esto seria la entrada de preguntas}
   begin
      fillchar(encu,sizeof(encu),0);
      i := 1;
    repeat
        k := random(40) + 1;
       if k in[1,2,3,4] then
       begin
          encu[k].prod := encu[k].prod + 1;
          case k of
       1 : encu[k].nom := lacteos[k];
       2 : encu[k].nom := lacteos[k];
       3 : encu[k].nom := lacteos[k];
       4 : encu[k].nom := lacteos[k];
         end;
          i := i + 1;
       end;
    until i > 200;
   end;
 
 
  begin
      clrscr;
      randomize;
      respuestas;
      gotoxy(10,1);write('****** Los Resultados De La Encuesta Son ******');
      gotoxy(2,3);writeln(encu[1].nom,' : ',encu[1].prod);
      gotoxy(2,4);writeln(encu[2].nom,'     : ',encu[2].prod);
      gotoxy(2,5);writeln(encu[3].nom,'          : ',encu[3].prod );
      gotoxy(2,6);writeln(encu[4].nom,'          : ',encu[4].prod);
      gotoxy(2,9);write('**** El Producto Estrella Fue = ',estrella);
      gotoxy(10,12);write('Pulse Una Tecla');
      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

POR FA AYUDA sobre un programa en pascal

Publicado por carolina33 crueladvil33@gmail.com (3 intervenciones) el 24/11/2014 01:03:05
hola ramon sabe q falto otra parte del programa no se porque no se copio completo y disculpa..
adjunto te envio el trabajo completo..
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

POR FA AYUDA sobre un programa en pascal

Publicado por carolina 33 crueladvil@gmail.com (1 intervención) el 09/12/2014 01:35:47
hola ramon mira el programa no esta completo el ejercicio completo y si me puedes ayudar.
La empresa de productos lácteos “Vida y Salud”, es una empresa dedicada a la elaboración de los siguientes productos lácteos; los cuales se especifican a Continuación:
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