Pascal/Turbo Pascal - COMO OBTENER UN VALOR DE UNA TABLA EN PASCAL

   
Vista:

COMO OBTENER UN VALOR DE UNA TABLA EN PASCAL

Publicado por orlando gronnyobom@gmail.com (4 intervenciones) el 18/03/2015 13:37:23
Saludo cordial y repetuoso a los miembros del foro.
Como comenzar la estructura para realizar el siguiente programa.
me dan un dato "A", es un numero real. Luego este dato "A" tiene que ubicarse dentro de una tabla estratificada para obtener un valor que le correspondera y el valor correspondiente sera multiplicado por un valor constante "K". Luego debe mostrar en pantella el resultado.
1 5000 90
5001 10000 103
Dato "A" 10001 15000 115
15001 20000 140
20001 25000 150
25001 30000 160
30001 35000 170
35001 40000 180
40001 45000 190
45001 50000 200
50001 70000 210
70001 1000000 220

----------------------------- valor " B "
TABLA
Ejemplo: Dato "A" =23.452,47 debe recorrer la tabla para ubicarse en latabla. Entre 20001/25000. Entonces le corresponde el valor " B "= 150. Este valor " B ", debe ser multiplicado por la constante " K " = 127. Y el el resultado de esta operacion debe ser mostrado en pantalla.
Muchas gracias por la orientacion.
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

COMO OBTENER UN VALOR DE UNA TABLA EN PASCAL

Publicado por ramon (2072 intervenciones) el 18/03/2015 22:46:04
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
{Algo así te ayudaría }
 
 program tablas;
  uses
     crt;
   type
     numeros = record
               num1 : longint;
               num2 : longint;
               num3 : word;
              end;
  const
     lastablas : array[1..12] of numeros =
     ((num1:1;num2:5000;num3:90),(num1:5001;num2:10000;num3:103),
      (num1:10001;num2:15000;num3:115),(num1:15001;num2:20000;num3:140),
      (num1:20001;num2:25000;num3:150),(num1:25001;num2:30000;num3:160),
      (num1:30001;num2:35000;num3:170),(num1:35001;num2:40000;num3:180),
      (num1:40001;num2:45000;num3:190),(num1:45001;num2:50000;num3:200),
      (num1:50001;num2:70000;num3:210),(num1:70001;num2:1000000;num3:220));
 
      k : integer = 127;
 
   var
     dato : real;
     b : integer;
 
   procedure entradanumero(var d : real);
   begin
      clrscr;
      write('   Ente Numero : ');
      readln(d);
   end;
 
   procedure resultado;
   var
     i : integer;
     resul : longint;
     local : boolean;
   begin
       local := false;
       entradanumero(dato);
       for i := 1 to 12 do
       begin
          if (lastablas[i].num1 < dato) and (lastablas[i].num2 > dato) then
          begin
          resul := lastablas[i].num3 * k;
          local := true;
          break;
          end;
      end;
        if local = true then
        writeln('  El Resultado Fue = ',resul)
      else
         writeln('  No Se Encontro Resultado');
         writeln('  Pulse Una Tecla');
         readkey;
    end;
 
 
   begin
       resultado;
   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

COMO OBTENER UN VALOR DE UNA TABLA EN PASCAL

Publicado por orlando (4 intervenciones) el 19/03/2015 03:51:29
Ramon. Agradecido por tu orientacion muy precisa y oportuna....Gracias.
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