Adivinar números

En este ejercicio vamos a intentar averiguar un número del o al 9 . Para ello declaramos 3 variables del tipo integer .

Lo nuevo que vamos a introducir es la función randomize , con ésta el ordenador escoge un número aleatorio en este caso del 0 al 10 del siguiente modo : randomize num:=(10)

Luego asignamos a otra variable el valor = 0 del siguiente modo i:=0

Posteriormente comenzamos la función repeat .Esta función repite la operación introducida hasta que se cumpla un determinada condición que asignamos para concluir.

En esta función no es necesario poner begin y end porque repeat y until ya cumplen esta función .

Comenzamos el bucle del siguiente modo :

Repeat

i:=i+1 de este modo cada vez que se introduzca un número y se vuelva a realizar la operación se sumará 1 y puesto que i era 0 la primera vez que se intenta y aconsta como 1 .

Pedimos un número que deberá ser el escogido arbitrariamente por el ordenador , de no ser el caso el programa pide otro número , y así sucesivamente hasta que el número introducido es igual al número escogido por el ordenador .

Esta condición se indica del siguiente modo :

until num (número arbitrario ) =N (número introducido)

cuando se cumple esta condición el programa sale del repeat y cuenta los intentos empleados en intentar adivinarlo . del siguiente modo :

writeln (‘adivinarlo te ha costado ‘,i,’intentos’);

y también nos indica cual era el número que buscábamos .