elaborar condiciones

Ver el tema anterior Ver el tema siguiente Ir abajo

elaborar condiciones

Mensaje  Israfel el Dom Feb 13, 2011 7:36 pm

dada una condicion mandar error si no se cumple.

program condicion5;
uses crt;
var
x:integer;
begin
clrscr;
Writeln('Diga un numero que no pase de 10:');
read(x);
if(x>10)then
Write('el numero que ingreso es mayor de 10');
if(x<10)then
Write('El numero que marco es correcto');
readkey;
end.
------------------------
program condicion5;
uses crt;
var
x,y:integer;
begin
clrscr;
Writeln('Diga un numero que no pase de 10:');
read(x);
if(x>10)then {si x es mayor que 10 entonces}
Write('el numero que ingreso es mayor de 10');
if(x<10)then {si x es menor de 10 entonces}
Write('El numero que marco es correcto');
readkey;
end.

Israfel

Mensajes : 28
Fecha de inscripción : 12/02/2011
Edad : 27

Ver perfil de usuario

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba

- Temas similares

 
Permisos de este foro:
No puedes responder a temas en este foro.