[yura]

Здравствуйте.
Подскажите, как в Delphi задать дробный цикл...
например for a:= 0.02 to 1 do... с шагом 0.01...
Чтобы получилось:
0.02
0.03
0.04
...

[Aristarh Dark]

Код:

while ... do

Код:

repeat ... until

ну или целочисленный с делением на константу.

[yura]

не могл бы пример написать....
сам разобраться не могу.

переменная должна принимать значения

n:=100.001 до 1200.832

b:=a+n

k*b=1172.32

[Aristarh Dark]

Не мог бы шаг указать?

[yura]

Сообщение от Aristarh Dark

Не мог бы шаг указать?

Шаг примерно 0.01. Вообще мне надо менять расстояние так, чтобы получить контраст 0.06

[Aristarh Dark]

Код:

i:=10000
while i<120084 do
begin
  b:=a+i div 100;
  k*b=1172.32;  //< -- только заметил, странная у тебя конструкция ;)
  inc(i);
end;

типа так?

[pesi]

или так

Код:

var
  n:extended;
  i:integer;
begin
  n:=1199.009;
  i:=1;
while n<=1200.832 do
  begin
  inc(i);//тут твои действия
  n:=n+0.01;
  end;
 showmessage(inttostr(i));
end;

[yura]

Сообщение от pesi

или так

Код:

var
  n:extended;
  i:integer;
begin
  n:=1199.009;
  i:=1;
while n<=1200.832 do
  begin
  inc(i);//тут твои действия
  n:=n+0.01;
  end;
 showmessage(inttostr(i));
end;

Спасибо большое... Пока делением разобрался как сделать, счас попробую этот метод освоить...