Numeros narcisistas en Visual Basic 6.0

Un número narcisista es aquel que es igual a la suma de cada uno de sus dígitos elevados a la "n" potencia (donde "n" es el número de cifras del número).

Ejemplo 153 es un numero narcisista porque 

13 + 53 + 33 = 1 + 125 + 27 = 153

En el programa escribiras un numero entero cualquiera y el te dira si es narcisista o no. Para este programa sera necesario crear un formulario con un textbox llamado txtvalor y un command button llamado cmdcalcular. Escribir el siguiente codigo.

Dim entrada, salida, i, n As Integer

Option Explicit

Private Sub cmdcalcular_Click()
salida = 0
entrada = txtvalor.Text
n = Len(entrada)

For i = 1 To n
salida = salida + Val(Mid(entrada, i, 1) ^ n)

Next

If txtvalor = salida Then

MsgBox "Es un numeros narcisista"

Else

MsgBox "No es un numeros narcisista"

End If

txtvalor.SetFocus
End Sub

Foto marine - 3 by matmoon

Read more

PHP: Suma de enteros desde un archivo

El siguiente programa imprimira la suma de enteros leidos desde un archivo txt.

Para ello crea un archivo .txt con varios valores enteros escritos en el archivo uno por cada linea. El programa leera esos valores y los sumara. Guarda el archivo en la misma carpera en que guardas el programa o de lo contrario especifica el directorio en donde se encuentra el mismo.

Ejemplo de entrada

5
12

Ejemplo de salida

17

<?php
$fh = fopen("nombre_archivo.txt", "r");
$t  = 0;
while (!feof($fh)) {
 
    $test = fgets($fh);
 
    $t = $test + $t;
 
    if (empty($test) == true) {
             break;      
    }
 
}
echo ($t . "\n");
fclose($fh);

?>

Notas

fopen
Abre un fichero o una URL

feof 
Comprueba si el puntero a un archivo está al final del archivo

fclose
Cierra un puntero a un archivo abierto

Read more