-
Lenguaje
Pascal
-
Descripción
Lea un número y obtenga el signo, su parte entera y su parte fraccionaria.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program SignoParteEnteraYParteFraccionaria;
uses crt, math;
var parte_entera, parte_fraccionaria, un_numero : real;
begin
write ('Ingresa el valor de un numero: ');
readln (un_numero);
parte_entera := floor(un_numero);
parte_fraccionaria := un_numero-parte_entera;
if un_numero>=0 then
begin
writeln ('Signo positivo');
end
else
begin
writeln ('Signo negativo');
end;
writeln ('Valor de parte entera: ', parte_entera:0:6);
writeln ('Valor de parte fraccionaria: ', parte_fraccionaria:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt, math;
var parte_entera, parte_fraccionaria, un_numero : real;
begin
write ('Ingresa el valor de un numero: ');
readln (un_numero);
parte_entera := floor(un_numero);
parte_fraccionaria := un_numero-parte_entera;
if un_numero>=0 then
begin
writeln ('Signo positivo');
end
else
begin
writeln ('Signo negativo');
end;
writeln ('Valor de parte entera: ', parte_entera:0:6);
writeln ('Valor de parte fraccionaria: ', parte_fraccionaria:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.