Xwork's Blog

• absolute
• and
• array
• asm
• begin
• case
• const
• constructor
• destructor
• div
• do
• downto
• else
• end
• file
• for
• function
• goto
• if
• implementation
• in
• inherited
• inline
• interface
• label
• mod
• nil
• not
• object
• of
• operator
• or
• packed
• procedure
• program
• record
• reintroduce
• repeat
• self
• set
• shl
• shr
• string
• then
• to
• type
• unit
• until
• uses
• var
• while
• with
• xor

Simbolos.

Program HelloWorld(output);
	uses crt;
(* Aqui empieza la parte principal *)
begin
	clrscr;
	writeln('Hello World');
(* Usamos readln() para esperar que se presione enter *)
	readln();
end.

Program HelloWorld(output);
	uses crt;
{ Aqui empieza la parte principal }
begin
	clrscr;
	writeln('Hello World');
{ Usamos readln() para esperar que se presione enter }
	readln();
end.
	

Program HelloWorld(output);
	uses crt;
//Aqui empieza la parte principal 
begin
	clrscr;
	writeln('Hello World');
//Usamos readln() para esperar que se presione enter 
	readln();
end.
	

• 1 TextView.
• 1 EditText (Numérico).
• 1 Button.
• 1 ListView.

 <?xml version="1.0" encoding="utf-8"?>
<android.support.constraint.ConstraintLayout xmlns:android="http://schemas.android.com/apk/res/android"
	xmlns:app="http://schemas.android.com/apk/res-auto"
	xmlns:tools="http://schemas.android.com/tools"
	android:layout_width="match_parent"
	android:layout_height="match_parent"
	tools:context="com.mdev.com.dectoany.MainActivity">

	<LinearLayout
		android:layout_width="wrap_content"
		android:layout_height="wrap_content"
		android:orientation="vertical"
		tools:layout_editor_absoluteX="8dp"
		tools:layout_editor_absoluteY="8dp">

		<TextView
			android:id="@+id/lblNumberIn"
			android:layout_width="match_parent"
			android:layout_height="wrap_content"
			android:text="Número a convertir" />

		<EditText
			android:id="@+id/TXTNumberIn"
			android:layout_width="match_parent"
			android:layout_height="wrap_content"
			android:ems="10"
			android:inputType="number" />

		<Button
			android:id="@+id/BtnConvert"
			android:layout_width="match_parent"
			android:layout_height="wrap_content"
			android:text="Convertir" />

		<ListView
			android:id="@+id/LVResults"
			android:layout_width="match_parent"
			android:layout_height="match_parent" />
	</LinearLayout>
</android.support.constraint.ConstraintLayout>

El Código que hace funcionar las cosas.

package com.mdev.com.dectoany;

import android.app.Activity;
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.util.ArrayList;
import java.util.Collections;
import java.util.List;

public class MainActivity extends Activity {

	Button BtnConvert;
	ListView LVResults;
	TextView TxtNumberIn;

	@Override
	protected void onCreate(Bundle savedInstanceState) {
		super.onCreate(savedInstanceState);
		setContentView(R.layout.activity_main);

		BtnConvert = (Button) findViewById(R.id.BtnConvert);
		TxtNumberIn = (TextView) findViewById(R.id.TXTNumberIn);
		LVResults = (ListView) findViewById(R.id.LVResults);

		BtnConvert.setOnClickListener(new View.OnClickListener() {
			@Override
			public void onClick(View view) {
				DoConvert();
			}
		});
	}

	private void DoConvert(){
		ArrayList Items = new ArrayList();
		String CurrentNumber = TxtNumberIn.getText().toString();
		int MyNumber = Integer.parseInt(CurrentNumber);
		for (int I = 2; I < 30; I++){
			Items.add(ListToString(NumbersList(MyNumber, I))+"\n"+"Base "+ I);
		}
		final ArrayAdapter adapter = new ArrayAdapter(this, android.R.layout.simple_list_item_1,Items);
		LVResults.setAdapter(adapter);
	}
	private String ListToString(List<Integer> Numbers)
	{
		Collections.reverse(Numbers);
		String Result = "";
		for (int i = 0; i < Numbers.size(); i++){
			int CurrentNumber = Numbers.get(i);
			if (CurrentNumber < 10)
				Result += CurrentNumber;
			else
				Result += NumberToChar(Numbers.get(i));
		}
		return Result;
	}
	private char NumberToChar(int Number){
			return (char)(Number + 55);
	}

	private List<Integer> NumbersList(Integer InNumber, int Base) {
		Integer LastNumber = InNumber;
		Integer Garbage;
		List<Integer> result = new ArrayList<Integer>();
		if (LastNumber < Base) {
			result.add(LastNumber);
		}
		else         {
			if (LastNumber >= Base) {
				do {
					Garbage = LastNumber % Base;
					LastNumber = LastNumber / Base;
					if (LastNumber < Base) {
						result.add(Garbage);
						result.add(LastNumber);
					} else {
						result.add(Garbage);
					}
				} while (LastNumber >= Base);
			}
		}
		return result;
	}
}

