[Игорь Кулакевич]

есть проблема:

нужно разделить отрезок длинной L на части, но если L: Double;(не целочисленныя длинна отрека,а скажем 90.5)
выдает ошибку:[DCC Error] Project1.dpr(19): E2015 Operator not applicable to this operand type

Код:

var
X, i, j: Integer;
l,a1:Double;

begin
Write('L = ');
ReadLn(L);
Write('X = ');
ReadLn(X);
Write('i = ');
ReadLn(i);
a1 := L div X - (i * (X - 1)) div 2;
for j := 1 to X do begin
Write(a1, ' ');
a1 := a1 + i;
end;
ReadLn;
end.

[Pyro]

в какой строчке ошибка?

[FlyInDream]

Правильное а1 это:
a1 := (2*L/X - (i * (X - 1)))/2;
И вот тогда и с L проблем не будет.

P.S. Просчитался я. Ваша формула тоже верна, только вместо div надо обычное деление делать.

[Игорь Кулакевич]

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

в какой строчке ошибка?

Код:

a1 := L div X - (i * (X - 1)) div 2;

[Игорь Кулакевич]

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

Правильное а1 это:
a1 := (2*L/X - (i * (X - 1)))/2;
И вот тогда и с L проблем не будет.

P.S. Просчитался я. Ваша формула тоже верна, только вместо div надо обычное деление делать.

спасибо, как к нормальному виду теперь числа привести, а то там получается после вывода:
7.010000000000Е+0001 и так далее

[Pilot_Red]

выводи
writeln(floattostr(a1));

[Игорь Кулакевич]

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

выводи
writeln(floattostr(a1));

спасибо большое.

[Игорь Кулакевич]

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

Правильное а1 это:
a1 := (2*L/X - (i * (X - 1)))/2;
И вот тогда и с L проблем не будет.

P.S. Просчитался я. Ваша формула тоже верна, только вместо div надо обычное деление делать.

только в обеих выводит не с большего к меньшему, а наоборот- от меньшего к большему.
как сделать наоборот подскажите?

[FlyInDream]

Код:

...
a1 := (2*L/X + (i * (X - 1)))/2;
for j := 1 to X do begin
Write(a1, ' ');
a1 := a1 - i;
end;