Pascal/Turbo Pascal - Convertir caracteres a numero real sin utilizar funciones

   
Vista:

Convertir caracteres a numero real sin utilizar funciones

Publicado por Daniel (1 intervención) el 05/11/2012 11:53:10
Hola buenas, tengo que entregar para este miércoles una practica examen y solo me queda el ultimo apartado el cual no entiendo muy bien. Reza así:
_______________________________________________________________________________
La opción 2 leerá caracteres por teclado y devolverá la raíz cúbica del número real formado
por esos caracteres. Terminará de leer cuando se produzca un error (del cual debe informar) o
cuando se introduzca el ‘#’, en este caso el número será correcto. Los números negativos
empezarán con un ‘-‘ y los positivos no llevarán ningún signo. El separador de decimales será el
carácter ‘^’. No se aceptarán otros caracteres entre los dígitos del número.
No se puede utilizar ninguna función de conversión de tipos de datos.
El resultado de la ejecución debe ser:

RAÍZ CÚBICA DE REAL LEÍDO CARÁCTER A CARÁCTER.
Número: <aquí se introducirá un número con la notación indicada>#
------------------------------------------
Su raíz cúbica es: <raíz cúbica del número>
.…¿Continuar ? (S/N)….

En caso de error en la lectura del número se parará de leer en el momento que se detecte y,
en vez de “Su raíz cúbica ...”, se dará un mensaje indicando el motivo por el que se considera
que es incorrecto.
_______________________________________________________________________________

Lo que me interesa de verdad es como pasar esos caracteres introducidos a un numero real sin utilizar funciones de conversión.
Muchas gracias.
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

Convertir caracteres a numero real sin utilizar funciones

Publicado por ramon (2072 intervenciones) el 06/11/2012 22:02:23
Disculpa estas programando en pascal por lo tanto podrás usar todo lo que tiene dicho lenguaje
o no lo que te pedirá sera que no incluyas tu unidades sino que lo hagas directo me equivoco o no
necesito saberlo para ayudarte de una manera o otra.
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

Convertir caracteres a numero real sin utilizar funciones

Publicado por ramon (2072 intervenciones) el 07/11/2012 18:33:25
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
{Conversión con los medios de pascal}
 
program caracter_real;
  uses
     crt;
  var
    carac : string;
    ted : char;
    numreal : real;
    d, n, error : integer;
  begin
      clrscr;
      n := 1;
      write('  Entre numero Separacion decimal ^ : ');
    repeat
        ted := readkey;
     if ted in['0'..'9','^'] then
     begin
     carac[n] := ted;
     carac[0] := chr(n);
     write(ted);
     n := n + 1;
     if n > 12 then
     n := 12;
    end;
    if ted = #8 then
    begin
        n := n - 1;
        carac[n] := ' ';
        carac[0] := chr(n);
        write(ted);
    end;
    until ted = '#';
    d := 1;
   repeat
    if carac[d] = '^' then
    begin
        carac[d] := '.';
    end;
    d := d + 1;
   until  d > n - 1;
   val(carac,numreal,error);
   writeln;
   writeln('   El N§ Real Es : ',numreal:0:2);
   readln;
   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