6 nov. 2018

Programa - Una curiosidad matemática

# Curiosidad matemática
puts "Una curiosidad matemática es que cualquier número positivo da como resto 1 aplicando"
puts "las siguientes condiciones" 
puts "Si es par el número/2 y con su razón hasta la más pequeña"
puts "Si es impar, el (número*3+1)/2"
puts 
puts "PROBEMOS"
puts


$n=0
def inicio
puts 'Pon un número superior a 0'
STDOUT.flush
$n=gets.chomp.to_i

case $n
when 0
puts 'No es lo que te pido'
puts 'Pon un número superior a 0'
STDOUT.flush
$n=gets.chomp.to_i
70.times do||
print "="
end
puts 
puts '|   Ya es la segunda vez, terminamos y vuelve a empezar si quieres   |'
70.times do||
print "="
end
puts
puts

exit 0
end
end

inicio

if $n > 0
puts "Has escrito el número #{$n} "
end

50.times do||
print "="
end

def parimpar
if $n%2==0
puts
print "que el #{$n} es par "
$t=($n)/2
print "y la siguiente relación #{$n}/2 da #{$t}"
else
puts
print "que el #{$n} es impar "
$t=($n*3+1)/2
print "y la siguiente relación (#{($n)}*3+1)/2 da #{$t}"
end
end

parimpar

while $t > 1
$n = $t
parimpar
end
puts
50.times do||
print "="
end
puts
puts
puts "Esto es, esto es, esto es.... todooo"
puts