|
Консоль
|
|
|
27.11.2009 в 20:20
Сообщение #51
|
|
Rumata
Программист
Проверенные
Сообщений: 325
Offline
|
ТЬфу, я посмотрел русский хелп, там все понятно 
|
|
|
|
|
27.11.2009 в 20:25
Сообщение #52
|
|
12121
Программист
Проверенные
Сообщений: 357
Offline
|
да я только хотел тебе скопировать.
Как говориться если ничего не помогает тогда читаем инструкцию :-)
Сообщение отредактировал 12121 - Пятница, 27.11.2009, 20:37
|
|
|
|
|
27.11.2009 в 21:33
Сообщение #53
|
|
Rumata
Программист
Проверенные
Сообщений: 325
Offline
|
эээ... а в МР есть функция округления?
|
|
|
|
|
27.11.2009 в 22:41
Сообщение #54
|
|
12121
Программист
Проверенные
Сообщений: 357
Offline
|
Наверно нет. Можно так:
if frac(n)<0.5 then m:=trunc(n); else m:=trunc(n)+1;
function trunc(num: real):integer;
Возвращает целую часть данного числа.
function frac(num: real):real;
Возвращает дробную часть нецелого числа (Дробная часть числа 1.234 будет 0.234).
Ну или что то вроде этого.
Сообщение отредактировал 12121 - Воскресенье, 29.11.2009, 09:53
|
|
|
|
|
28.11.2009 в 08:19
Сообщение #55
|
|
12121
Программист
Проверенные
Сообщений: 357
Offline
|
Если надо округлить до 2 знаков после запятой то можно сделать так
сначало число умножить на 100
потом округлить как выше написал
потом перевести в real и разделить на 100
|
|
|
|
|
28.11.2009 в 21:59
Сообщение #56
|
|
Rumata
Программист
Проверенные
Сообщений: 325
Offline
|
Пасиб
|
|
|
|
|
28.11.2009 в 22:18
Сообщение #57
|
|
Rumata
Программист
Проверенные
Сообщений: 325
Offline
|
Как в form вывести текст?
Сообщение отредактировал Rumata - Понедельник, 30.11.2009, 17:58
|
|
|
|
