Fórum oq há de errado ? #556974
11/06/2016
0
var
Numero,I,Multiplicacao:Integer
begin
tab.Itens.Clear;
Numero:=StrToInt(num.Text);
I:=1;
While (I<=10) do
begin
Multiplicação:=Numero*1;
tabuada.itens.add(IntToStr(multiplicacao);
I:=I+1;
end;
num.setfocus;
end;
Numero,I,Multiplicacao:Integer
begin
tab.Itens.Clear;
Numero:=StrToInt(num.Text);
I:=1;
While (I<=10) do
begin
Multiplicação:=Numero*1;
tabuada.itens.add(IntToStr(multiplicacao);
I:=I+1;
end;
num.setfocus;
end;
Samuel
Curtir tópico
+ 0
Responder
Posts
13/06/2016
Anderson
var
Numero,I,Multiplicacao:Integer;
begin
tab.Itens.Clear; // Defina o nome igual ao do componente colocado no Form: é tab ou tabuada ?
Numero:=StrToInt(num.Text);
I:=1;
While (I<=10) do
begin
// Aqui deve ser o contador I e não o número 1 Ex: 5 x 1; incrementa I que passa a 2, logo 5 x 2; repete; 5 x 3; ... 5 x 10;
Multiplicacao:=Numero*I; // O nome da variável declarado foi Multiplicacao (e não Multiplicação).
tabuada.itens.add(IntToStr(Multiplicacao);
I:=I+1;
end;
num.setfocus;
end;
Faça um teste de mesa (caneta e papel), simulando o funcionamento do código para ver se faz o que realmente quer.
Att.
Anderson.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)