laço de repetição REPITA Delphi 7
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
Curtidas 0
Melhor post
Miguel Junior
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)
GOSTEI 1