Pascal/Turbo Pascal - buenas, no se realizar un ejercicio de registro con array

   
Vista:

buenas, no se realizar un ejercicio de registro con array

Publicado por nestor (1 intervención) el 03/02/2016 03:20:17
Realice un registro CON ARRAY donde a una empresa que ofrece servicios de computación cumpla las siguientes premisas en sus nuevos precios al público haciéndoles los siguientes descuentos: a.- si son monitores de 17´´ y color negro un 25%, b.-si son monitores 15´´ y color beige un 22%, c.- si son tarjetas de sonido AGP 4x el 5%, d.-si son tarjetas de video PCI Express 16X el 2%, e.- si el cliente factura 12 articulo iguales un 1% extra.
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

buenas, no se realizar un ejercicio de registro con array

Publicado por dario (40 intervenciones) el 03/02/2016 14:24:29
No entiendo tu ejercicio.
Cual es el enunciado del problema, cuales son los campos del registro.
Saludos.
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

buenas, no se realizar un ejercicio de registro con array

Publicado por nestor (1 intervención) el 03/02/2016 17:14:28
hola dario, bueno ella pide que hagamos un registro con array. los campos los se va a colocar uno. el tema esta en que no se como empezar a realizar el ejercicio tengo una idea con el tema de clase que ella nos explico un ejercicio pero no tiene nada que ver con este.

algo mas o menos asi.

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
programa_____;
type
 begin
 nombre_registro: record;
  campo1  (): tipo de dato:
end
variable
nom_array: (1...n, 1..m)
i,j: integer;
constante
n
m
begin
begin
fori 1 to i: n do i++
begin
for j to j : n do i++
writeln (introduce datos: nom_array (i,j) nom_registro)
begin
if then else
end
end
end
begin
fori 1 to i: n do i++
begin
for j to j : n do i++
readln (nom_array i,j nombre del registro)
end
end
end.

algo asi nos explico ella y con el ejercicio tengo que meter esos campos hay muestre los nombre de los televisores descuento
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

buenas, no se realizar un ejercicio de registro con array

Publicado por Miguel (1 intervención) el 04/02/2016 03:38:22
Buenas noches Estimado Nestor,

Estoy de acuerdo con lo que dice Victorio, de todas maneras sabes que los Delegados de Curso te podrían ayudar enviandote las clases que dan los profesores, por ejemplo te puedo enviar una clase parecida que vi en estos días en mi Materia de Estructura de Datos.

Espero te ayude.
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

buenas, no se realizar un ejercicio de registro con array

Publicado por victorio (1 intervención) el 04/02/2016 03:25:52
Buenas noches estimado el ejercicio es fácil deberias de empezar con el cuadrito que te dio la profesora ese dia sabiendo que es
un registro con matriz
---

espero te ayude mi respuesta

saludos
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

buenas, no se realizar un ejercicio de registro con array

Publicado por ramon (2072 intervenciones) el 05/02/2016 13:11:32
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
126
127
128
129
130
131
132
{Mira esto}
 
 program registro_array;
  uses
     crt;
 
   type
     string34 = string[34];
 
   const
 
     max = 20;
 
     descu : array['A'..'E'] of integer = (25,22,5,2,1);
 
     condicion : array['A'..'E'] of string34 = (
     'monitores de 17" y color negro',
     'monitores 15" y color beige',
     'tarjetas de sonido AGP 4x',
     'tarjetas de video PCI Express 16X',
     'factura 12 articulo iguales');
 
 
   type
      compras = record
              articulo : string34;
              descuent : integer;
              precio   : real;
              cantidad : integer;
              descext  : integer;
              preciofinal : real;
             end;
 
   var
     cliente : array[1..max] of compras;
     cont : integer;
     te : char;
     des : real;
 
 
   procedure entrada_datos;
   begin
      writeln('  ***** Entrada Pedidos *****');
      writeln;
      write('   Articulo ');
      writeln;
      writeln('  A = Monitore De 17" Y Color Negro');
      writeln('  B = Monitore De 15" Y Color Beige');
      writeln('  C = Tarjeta  De Sonido AGP 4x');
      writeln('  D = Tarjeta  De Video PCI Express 16X');
      writeln;
      writeln('   Pulse Letra De Articulo');
      repeat
         te := upcase(readkey);
      until te in['A','B','C','D'];
      cliente[cont].articulo := copy(condicion[te],1,length(condicion[te]));
      cliente[cont].descuent := descu[te];
      writeln;
      write('   Entre Precio Unidad     : ');readln(cliente[cont].precio);
      write('   Entre Cantidad Articulo : ');readln(cliente[cont].cantidad);
      cliente[cont].descext := 0;
      if cliente[cont].cantidad >= 12 then
      begin
      cliente[cont].descuent := cliente[cont].descuent + 1;
      cliente[cont].descext := 1;
      end;
      des := (cliente[cont].cantidad * cliente[cont].precio) *
                   cliente[cont].descuent / 100;
      cliente[cont].preciofinal := (cliente[cont].cantidad *
                          cliente[cont].precio) - des;
     writeln;
     writeln('   Total Importe = ',cliente[cont].preciofinal:0:2);
     writeln;
     writeln('   Pulse Una Tecla');
     readkey;
     cont := cont + 1;
   end;
 
   procedure Muestratodo;
   var
     h : integer;
     begin
        writeln;
        writeln('  Articulo       Descuento    Precio    Cantidad      Extra   ',
        '   Pecio Final');
        writeln;
        for h := 1 to cont - 1 do
        with cliente[h] do
        begin
        writeln('  ',articulo,'   ',descuent,'    ',precio:0:2,'    ',cantidad,
            '    ',descext,'    ',preciofinal:0:2);
        end;
        writeln;
        writeln('   Pulse Una Tecla');
        readkey;
     end;
 
 
   procedure menu;
   var
     tecla : char;
     salir : boolean;
     begin
       salir := false;
       cont := 1;
       fillchar(cliente,sizeof(cliente),0);
     repeat
       clrscr;
       writeln('    ***** Menu Jeneral *****');
       writeln;
       writeln('   1 = Entrada Cliente');
       writeln('   2 = Muestra Clientes');
       writeln('   S = Salir');
       writeln;
       writeln('   Elija Opcion');
       repeat
           tecla := upcase(readkey);
       until tecla in['1','2','S'];
       clrscr;
    case tecla of
 '1' : entrada_datos;
 '2' : Muestratodo;
 'S' : salir := true;
    end;
     until salir = true;
   end;
 
 
 
   begin
     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