![]() |
|
|
#1
|
|||
|
|||
|
есть проблема:
нужно разделить отрезок длинной 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. |