Pascal/Turbo Pascal - Ejercicio de decimales

   
Vista:

Ejercicio de decimales

Publicado por Faith (4 intervenciones) el 24/06/2014 19:13:26
El programa recibe un número, del tipo 12,345654 (osea, un número con decimales). Y lo que me piden es que separe el 12 del 345654.

Y saber si es un número 12,345654(con decimales) ó si sólo es 12(sin decimales). Vamos, como si mandase un true para cuando sea decimal y un false para cuando no.

Son esas dos cosas.



Sería de gran ayuda, 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

Ejercicio de decimales

Publicado por David (144 intervenciones) el 24/06/2014 20:04:56
Te propongo la siguiente solución:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
uSES crt;
 
VAR
  A : rEAL;
  entero:integer;
  decimal : real;
 
BEGIN
  Writeln('Introduzca un n£mero: ');
  readln(a);
  entero:=Trunc(a);
  decimal:=a-entero;
  if decimal=0 then {Quiere decir que el número no tiene decimales}
     Writeln('Sin decimales. Número entero')
  else
    writeln('Con decimales. Número real');
  Writeln('La parte entera del n£mero es ',entero);
  Writeln('La parte decimal del n£mero es: ',decimal:3:3);
  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

Ejercicio de decimales

Publicado por Faith (4 intervenciones) el 25/06/2014 18:46:20
Muchísimas gracias!!! Voy a probarlo en mi programilla y te luego te diré.

Por cierto, muy buena la idea.

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