Ver Mensaje Individual
  #2  
Antiguo 21-04-2017
Avatar de ElKurgan
[ElKurgan] ElKurgan is offline
Miembro Premium
 
Registrado: nov 2005
Posts: 1.232
Reputación: 20
ElKurgan Va camino a la fama
¿Y probando así?

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  n1,n2,c,codigo:Integer;
  i: Integer;
  desde, hasta: integer;
begin
  Memo1.Lines.Clear;
  val(Edit1.Text,n1,codigo);
  val(Edit2.Text,n2,codigo);
  Memo1.Lines.Add('Tablas de multiplicar');
  if n1 < n2 then
  begin
    desde := n1;
    hasta := n2;
  end
  else
  begin
    desde := n2;
    hasta := n1;
  end;
  for i := desde to hasta do
  begin
    c:=1;

    while c<=10 do
    begin
      Memo1.Lines.Add(
        Format('%0:d x %1:d = %2:d', [i, c, i*c]));
        c:=c+1;

    end;
    Memo1.Lines.Add('--------------------')
  end;

end;
Un saludo

Última edición por ElKurgan fecha: 21-04-2017 a las 09:58:33.
Responder Con Cita