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

COMO OBTENER UN VALOR DE UNA TABLA EN PASCAL

Publicado por orlando (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 clara

No 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 (2158 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 clara

No 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

0

Comentar