Diario de un programador. Anexo B: Códigos
Divisores: Lo que hace este código es solicitar un número y luego muestra todos sus divisores. Lo interesante del programa es que si un numero tiene solamente un divisor, entonces el número ingresado es primo.
C
Programa utilizado: Code Blocks 13.12
#include<stdio.h>
int main(void){
int i, aux, numero, iterar, divisor = 0;
printf("Ingresa un numero: ");
scanf("%d", &numero);
printf("\nDivisores:\n");
if(numero % 2 == 0){
iterar = numero / 2;
}//fin if
else{
iterar = (numero - 1) / 2;
}//end else
for (i = 1; i <= iterar; i++){
if(numero % i == 0){
aux = numero / i;
if(aux != divisor){
divisor = aux;
}//fin if
if( i == iterar){
printf("%d", divisor);
}//fin if
else {
printf("%d,", divisor);
}//fin else
}//fin if
}//fin for
return 0;
}//fin main
//Escrito por Gustavo J. Cerda Nilo, Diciembre 2015
JAVA
Programa utilizado: Net Beans 8.0.1
import java.util.Scanner;
public class Divisores{
public static void main(String[]args){
int i, aux, numero, iterar, divisor = 0;
Scanner ingreso = new Scanner(System.in);
System.out.print("Ingresa un numero: ");
numero = ingreso.nextInt();
System.out.println("Divisores:");
if(numero % 2 == 0){
iterar = numero / 2;
}//fin if
else{
iterar = (numero - 1) / 2;
}//fin else
for(i = 1; i <= iterar; i++){
if(numero % i == 0){
aux = numero / i;
if(aux != divisor){
divisor = aux;
}//fin if
if(i == iterar){
System.out.println(divisor);
}//fin if
else{
System.out.print(divisor + ",");
}//fin else
}//fin if
}//fin for
}//fin class
}//fin class
//Escrito por Gustavo J. Cerda Nilo, Diciembre 2015
Programa utilizado: Idle
numero = int(input("Ingresa un numero: "))
divisor = 0
print("Divisores:")
if numero % 2 == 0:
iterar = numero / 2
else:
iterar = (numero - 1) / 2
for i in range(1, int(iterar) + 1):
if numero % i == 0:
aux = numero / i
if aux != divisor:
divisor = aux
if i == iterar:
print(int(divisor), end = "")
else:
print("%d," % (divisor), end = "")
#Escrito por Gustavo J. Cerda Nilo, Diciembre 2015
SMALL BASIC
Programa utilizado: Small Basic 1.1
TextWindow.WriteLine("Divisores")
TextWindow.Write("Ingresa un numero ")
numero = TextWindow.ReadNumber()
divisor = 0
TextWindow.WriteLine("Divisores:")
If Math.Remainder(numero,2) = 0 Then
iterar = numero / 2
Else
iterar = (numero - 1) / 2
EndIf
For i = 1 To iterar
If Math.Remainder(numero,i) = 0 Then
aux = numero / i
If aux <> divisor then
divisor = aux
EndIf
If i = iterar Then
TextWindow.WriteLine(divisor)
Else
TextWindow.Write(divisor + ",")
EndIf
EndIf
EndFor
'Escrito por Gustavo J. Cerda Nilo, Octubre 2015
Buenos ejemplos muy utiles, Saludos.
ResponderEliminarmuy buenos ejemplos , es mi primer año de informatica y todo muy divertido , gracias
ResponderEliminar