![]() |
|
#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. |