Pergunta simples (While/Loop)
Como dar um loop dentro do while?
Lucas.
Lucas.
Lucas_rp
Curtidas 0
Respostas
Raizen
11/11/2003
Bom pelo que eu entendi e que vc nao sabe usar o comando While, tente fazer assim:
var
f,c:integer;
begin
f:=strtoint(edit1.text);
c:=1;
while c<=f do
begin
Instruçao q vc quiser;
c:=c+1;
end;
Agora se vc quiser fazer um Outro Loop (while ,for, repeat) dentro do While vc poder fazer sossegado:
var
f,c,l:integer;
begin
f:=strtoint(edit1.text);
c:=1;
while c<=f do
for l:=1 to 4 do
Instrunçao q vc quiser;
c:=c+1;
end;
Acho q isso q vc queria saber
var
f,c:integer;
begin
f:=strtoint(edit1.text);
c:=1;
while c<=f do
begin
Instruçao q vc quiser;
c:=c+1;
end;
Agora se vc quiser fazer um Outro Loop (while ,for, repeat) dentro do While vc poder fazer sossegado:
var
f,c,l:integer;
begin
f:=strtoint(edit1.text);
c:=1;
while c<=f do
for l:=1 to 4 do
Instrunçao q vc quiser;
c:=c+1;
end;
Acho q isso q vc queria saber
GOSTEI 0
Raizen
11/11/2003
Bom pelo que eu entendi e que vc nao sabe usar o comando While, tente fazer assim:
var
f,c:integer;
begin
f:=strtoint(edit1.text);
c:=1;
while c<=f do
begin
Instruçao q vc quiser;
c:=c+1;
end;
Agora se vc quiser fazer um Outro Loop (while ,for, repeat) dentro do While vc poder fazer sossegado:
var
f,c,l:integer;
begin
f:=strtoint(edit1.text);
c:=1;
while c<=f do
begin [color=red:e94c1e882f]//eu eskeci de colocar o Begin [/color:e94c1e882f]
for l:=1 to 4 do
Instrunçao q vc quiser;
c:=c+1;
end[color=red:e94c1e882f];//Eskeci de colocar o End;
[/color:e94c1e882f]end;
Acho q isso q vc queria saber
GOSTEI 0
Lucas_rp
11/11/2003
Ok, deu certo valeu pela ajuda!
GOSTEI 0