Pascal/Turbo Pascal - Duda, bloquear uso de letras.

 
Vista:

Duda, bloquear uso de letras.

Publicado por wind (26 intervenciones) el 04/04/2014 00:33:17
Saludos.

Busco modificar el programa.
Problema:
Si ingreso un numero con dos decimales, el programa se cierra. (Porque actualmente mi programa, carece de lógica)
Si ingreso una letra o varias letras, el programa se cierra.
¿Qué modificación le harías al programa?


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program Temperature;
var
F,C,R,K:real;
begin
(*Presentación del programa*)
writeln('Convertidor de temperatura');
writeln('Programa creado por wind.');
(*Captura de datos*)
write('Escribe la temperatura en grados celcius:');
readln(C);
F:=1.8*C+32;
R:=F+459.67;
K:=C+273.15;
writeln('La temperatura en grados Fahrenheit es:',F:2:2);
writeln('La temperatura en grados Rankine es:',R:2:2);
writeln('La temperatura en grados Kelvin es:',K:2:2);
readln;
end.
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

Duda, bloquear uso de letras.

Publicado por ramon (2158 intervenciones) el 04/04/2014 00:49:08
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
{A ver si esto te sirve}
 
program Temperature;
uses
   crt;
var
F,C,R,K:real;
begin
 repeat
 clrscr;
(*Presentación del programa*)
writeln('Convertidor de temperatura');
writeln('Programa creado por wind.');
(*Captura de datos*)
write('Escribe la temperatura en grados celcius:');
readln(C);
F:=1.8*C+32;
R:=F+459.67;
K:=C+273.15;
writeln('La temperatura en grados Fahrenheit es:',F:2:2);
writeln('La temperatura en grados Rankine es:',R:2:2);
writeln('La temperatura en grados Kelvin es:',K:2:2);
writeln;
writeln('  Desea Entrar Mas [S\N]');
te := upcase(readkey);
until te = 'N';
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