Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Ayuda Problema con random (https://www.clubdelphi.com/foros/showthread.php?t=63916)

zelt@ 09-03-2009 09:22:08
Ayuda Problema con random
 
Bueno el problema que tengo con radon es que quiero generar numeros aleatorios pero que sumados me den cierta cantidad por ejemplo que los 2 primeros digitos me sumen 10 despues los otros 2 sumen 12 y yo lo programe asi

Cita:

var char1,char2,char3,char4:integer;
begin
randomize();
char1 := random (9)+1;
char2:=10-char1;
char3:= random(9)+3;
char4:=12-char19;

Los primeros 2 digitos estoy diciendo que me de como resultado 10 y ese sí me da lo que pido de manera aleatoria pero el char3 y char4 al sumarlo me da 12 pero despues de generar muchas veces me manda por ejemplo 3 111 o 102 para que me entiendan pongo unos digitos que genera

Cita:
5584
37102
3739
3757
9139
91111
Como se pueden fijar me genera numeros de mas y no cumplen que la suma del digito 3+4 sea igual a 12 en varios generados sí pero en los demas ya no
mi pregunta es como puedo evitar que me genere esos digitos de mas y que los digitos que me mande cumplan con lo que pido en este caso que sumen 12?
gracias de ante mano

Crandel 09-03-2009 12:51:37
el código que pones esta relativamente bien. Me parece que debes algun problema cuando lo conviertes a caracteres o algo asi.

Código Delphi [-]
num1 := Random (9)+1;
num2 := 10-num1;
num3 := Random(11)+1;  // aca sería 11 no 9
num4 := 12-num3;

zelt@ 09-03-2009 16:27:55
ayuda no se puede
 
ya modifique el error que tenia pero no se resuelve pero si fuera de la conversion los otros 2 primeros digitos tambien saldrian mal no crees?


La franja horaria es GMT +2. Ahora son las 10:26:22.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi