Xwork's Blog

Un palíndromo (del griego palin dromein, volver a ir atrás), también llamado palindromo, palíndroma o palindroma, es una palabra, número o frase que se lee igual adelante que atrás. Si se trata de un numeral, usualmente en notación indoarábiga, se llama capicúa. Habitualmente, las frases palindrómicas se resienten en su significado cuanto más largas son. *Wikipedia/palíndromos*

Adivina ya te opina, ya ni miles origina, ya ni cetro me domina, ya ni monarcas, a repaso ni mulato carreta, caso nicotina, ya ni cita vecino, anima cocina, pedazo gallina, cedazo terso nos retoza de canilla goza, de pánico camina, ónice vaticina, ya ni tocino saca, a terracota luminosa pera, sacra nómina y ánimo de mortecina, ya ni giros elimina, ya ni poeta, ya ni vida. (de Ricardo Ochoa)

• 281 + 182 = 463
• 463 + 364 = 827
• 827 + 728 = 1555
• 1555 + 5551 = 7106
• 7106 + 6017 = 13123
• 13123 + 32131 = 45254 Se cumple!!!

El Código

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using System.Numerics;

namespace NumerosPalindromicos
{
	public partial class FrmMain : Form
	{
		private bool IsPalindrome(string Number)
		{
			if (Number.ToString() == ReverseNumber(Number.ToString()))
				return true;
			else
				return false;

		}
		private string ReverseNumber(string NumberIn)
		{
			char[] charArray = NumberIn.ToCharArray();
			Array.Reverse(charArray);
			return new string(charArray);
		}

		private void GetNumber(string Number1, decimal MaxIterations)
		{
			int Iterator = 1;
			if (IsPalindrome(Number1) == true)
				LBResults.Items.Add("0 iteraciones "+ Number1 +" cumple la conjetura");
			else
			{
				BigInteger Result;
				BigInteger.TryParse(Number1,out Result);
				while (IsPalindrome(Result.ToString()) == false)
				{
					Result += BigInteger.Parse(ReverseNumber(Result.ToString()));
					LBResults.Items.Add(Iterator + " iteraciones "+ Result);
					if (Iterator >= MaxIterations)
					{
						break;
					}
					Iterator += 1;
				}

				if (IsPalindrome(Result.ToString()) == true)
					LBResults.Items.Add("La conjetura se cumple");
				else
					LBResults.Items.Add("La conjetura no se cumple.");
			}

		}
		public FrmMain()
		{
			InitializeComponent();
		}
		private void BtnDo_Click(object sender, EventArgs e)
		{
			LBResults.Items.Clear();
			GetNumber(TxtNumberIn.Text, NUDIterator.Value);
		}
	}
}

Procedimientos.

program Procedimiento;
uses crt;
var Number1, Number2 : integer;
procedure suma(N1 : integer; N2 : integer);
var Resultado : integer;
begin
	Resultado := N1 + N2;
	writeln('El Resultado es ', Resultado);
end;
begin
	clrscr;
	writeln('Ingresa el primer numero');
	readln(Number1);
	writeln('Ingresa el segundo numero');
	readln(Number2);
	suma(Number1,Number2);
	readln();
end.

program Funciones;
uses crt;
var Number1, Number2 : integer;
function suma(N1 : integer; N2 : integer) : integer;
var Resultado : integer;
begin
	Resultado := N1 + N2;
	{ suma:=Resultado; }
	exit(Resultado);
end;
begin
	clrscr;
	writeln('Ingresa el primer numero');
	readln(Number1);
	writeln('Ingresa el segundo numero');
	readln(Number2);
	writeln('La suma da ', suma(Number1,Number2));
	readln();
end.

Diferencias.

El código.

package com.mdev.collatz;

import android.support.v7.app.AppCompatActivity;
import android.os.Bundle;
import android.view.View;
import android.widget.ArrayAdapter;
import android.widget.Button;
import android.widget.ListView;
import android.widget.TextView;

import java.math.BigInteger;
import java.util.ArrayList;


import static android.R.attr.button;

public class MainActivity extends AppCompatActivity {

	Button BtnCalculate;
	TextView TxtNumberIn;
	ListView LVResultados;

	@Override
	protected void onCreate(Bundle savedInstanceState)
	{
		super.onCreate(savedInstanceState);
		setContentView(R.layout.activity_main);
		BtnCalculate = (Button) findViewById(R.id.BtnCalculate);
		TxtNumberIn = (TextView) findViewById(R.id.TXTNumberIn);
		LVResultados = (ListView) findViewById(R.id.LVResults);

		BtnCalculate.setOnClickListener(new View.OnClickListener()
		{
			@Override
			public void onClick(View view) {
				CalculateCollatz(TxtNumberIn.getText().toString());
			}
		});

	}
	private void CalculateCollatz(String Number)
	{
		ArrayList Items = new ArrayList();
		BigInteger MyNumber = new BigInteger(Number);
		while (MyNumber.compareTo(BigInteger.ONE) > 0)
		{
			if (IsEven(MyNumber)) {
				MyNumber = MyNumber.divide(BigInteger.valueOf(2));
				Items.add(MyNumber.toString());
			}else{
				MyNumber = MyNumber.multiply(BigInteger.valueOf(3));
				MyNumber = MyNumber.add(BigInteger.valueOf(1));
				Items.add(MyNumber.toString());
			}
		}
		final ArrayAdapter adapter = new ArrayAdapter(this, android.R.layout.simple_list_item_1,Items);
		LVResultados.setAdapter(adapter);
	}

