округлить

Skif

что-та подзабыл, ёмаё

- склероз наверно
как из 1677 сделать 1к7?

РМщик

Code:

DATA: I TYPE I VALUE 1677,
      P TYPE P DECIMALS 1,
      S(10).

P = I / 1000.
WRITE P TO S.
TRANSLATE S USING ',к'.
WRITE:/ I,  / S.

slash

РМщик написал(а):

Code:

DATA: I TYPE I VALUE 1677,
      P TYPE P DECIMALS 1,
      S(10).

P = I / 1000.
WRITE P TO S.
TRANSLATE S USING ',к'.
WRITE:/ I,  / S.

=)
ну округлил, так округлил

Skif

slash написал(а):

РМщик написал(а):

Code:

DATA: I TYPE I VALUE 1677,
      P TYPE P DECIMALS 1,
      S(10).

P = I / 1000.
WRITE P TO S.
TRANSLATE S USING ',к'.
WRITE:/ I,  / S.

=)
ну округлил, так округлил

пасиб. а то, сцуко, не ожидал, что тормоза вылезут за штуку. а "на провод" в сетевом графике только 3 символа садятся