Casa
Top.Mail.Ru Yandeks.Metrika
Foro: "Principal";
Archivo actual: 2002.01.08;
Descargar: [xml.tar.bz2];

abajo

Nuevo problema: + ( Encontrar ramas similares


stalin   (2001-12-18 00:20) [0]

Al saber cuántos dígitos hay en un número de forma matemática para desplegar un número (es decir, era 135, se debería obtener 531) ... ¡Aquí! ; +)



Blackweber   (2001-12-18 00:28) [1]

Es posible iniciar un ciclo desde 1 hasta la longitud (num), en el que se lee el primer dígito y se coloca al final del número.



Blackweber   (2001-12-18 00:34) [2]

es decir, 135> 351> 513



False_Delirium   (2001-12-18 01:02) [3]

Función inversa (Z: entero): entero;
var T: entero;
comenzar
Resultado: = 0;
T: = Trunc (Ln (Z) / Ln (10));
mientras que Z> 0 hacer
comenzar
Inc (Resultado, (Z mod 10) * Ronda (Exp ((T) * Ln (10))));
Z: = Z div 10;
Diciembre (T);
fin
fin;



Sergey_n   (2001-12-18 01:37) [4]

Puedo ofrecer una variante en C ++

int x = 27531; // que debe ser desplegado
int y = 0; // donde desplegar
int n = (int) log10 (x); // la longitud del número a expandir
para (int i = n; i> = 0; i -) {
y=y+((int)(x/pow(10,i))-10*(int)(x/pow(10,i+1)))*(int)pow(10,n-i);
}



False_Delirium   (2001-12-18 02:05) [5]

> Sergey_n Usted tiene operaciones 14 para la interrelación ... y yo tengo 10 ... :) .. heh .. :)) .. :))) ... ¿quién es menos ..?. :)))



Sergey_n   (2001-12-18 03:16) [6]

La pregunta fue planteada para escribir, y no quién es menos. En este caso, la tarea se completa. Por cierto, ¿cómo crees (iteración)?



False_Delirium   (2001-12-18 04:14) [7]

¿Por qué luego escribiste si la tarea ya se completó cuando se escribió el primer ejemplo ...? El número de iteraciones es el número de repeticiones del ciclo, y el número de operaciones es el número de operaciones aritméticas por iteración.



Sergey_n   (2001-12-18 22:59) [8]

2False_Delirium cuando comencé a escribirlo aún no se había completado.

> El número de iteraciones es el número de repeticiones del ciclo, y el número
> operaciones es el número de operaciones aritméticas por iteración.
Es un pan comido. ¿Está seguro de que en el interior de Fu-i Inc, Round, ... operaciones aritméticas tanto como cree ????



False_Delirium   (2001-12-19 00:10) [9]

Heh ... :) ... pero estoy seguro en Inc, pero Round se ejecuta válidamente en operaciones 3, puedes eliminarlo por completo ... pero, ¿qué dices sobre pow ... :) ...? ... :)



KilkennyCat   (2001-12-19 02:27) [10]

Pero esta no es una forma matemática.



Sergey_n   (2001-12-19 04:41) [11]

2False_Delirium I no fue perezoso y se probó utilizando una traza. prog
Label1-> Caption = DateTimeToStr (Now ());
doble x = 20, y;
para (registro __int16 i = 0; i <2767; i ++)
para (registro __int16 j = 0; j <32767; j ++)
<expresión de prueba>;

Label2-> Caption = DateTimeToStr (Now ());

Y aquí está el resultado:
expresión | runtime (para mi computadora)
-------------------------------------------------- ---------
pow (10, x) | 19 sec
exp (x) | 28 sec
ln (x) | 25 sec
-------------------------------------------------- ---------

exp total + ln = 53 sec, pow + pow + pow = 57 sec
pero si agrega Inc, Round, Dec, .... to exp + ln
entonces todavía puedes discutir quién es más rápido.



False_Delirium   (2001-12-19 05:16) [12]

Escriba en Pascal para comenzar y luego compare ... :)) ... para probar ...
de lo contrario, debe considerar dos idiomas en el contexto de la velocidad de ejecución .. :) ..
Sí ... para que pruebes inmediatamente la función de "golpe" ....



False_Delirium   (2001-12-19 05:32) [13]

> KilkennyCat ¿Y cuál es este método ... ??. :) ... exactamente matemático, no se usaron otras operaciones ...



False_Delirium   (2001-12-19 05:37) [14]

Sí, por cierto ... DateTimeToStr (Now ()) es una función poco adecuada para tales pruebas .. :)) ..



Sergey_n   (2001-12-19 06:10) [15]

2False_Delirium Delphi es demasiado perezoso para apostar, pero ¿por qué no te gusta DateTimeToStr (Now ())? Si tiene precisión, aumente el ciclo (o su número) para que dure más.



KilkennyCat   (2001-12-20 01:33) [16]

> False_Delirium ¿Las matemáticas tienen ciclos? :)



Páginas: 1 rama entera

Foro: "Principal";
Archivo actual: 2002.01.08;
Descargar: [xml.tar.bz2];

arriba









Memoria: 0.6 MB
Tiempo: 0.031 c
1-22062
Alexander
2001-12-19 00:17
2002.01.08
¿Cómo puedo agregar N días a una fecha determinada (TDateTime)?


1-22194
Art
2001-12-15 09:28
2002.01.08
Mijo pregunta!


1-22264
Anatoly
2001-12-17 06:36
2002.01.08
Gráfico


1-22215
VovaKomarov
2001-12-16 13:36
2002.01.08
actualización del cliente


1-22048
- == Yurka == -
2001-12-18 18:50
2002.01.08
Problema con memo





africaans albanés Arabic armenio Azerbaiyán vasco Bielorruso Bulgarian Catalán Chino (simplificado) Chino (tradicional) Croata Checo Danés Dutch Inglés Estonia filipina Finnish Francés
gallego georgiano Alemán Griego criollo haitiano hebreo hindi Húngaro islandés Indonesian irlandés Italiana Japonés Korean letón lituano macedonio Malay maltés Noruego
persa polaco Portuguese rumano Ruso Serbio Slovak Esloveno Español swahili Sueco Thai turco ucranio Urdu vietnamita galés yídish bengalí bosnio
cebuano esperanto gujarati hausa hmong igbo javanés kannada khmer lao latín maorí marathi mongol nepali punjabi somalí Tamil telugu yoruba
zulú
Английский Francés Alemán Italiano portugués Русский Español