	private boolean IsEven(BigInteger Number){
		BigInteger Result = Number.remainder(BigInteger.valueOf(2));
		int CompareResult = Result.compareTo(BigInteger.ZERO);
			if(CompareResult == 0)
			{
				return true;
			}else{
				return false;
			}
	}
}

• 1 Textview.
• 1 EditText
• 1 Button
• 1 Listview

1. -1 si el valor es menor que el BigInteger desde el cual se llama.
2. 0 si el valor es igual que el BigInteger desde el cual se llama.
3. 1 si el valor es mayor que el BigInteger desde el cual se llama.

	case MiRespuesta of
		Respuesta1:
		Código que se ejecuta por la respuesta1;
		Respuesta2:
		Código que se ejecuta por la respuesta2;
		else
		Código que se ejecuta si ninguna respuesta anterior se cumple;
	end;

• 1 -> Domingo.
• 2 -> Lunes.
• 3 -> Martes.
• 4 -> Miércoles.
• 5 -> Jueves.
• 6 -> Viernes.
• 7 -> Sábado.

program Casos;
uses crt;
var MiRespuesta : integer;
begin
	writeln('ingresa un numero del 1 al 7');
	readln(MiRespuesta);
	case MiRespuesta of
		1:
		writeln('El dia 1 corresponde al domingo');
		2:
		writeln('El dia 2 corresponde al lunes');
		3:
		writeln('El dia 3 corresponde al martes');
		4:
		writeln('El dia 4 corresponde al miercoles');
		5:
		writeln('El dia 5 corresponde al jueves');
		6:
		writeln('El dia 6 corresponde al viernes');
		7:
		writeln('El dia 7 corresponde al sabado');
		else
		writeln('Dia desconocido');
	end;
	readln;
end.

Sea la siguiente operación, aplicable a cualquier número entero positivo:

• Si el número es par, se divide entre 2.

• Si el número es impar, se multiplica por 3 y se suma 1.

El código.

using System;
using System.Windows.Forms;
using System.Numerics;
using System.Threading;

namespace ConjeturaDeCollatz
{
	public partial class FrmMain : Form
	{
		private delegate void UpdateListDelegate(string Value);

		private void UpdateList(string Value)
		{
			if (LBResults.InvokeRequired)
			{
				LBResults.Invoke(new UpdateListDelegate(UpdateList), Value);
			}
			else
			{
				LBResults.Items.Add(Value);
			}
		}
		private void CalculateCollatz(string Number)
		{
			BigInteger MyNumber;
			BigInteger.TryParse(Number, out MyNumber);
			while (MyNumber > 1)
			{
				if (MyNumber.IsEven == false)
				{
					MyNumber = MyNumber * 3 + 1;
					UpdateList(MyNumber.ToString());
				}
				else
				{
					MyNumber = MyNumber / 2;
					UpdateList(MyNumber.ToString());
				}
			}
		}
		private void RunWork(string Number)
		{
			Thread DoWork = new Thread(new ThreadStart(() => CalculateCollatz(Number)));
			DoWork.Start();
		}
		public FrmMain()
		{
			InitializeComponent();
		}

		private void BtnStart_Click(object sender, EventArgs e)
		{
			LBResults.Items.Clear();
			RunWork(TxtNumberIn.Text);

		}
	}
}

program Bucle;
uses crt;
var Oportunidades, MiNumero, TuNumero : integer;
begin
 MiNumero := 64;
 clrscr;
 while Oportunidades <= 5 do
 begin
  writeln('Ingresa un numero');
  readln(TuNumero);
  if TuNumero <> MiNumero then
   Oportunidades := Oportunidades + 1
  else
   break;
 end;
 writeln('Fin del programa');
 readln();
end.

while "Condicion No se cumple" do
begin
 { ... }
 { ... }
 { ... }
 { ... }
end

IF

• < Menor que
• <= Menor o igual que 
• > Mayor que
• >= Mayor o igual que
• = Igual que
• <> Distinto que

Program HelloWorld(output);
uses crt;
var MiNumero, TuNumero : integer;
begin
 MiNumero := 20;
 clrscr;
 writeln('Escribe un numero');
 readln(TuNumero);
 if TuNumero < MiNumero then
  writeln('Mi numero es mas grande');
 if TuNumero > MiNumero then
  writeln('Tu numero es mas grande');
 if TuNumero = MiNumero then
  writeln('Los numeros son iguales');
 readln;
end.

Program HelloWorld(output);
uses crt;
var MiNumero, TuNumero : integer;
begin
 MiNumero := 20;
 clrscr;
 writeln('Escribe un numero');
 readln(TuNumero);
 if TuNumero < MiNumero then
  writeln('Mi numero es mas grande')
 else if TuNumero > MiNumero then
  writeln('Tu numero es mas grande')
 else if TuNumero = MiNumero then
  writeln('Los numeros son iguales');
 readln;
end.

Else

Program HelloWorld(output);
uses crt;
var MiNumero, TuNumero : integer;
begin
 MiNumero := 20;
 clrscr;
 writeln('Escribe un numero');
 readln(TuNumero);
 if TuNumero = MiNumero then
  writeln('Los numeros son iguales')
 else
  writeln('Los numeros son diferentes');
 readln;
end.

var
Valor1 : integer;
Valor2 : integer;
Valor3 : integer;
Nombre1 : string;
Nombre2 : string;
begin
...

var
Valor1, Valor2, Valor3 : integer;
Nombre1, Nombre2 : string;
begin
...

Constantes.

Const
e = 2.7182818;
MyName = 'XWork';

Visibilidad de los datos.