Ver Mensaje Individual
  #1  
Antiguo 21-04-2017
Daniel2622 Daniel2622 is offline
Miembro
NULL
 
Registrado: abr 2017
Posts: 29
Reputación: 0
Daniel2622 Va por buen camino
Tablas de multiplicar para todos los números entre dos números

Hola, necesito ayuda con el siguiente ejercicio, por favor:

Escribe un programa que muestre en un objeto Memo las tablas de multiplicar para todos los números entre dos números introducidos por el usuario. Por ejemplo, si el usuario solicita las tablas entre 2 y 5, el programa mostrará las tablas completas (del 1 al 10) del 2, el 3, el 4 y el 5.

Construí este código, pero nadmas me da las tablas de los número que ingresó:
Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
var n1,n2,c,codigo:Integer;
begin
val(Edit1.Text,n1,codigo);
val(Edit2.Text,n2,codigo);
c:=1;
Memo1.Text:='Tablas de multiplicar';
while c<=10 do
begin
  Memo1.Text:=Memo1.Text+#13#10+'  '+
  IntToStr(c)+'x'+IntToStr(n1)+'='+
  IntToStr(n1*c);

  Memo1.Text:=Memo1.Text+#13#10+'  '+
  IntToStr(c)+'x'+IntToStr(n2)+'='+
  IntToStr(n2*c);
  c:=c+1;
  end;
end;
De antemano muchas gracias y saludos.

Última edición por Daniel2622 fecha: 21-04-2017 a las 06:24:45.
Responder Con Cita