<html>
	<head>
	<title>Convertidor de decimal a otras bases</title>
	<style type="text/css">
	.h1Cal
	{
	   font-size: 14px;
	}
	.formDecToAny{
		font: 95% Arial, Helvetica, sans-serif;
		max-width: 400px;
		margin: 10px auto;
		padding: 16px;
		background: #F9F9F9;
	}
	.TextCal
	{
		width: 100%;
		box-sizing: border-box;
		border: 2px solid #999;
		border-radius: 4px;
	}

	.ButtonCal
	{
	width: 100%;
		background-color: #26c6da;
		border: none;
		color: white;
		padding: 15px 32px;
		text-align: center;
		text-decoration: none;
		display: inline-block;
		-webkit-transition-duration: 0.4s; /* Safari */
		transition-duration: 0.4s;
	}

	.ButtonCal:hover
	{
	width: 100%;
		background-color: #35d5e5;
		border: none;
		color: white;
		padding: 15px 32px;
		text-align: center;
		text-decoration: none;
		display: inline-block;
	}
	</style>
	<script type="text/javascript">

	function DecToAny(Number, Base){
		var LastNumber = parseInt(Number, 10);
		var Garbage;
		var result = []
		debugger;
		if (LastNumber < Base)
		{
			result.push(LastNumber);
		}
		else
		{
			while (LastNumber >= Base) {
				Garbage = LastNumber % Base;
				LastNumber = Math.floor(LastNumber / Base);
				if (LastNumber < Base)
				{
					result.push(Garbage.toString());
					result.push(LastNumber.toString());
				}
				else
				{
					result.push(Garbage.toString());
				}
			}
		}
		return result;
	}

	function NumberToChar(Number){
		if(Number < 10)
			return Number;
		else
			return String.fromCharCode(parseInt(Number, 10) + 55);
	}

	function ArrayToString(){
		var GetNumber = document.getElementById('InputNumber').value;
		var GetBase = document.getElementById('InputBase').value;
		if(GetNumber.length < 1 || GetBase.length < 1)
		{
			alert('El numero/base no puede estar en blanco');
			return;
		}
		var Convert = DecToAny(GetNumber,GetBase);
		var Out = "";
		Convert.reverse()
		for(var i = 0; i < Convert.length; i++)
		{
			Out = Out + NumberToChar(Convert[i])
		}
		document.getElementById('Result').value = Out;
	}
	</script>
	</head>
	<body>
		<form class="formDecToAny">
			<span class="h1Cal">Numero decimal a convertir:</span>
			<input class="TextCal" id="InputNumber" type="text"></input><br />
			<span class="h1Cal">Base a la cual convertir:</span>
			<input class="TextCal" id="InputBase" type="text"></input><br />
			<br />
			<input class="ButtonCal" id="ToAny" onclick="ArrayToString()" type="button" value="Convertir" /><br />
			<br />
			<span class="h1Cal">Resultado:</span>
			<input class="TextCal" id="Result" type="text"></input><br />
			<br />
		</form>
	</body>
</html>

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;

namespace DecToAny
{
 public partial class FrmMain : Form
 {
  private List<TextBox> TextBoxes = new List<TextBox>();
  private List<int> DecToAny(int Number, int Base)
  {
   int LastNumber = Number;
   int Garbage;
   List<int> result = new List<int>();
   if (LastNumber < Base)
   {
    result.Add(LastNumber);
   }
   else
   {
   while (LastNumber >= Base) {
    Garbage = LastNumber % Base;
    LastNumber = LastNumber / Base;
    if (LastNumber < Base)
    {
     result.Add(Garbage);
     result.Add(LastNumber);
    }
    else
    {
     result.Add(Garbage);
    }
   }
   }

   return result;
  }
  private string ListToString(List<int> Lista)
  {
   string Out = "";
   Lista.Reverse();
   foreach (int Numero in Lista) {
    if (Numero < 10)
    {
     Out += Numero.ToString();
    }
    else
    {
     Out += NumberToLetra(Numero);
    }
   }
   return Out;
  }
  public FrmMain()
  {
   InitializeComponent();
  }
  private char NumberToLetra(int Number)
  {
   return (char)(Number + 55);
  }
  private void FrmMain_Load(object sender, EventArgs e)
  {
   TextBoxes.Add(txtBase2);
   TextBoxes.Add(txtBase3);
   TextBoxes.Add(txtBase4);
   TextBoxes.Add(txtBase5);
   TextBoxes.Add(txtBase6);
   TextBoxes.Add(txtBase7);
   TextBoxes.Add(txtBase8);
   TextBoxes.Add(txtBase9);
   TextBoxes.Add(txtBase10);
   TextBoxes.Add(txtBase11);
   TextBoxes.Add(txtBase12);
   TextBoxes.Add(txtBase13);
   TextBoxes.Add(txtBase14);
   TextBoxes.Add(txtBase15);
   TextBoxes.Add(txtBase16);
   TextBoxes.Add(txtBase17);
   TextBoxes.Add(txtBase18);
   TextBoxes.Add(txtBase19);
   TextBoxes.Add(txtBase20);

  }

  private void BtnConvert_Click(object sender, EventArgs e)
  {
   for (int T = 0; T < TextBoxes.Count; T++)
   {
    TextBoxes[T].Text = ListToString(DecToAny(int.Parse(TxtNIn.Text), (T + 2)));
   }
  }
 }
}

A tomar en cuenta.