Val (Duda)
Publicado por wind (26 intervenciones) el 27/04/2014 00:14:51
Saludos cordiales.
Encontre un error en VAL. Me explico. si el usuario ingresa:
.1
(Es como si el usuario ingresará un Cero, al lado izquierdo) (El programa actual, me permite este error, sin embargo quiero prohibir esto, No se me ocurre como... ¿Alguna sugerencia? ¿Se puede?)
Encontre un error en VAL. Me explico. si el usuario ingresa:
.1
(Es como si el usuario ingresará un Cero, al lado izquierdo) (El programa actual, me permite este error, sin embargo quiero prohibir esto, No se me ocurre como... ¿Alguna sugerencia? ¿Se puede?)
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
program project2val;
uses crt;
var
C:string; respuesta:char; code:integer;C1,F1,R1,K1:real;
begin
(*Presentación del programa*)
writeln('Convertidor de temperatura');
writeln('Programa creado por Benjamin C.');
(*Captura de datos*)
repeat
write('Escribe la temperatura en grados celcius:');
readln(C);
val(C,C1,code);(*Transforma el string a un número real*)
if (code=0) then
begin
F1:=1.8*C1+32;
R1:=F1+459.67;
K1:=C1+273.15;
writeln('La temperatura en grados Fahrenheit es:',F1:2:2);
writeln('La temperatura en grados Rankine es:',R1:2:2);
writeln('La temperatura en grados Kelvin es:',K1:2:2);
end
else
write('Haz ingresado un dato incorrecto.');
writeln('Presione S para ingresar m',#160,'s datos');
writeln('Presione N para salir del programa');
write('Seleccione una opci',#162,'n (S/N): ');
readln(respuesta);
until (respuesta='n') or (respuesta='N');
writeln('Presione una tecla para finalizar el programa');
readkey;
end.Valora esta pregunta
0
