Округление чисел до заданной точности -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [216.73.216.134]

Исходники Паскаля , Cодержание FAQ (ЧАВО) Паскаля

Название темы должно быть информативным !
Прежде чем задать вопрос, воспользуйтесь Поиском. и проверьте в FAQ (ЧАВО) Паскаля
Чтобы получить вразумительный ответ, подробно опишите проблему: что надо сделать, что не получается и номер ошибки (если есть), которую выводит компилятор.

Для вставки кода ваших программ используйте, пожалуйста, кнопку СODE=pas или выпадающий список СODE для других языков (подсветка синтаксиса).

[!] Как правильно задавать вопросы | Руководство по языку B.Pascal 7 & Objects/LR | Borland Pascal. Руководство пользователя

Модераторы: volvo877

Новое голосование

Округление чисел до заданной точности

MS	Сообщ. #1 , 20.12.01, 09:59
Unregistered	Как сделать subj в BP7? Round округляет только до целого

Булат Шакиров

Сообщ. #2 , 20.12.01, 12:17

Оззя

Профиль · PM

Поощрения: 2 Dgm

Рейтинг (т): 135

Если только на вывод, то write(a:x:y);
x- длина числа в символах,
y -количество знаков после запятой.
Если округлить, то

var

a,b:real;

s:string;

code:integer;

begin

a:=pi;

b:=frac(a);

a:=trunc(a);

str(b:16:2,s);

val(s,b,code);

a:=a+b;

write(a);

end.

Сообщение отредактировано: Romtek - 10.08.05, 19:38

Jin X	Сообщ. #3 , 20.12.01, 20:45
Законченный оптимист Профиль · PM Поощрения: 23 Dgm Рейтинг (т): 118	Round(Число*1000)/1000 - до тысячных долей...

1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0.0609 ] [ 14 queries used ] [ Generated: 23.10.26, 06:56 GMT ]