Dejaré la aplicación original en C++ y pondré unas traducciones que hice a otros lenguajes.
- C++ (Original by Javier)
Código: Seleccionar todo
#include <iostream>
using namespace std;
int main()
{
int n,t,x=0;
cout << "Ejemplo: Empezar:2 - Terminar: 10" <<endl;
cout << endl << "Numero a Empezar > ";
cin >> n;
cout << "Numero a Terminar > ";
cin >> t;
while (x<=t){
cout << n << "x" << x << "=" << x*n <<endl;
x++;
}
}
- Pascal
Código: Seleccionar todo
program project1;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes
{ you can add units after this };
var
N,T:Integer;
X:Integer=0;
{$IFDEF WINDOWS}{$R project1.rc}{$ENDIF}
begin
Writeln('Ejemplo: Empezar:2 -> Terminar:10');
Write('Numero a empezar >');
Readln(N);
Write('Numero a terminar >');
Readln(T);
while X<=T do
begin
Write(N,'x',X,'=,x*N,' ');
Inc(X);
end;
end.
Código: Seleccionar todo
print("Tabla de multiplicar")
X=0
N=input("Introduzca el numero a iniciar > ")
T=input("Introduzca el numero para finalizar > ")
while X <= T:
print N,"x",X,"=,X*N," "
X += 1
Código: Seleccionar todo
print 'Tablas de multiplicar'
print 'Introduzca el numero a iniciar > '
Num=gets.chomp
print 'Introduzca el numero para finalizar > '
Ter=gets.chomp
X=0
#Bucles
N=Num.to_i
T=Ter.to_i
while X <= T
print N,'x',X,'=,N*X,' '
X += 1
end
Saludos,