Pascal/Turbo Pascal - Programa amistad cuadrática

   
Vista:
Imágen de perfil de Jean Carlos

Programa amistad cuadrática

Publicado por Jean Carlos (10 intervenciones) el 06/07/2016 20:36:48
Saludos, quisiera saber si me podrían ayudar con el código de este ejercicio:

Existe lo que se llama la amistad cuadrática entre dos números cuando se cumple lo que se narra en el siguiente ejemplo para los números 13 y 16:
El número 16 elevado al cuadrado da 256 y sumando sus dígitos 2+5+6->13
El número 13 elevado al cuadrado da 169 y sumando sus dígitos 1+6+9-> 16
Cuando lo anterior sucede se dice que los números profesan amistad cuadrática. Realizar un programa que indique si dos números dados profesan amistad cuadrática.

Espero que alguien pueda ayudarme ya que no se me ocurre como hacerlo.
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
Imágen de perfil de Jean Carlos

Programa amistad cuadrática

Publicado por Jean Carlos (10 intervenciones) el 07/07/2016 00:29:46
Ya pude realizar el código de el ejercicio anterior que publique, pero necesito ayuda con este:

1. El cálculo del logaritmo neperiano de un valor A se puede realizar por la serie:

La cual converge para valores de x tales que |x| < 1. Diseñe un programa en Delphi que dado un valor de A calcule el logaritmo neperiano de ese valor. En la generación de la serie calcule cada término a partir del anterior. Detenga el cálculo de la serie cuando el último término sumado sea menor que un valor de error dado por el usuario (que en todo caso debe ser menor o igual a 10-3).

adjunto dejo una referencia que sale en el enunciado pero que no pude copiar directamente.
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

Programa amistad cuadrática

Publicado por ramon (2072 intervenciones) el 07/07/2016 11:29:06
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
{Mira esto}
 
program amistadcuadratica;
 uses
   crt;
  var
    n1, n2, numero1, numero2 : integer;
    sumas : string[10];
    resu1, resu2, eluno, eldos : integer;
 
  begin
     clrscr;
     write('   Entre Numero 1 : ');
     readln(n1);
     write('   Entre Numero 2 : ');
     readln(n2);
     numero1 := n1 * n1;
     numero2 := n2 * n2;
     resu1 := n1;
     resu2 := n2;
     str(numero1,sumas);
     n1 := ord(sumas[1]) - 48 + ord(sumas[2]) - 48 + ord(sumas[3]) - 48;
     if n1 = resu2 then
     eluno := n1;
     str(numero2,sumas);
     n2 := ord(sumas[1]) - 48 + ord(sumas[2]) - 48 + ord(sumas[3]) - 48;
     if n2 = resu1 then
     eldos := n2;
     writeln;
     if (eldos = resu1) and (eluno = resu2) then
     writeln(' Existe la amistad cuadratica  = ',eluno,'     ',eldos)
  else
     writeln(' No Existe la amistad cuadratica  = ',eluno,'     ',eldos);
     readkey;
   end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
Imágen de perfil de Jean Carlos

Programa amistad cuadrática

Publicado por Jean Carlos (10 intervenciones) el 07/07/2016 23:38:39
Muchas gracias por la ayuda, pero ya había logrado resolverlo, en el que tengo problema ahora es el otro que puse en la respuesta del primero que no se si lo habrás leído. A ver si podrías ayudarme con ese. Estaría muy agradecido.
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