Fórum laço de repetição REPITA Delphi 7 #558433
20/06/2016
0
procedure TForm1.ExecutarClick(Sender: TObject);
var
N,I,T:Integer;
begin
tabu.Items.Clear;
N:=StrToInt(num.Text);
I:=1;
Repeat
T:=N*I;
tabu.Items.Add(IntToStr(T));
I:=I+1;
Until (I<=10)
end;
end.
var
N,I,T:Integer;
begin
tabu.Items.Clear;
N:=StrToInt(num.Text);
I:=1;
Repeat
T:=N*I;
tabu.Items.Add(IntToStr(T));
I:=I+1;
Until (I<=10)
end;
end.
Samuel
Curtir tópico
+ 0
Responder
Post mais votado
21/06/2016
Boa tarde, Samuel .
Quanto ao seu laço com repita, o problema é a sua condição "Until <= 10". Nela, funciona como um laço contador.
A solução é : Util (I = 10)
Quanto ao seu laço com repita, o problema é a sua condição "Until <= 10". Nela, funciona como um laço contador.
A solução é : Util (I = 10)
Miguel Junior
Responder
Gostei + 1
Clique aqui para fazer login e interagir na Comunidade :)