Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Pascal/Turbo Pascal » ayuda con while do.

Pascal/Turbo Pascal - ayuda con while do.

Volver
Nuevo Tema
<<>>
 
Vista:

ayuda con while do.

Publicado por wind (26 intervenciones) el 16/03/2014 23:11:31
Saludos.

He visto varios ejemplos con while do, pero no los entiendo. necesito algo más básico.
necesito un programa, que me pida ingresar un numero mayor que cero.
si el usuario ingresa un numero negativo, diga lo siguiente: "usted debe ingresar un numero mayor que cero".
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
sin imagen de perfil

ayuda con while do.

Publicado por lion (6 intervenciones) el 16/03/2014 23:50:13
Saludos wind


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
PROGRAM ejemplo;
 
VAR
  n:integer;
 
begin
  write('Introduzca un numero '); readln(n);
 
  while (n <= 0) do
  begin
    write('Usted debe ingresar un numero mayor que cero '); readln(n);
  end;
 
  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

ayuda con while do.

Publicado por wind (26 intervenciones) el 17/03/2014 22:50:08
muy agradecido.
Le agregué una sola linea de codigo:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program bucle;
var
n:integer;
 
begin
 
writeln('Usando while do');
(*Recepcion de datos*)
write('Ingrese numero mayor que cero:');
readln(n);
while (n<=0) do
begin
  write('Por favor, usted debe ingresar un numero mayor que cero:');
  readln(n);
  writeln('Correcto, el numero ingresado es mayor que cero');
  end;
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
sin imagen de perfil

ayuda con while do.

Publicado por lion (6 intervenciones) el 17/03/2014 23:54:14
Cuidado con el bucle wind,

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program bucle;
 
var
n:integer;
 
begin
writeln('Usando while do');
(*Recepcion de datos*)
 
write('Ingrese numero mayor que cero:');
readln(n);
 
while (n<=0) do
begin
  write('Por favor, usted debe ingresar un numero mayor que cero:');
  readln(n);
 
end;
 
writeln('Correcto, el numero ingresado es mayor que cero');
readln;
end.

la linea writeln('Correcto, el numero ingresado es mayor que cero'); debe ir fuera del bucle, pruebalo antes y despues introduciendo mas de un numero negativo y verás el error

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