var i: integer; begin i := 1; while i <= 1000 do begin Inc(i, 10); end; end;
var i,j : Integer; j := 0; for i := 1 to 100 do begin {... code utilisant j ...} Inc(J,10); end;
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionvar I: Integer; begin // boucle for avec un pas de 10 for I := 1 to 1000 do if (I mod 10) = 0 then Memo1.Lines.Add(Format('%.4d pas de 10', [I])); // boucle for avec un pas de 10 utilisant les intermédiaires for I := 1 to 1000 do if (I mod 10) = 0 then Memo1.Lines.Add(Format('%.4d pas de 10', [I])) else Memo1.Lines.Add(Format('%.4d intermédiaire', [I])); // voici une variante // boucle for avec un pas de 10 utilisant les intermédiaires for I := 1 to 1000 do if Bool(I mod 10) then Memo1.Lines.Add(Format('%.4d intermédiaire', [I])) else Memo1.Lines.Add(Format('%.4d pas de 10', [I])); end;
repeat until (i <= 1000);
until i > 1000
var i : Integer; PasNb : Integer; begin PasNb := 16; //Par exemple. for i := 1 to PasNb do Memo1.Lines.Add(Format('%.2d%s%dème de cercle = %.2f°',[i,'/',PasNb,(360/PasNb)*i])); end;
Memo1.Lines.Add(Format('%.2d/%dème de cercle = %.2f°',[i,PasNb,(360/PasNb)*i]));
var i : Integer; PasNb : Integer; o : string; begin PasNb := 16; //Par exemple. for i := 1 to PasNb do begin o := StringReplace(Format('%6.2f',[(360/PasNb)*i]),' ','0',[rfReplaceAll]); Memo1.Lines.Add(Format('%.2d%s%dème de cercle = %s°',[i,'/',PasNb,o])); end; end;
var i : Integer; PasNb : Integer; begin Memo1.Clear; PasNb := 16; //Par exemple. for i := 1 to PasNb do Memo1.Lines.Add(Format('%.2d/%dème de cercle = %s°',[i,PasNb,FormatFloat('000.00',(360/PasNb)*i)])); end;