Pascal/Turbo Pascal - Necesito una ayuda urgente con esto!.

   
Vista:

Necesito una ayuda urgente con esto!.

Publicado por Jeyzen Jeyzenashford@hotmail.com (2 intervenciones) el 01/02/2015 01:25:17
Buenas noches usuarios, tengo un trabajo importante & no encuentro la forma de hacerlo!

Me están pidiendo que desarrolle un programa que:

- Lea 4 productos durante 4 años.
- Saque costo de cuanto vendieron los 4 productos por año (por separado).
- Calcule por producto el total de cada año
- Por ultimo dar el máximo & mínimo de entre esos 4 productos.

Si me ayudan seria de mucha ayuda! es gravé mi situación.

PD: También busco ayuda de una persona que me pueda enseñar sobre pascal, ya que sinceramente no me gusta estar en esto ;/
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

Necesito una ayuda urgente con esto!.

Publicado por ramon (2072 intervenciones) el 01/02/2015 13:53:22
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
112
113
114
115
116
117
118
119
120
121
122
123
124
125
{A ver si esto es lo que pides referente al programa }
 
 program productos;
  {$N+}
  uses
     crt;
  const
     nombre_producto : array[1..4] of string[7] = (
     'Queso','Jamon','Lomo','Ternera');
  type
     product = record
               nombre : string[7];
               precio : real;
              end;
 
     var
        pro : array[1..4,1..4] of product;
        porayo : array[1..4] of single;
        pp, cont : integer;
 
   procedure entrada_datos;
   begin
      clrscr;
      writeln('  **** Entrada Ventas Procudtos ****');
      writeln('       ------------------------     ');
      cont := 1;
      pp := 1;
    repeat
        writeln('   Venta A¤o ',cont,' Producto ',pp);
        pro[cont,pp].nombre := nombre_producto[pp];
        writeln('   Nombre : ',pro[cont,pp].nombre);
        write('   Costo : ');
        readln(pro[cont,pp].precio);
        pp := pp + 1;
        if pp > 4 then
        begin
           clrscr;
           writeln('  **** Entrada Ventas Procudtos ****');
           writeln('       ------------------------     ');
           pp := 1;
           cont := cont + 1;
        end;
    until cont > 4;
   end;
 
   procedure calcula_costos(t : integer);
   var
      j : integer;
   begin
       writeln(' A¤o ',t);
       writeln('  ',nombre_producto[1],'     ',nombre_producto[2],'      ',
                    nombre_producto[3],'      ',nombre_producto[4]);
       for j := 1 to 4 do
       begin
        porayo[t] :=  porayo[t] + pro[t,j].precio;
        write('   ',pro[t,j].precio:0:2);
       end;
       writeln;
       writeln('Total A¤o = ', porayo[t]:0:2);
       writeln;
   end;
 
   procedure maxmin;
   var
     s, g : integer;
     aux : single;
     sumas : array[1..4] of single;
   begin
      fillchar(sumas,sizeof(sumas),0);
      for s := 1 to 4 do
        for g := 1 to 4 do
        sumas[g] := sumas[g] + pro[s,g].precio;
      for s := 1 to 4 do
        for g := 4 downto s do
        if sumas[s] > sumas[g] then
        begin
           aux := sumas[s];
           sumas[s] := sumas[g];
           sumas[g] := aux;
        end;
        writeln(' ****** Minimo y Maximo De Los 4 Productos ******');
        writeln;
        writeln('  El minimo es = ',sumas[1]:0:2);
        writeln('  El Maximo es = ',sumas[4]:0:2);
      readkey;
   end;
 
   procedure menu;
   var
      tecla : char;
      sal : boolean;
   begin
       sal := false;
     repeat
          clrscr;
          writeln('      ****** Menu Leneral ******');
          writeln;
          writeln('   E = Entrada Datos');
          writeln('   V = Ventas Anuales');
          writeln('   M = Max y Minimo');
          writeln('   S = Salir');
          writeln;
          writeln('      <<<<< Elija Opcion >>>>>');
        repeat
           tecla := upcase(readkey);
        until tecla in['E','V','M','S'];
        clrscr;
    case tecla of
 'E' : entrada_datos;
 'V' : begin
         for pp := 1 to 4 do
         calcula_costos(pp);
         readkey;
       end;
 'M' : maxmin;
 'S' : sal := true;
   end;
     until sal = true;
   end;
 
 
  begin
     clrscr;
     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
1
Comentar

Necesito una ayuda urgente con esto!.

Publicado por Jeyzen (2 intervenciones) el 01/02/2015 21:58:24
Dios amigo muchas gracias!, estaba desesperado con esto seguro salvo mi semestre!, tendré que mejorar mis estudios sobre los arreglos!.
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