Pascal/Turbo Pascal - Ayuda para controlar el valor introducido por el usuario

   
Vista:

Ayuda para controlar el valor introducido por el usuario

Publicado por eduardo (13 intervenciones) el 28/05/2013 21:00:36
disculpen pero hago esto para ver si alguien me puede ayudar ,quiero hacer que en estos 2 programas de pascal al colocar una letra o un símbolo me diga al darle run el mensaje de :NO ES VALIDO ya e intentado muchas formas pero me da un error siempre porfavor espero que me ayuden en esto :S

aka los 2 programas:

programa 1:

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
Program Calificaciones;
uses wincrt;
var
nota:integer;
begin
clrscr;
writeln;
writeln('100');
writeln;
write('Introduzca la nota (>=0) y (<=100):');
readln(nota);
write('La calificacion es');
case nota of
100:write('Exelente');
90..99 :write('Sobresaliente');
80..89 :write('Notable');
70..79 :write('Buen Alumno');
60..69 :write('Regular');
50..59 :write('Aprovado');
0..49:  write('Reprovado');
else    write('No valida');
end;
writeln;
writeln;
write('Pulse enter para continuar');
readln
end.


programa 2:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program factura;
uses wincrt;
var
prec_zap,prec_total:REAL;
begin
clrscr;
write('precio de zapatos');
readln(prec_zap);
if prec_zap <=500 THEN
prec_total:=prec_zap
else
prec_total:=prec_zap-(0.20*prec_zap);
write('precio a pagar:');
write(prec_total:5:2)
end.


por favor ayúdenme los nesecito urgentemente
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

Ayuda para controlar el valor introducido por el usuario

Publicado por ramon (2072 intervenciones) el 29/05/2013 12:52:50
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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
{Mira esto}
 
Program Calificaciones;
  uses
    crt;
  var
    nota : integer;
 
 
  procedure entradas;
   begin
     clrscr;
      writeln;
      write('Introduzca la nota (>=0) y (<=100):');
      {$I-} readln(nota); {$I+}
      if ioresult <> 0 then
      begin
      writeln('Deve De Entrar Numero Pulse Una Tecla');
      readkey;
      entradas;
      end;
      write('La calificacion es ');
      case nota of
     100:write('Exelente');
     90..99 :write('Sobresaliente');
80..89 :write('Notable');
70..79 :write('Buen Alumno');
60..69 :write('Regular');
50..59 :write('Aprovado');
0..49: write('Reprovado');
else
   write('No valida');
end;
writeln;
writeln;
write('Pulse enter para continuar');
readln
end;
 
begin
  entradas;
end.
 
{//////////////////////////////////////////////}
 
program factura;
   uses crt;
   var
     prec_zap,prec_total:REAL;
   procedure precios;
    begin
      clrscr;
      write('precio de zapatos  ');
      {$I-} readln(prec_zap); {$I+}
      if ioresult <> 0 then
      begin
      writeln('Deve De Entrar Numero Pulse Una Tecla');
      readkey;
      precios;
      end;
    if prec_zap <=500 THEN
    prec_total:=prec_zap
 else
    prec_total:=prec_zap-(0.20*prec_zap);
    write('precio a pagar : ');
    write(prec_total:5:2);
    readkey;
  end;
 
  begin
     precios;
  end.
 
{Esta es una manera a un que hay otras mas fiables}
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

Ayuda para controlar el valor introducido por el usuario

Publicado por eduardo (13 intervenciones) el 29/05/2013 13:23:01
muchas gracias brother eres el mejor XD
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