Temas

Buenas a todos,

me han robado un Toshiba Satellite L850-138 y al poner la denuncia en comisaría me han dicho que sería de ayuda que les dé el número de serie. El problema es que, evidentemente, no tengo el portátil para mirarlo. Ahora mismo estoy en Alemania, pero en España tengo la caja del portátil con el manual y todo eso, ¿debería estar ahí o sólo aparece en el portátil?

¡Muchas gracias!

Hola, tengo un problemilla haciendo este programa, tengo ya el código y no me da problemas al compilar, pero a la hora de ejecutarlo no hace nada, y no sé dónde puede estar el fallo. Os dejo el enunciado de la práctica para que entendáis qué estoy haciendo y el código, muchas gracias!

_Enunciado:

Dos números a y b se dicen que son amigos si la suma de los divisores de a (salvo él mismo)
coincide con b y viceversa.
El menor par de números amigos es el formado por el 220 y el 284, ya que:
Suma de divisores de 220 (excepto 220): 1+2+4+5+10+11+20+22+44+55+110=284.
Suma de divisores de 284 (excepto 284): 1+2+4+71+142=220.
Otros números amigos son 2620 y 2924, 6232 y 6368, 17296 y 18416, 9363584 y 9437056.
Escribe un programa que tenga como entrada dos números naturales n y m y muestre en
pantalla todas las parejas de números naturales que existan en el intervalo [n, m].

_Código:

   

Código (fortran) [Seleccionar] Expandir

PROGRAM PRACTICA4
INTEGER a, b, i, j, n, m, s, t
PRINT *, 'Introduzca el número n (el menor)'
READ *, n
PRINT *, 'Introduzca el número m (el mayor)'
READ *, m
DO WHILE (n<m)
DO i=1, n/2
a=MOD(n,i)
IF (a==0) THEN
s=s+i
END IF
END DO
DO j=1, m/2
b=MOD(m,j)
IF (b==0) THEN
t=t+j
END IF
END DO
IF (s==t) THEN
PRINT *, n, ' y ', m, ' son amigos'
END IF
                n=n+1
END DO
END

Buenas, estoy empezando a programar Fortran en la facultad y tengo problemas con este programa. El programa es el típico programita chorra para calcular los divisores de un número y decirte cuáles son. El código fuente que he hecho es el siguiente:

Código (pascal) [Seleccionar] Expandir

PROGRAM PRACTICA3
OPEN (UNIT=1, FILE='Divisores.txt')
OPEN (UNIT=2, FILE='Divisores Pares.txt')
OPEN (UNIT=3, FILE='Divisores Impares.txt')
100 FORMAT (/, I10)
INTEGER n, i, j, k, d, a, b
PRINT *, 'Introduzca un número'
READ *, n
DO d=1, n/2
a=MOD(n, d)
IF (a==0) THEN
WRITE (1, 100) d
i=i+1
END IF
b=MOD(d,2)
IF (b==0) THEN
WRITE (2, 100) d
j=j+1
ELSE
WRITE (3, 100) d
k=k+1
END IF
END DO
CLOSE (1)
CLOSE (2)
CLOSE (3)
PRINT *, 'Hay ', i, ' divisores ', j, ' pares ', k, ' impares'
STOP
END

El error que me sale es el siguiente: error FOR2588: Type declaration statement cannot occur here; me he metido en el Help pero no entiendo exactamente a qué se refiere, sólo que está dentro del DO.

A ver si alguien me puede ayudar, que seguro que luego es una chorrada de fallo. Muchas gracias!

Buenas, yo lo que quería preguntar es cómo puedo hacer para jugar en Windows XP a un juego que es bastante antiguo, del año 95 o así. Ya he probado en la pestaña de compatibilidad del programa, pero el juego va demasiado rápido para poder jugar, así que me gustaría que alguien me dijera como puedo jugarlo correctamente. Gracias y un saludo