Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.96/47: Рейтинг темы: голосов - 47, средняя оценка - 4.96
2 / 2 / 0
Регистрация: 23.01.2014
Сообщений: 272

Округлить к ближайшему целому заданное вещественное число

24.02.2014, 23:03. Показов 8780. Ответов 7
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Округлить к ближайшему целому заданное вещественное число.

Округление к ближайшему целому (англ. round) — наиболее часто используемое округление. Число в десятичной системе округляют до N-ого знака в зависимости от N+1 знака:
если N+1 знак < 5, то N-ый знак сохраняют, а N+1 и все последующие обнуляют;
если N+1 знак ≥ 5, то N-ый знак увеличивают на единицу, а N+1 и все последующие обнуляют.
Например: 11,9 → 12; −0,9 → −1; −1,1 → −1; 2,5 → 3; -4.5 → -4.
http://ru.wikipedia.org/wiki/Округление
Обратите внимание, функция Pascal round() использует другие правила округления вещественных чисел.
Входные данные:
Во входном потоке задано вещественное число А (-30000 < A < 30000)

Выходные данные:
В выходной поток вывесли единственное целое число.

Пример входного файла (input.txt):
-3.5
Пример выходного файла
как решить без раунд?
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
24.02.2014, 23:03
Ответы с готовыми решениями:

Округлить к ближайшему целому заданное вещественное число
Округлить к ближайшему целому заданное вещественное число.

Округлить к ближайшему целому заданное вещественное число
Округлить к ближайшему целому заданное вещественное число. Входные данные: Во входном потоке задано вещественное число А (-30000 &lt; A...

Округлить к ближайшему целому заданное вещественное число
Округлить к ближайшему целому заданное вещественное число. Округление к ближайшему целому (англ. round) — наиболее часто используемое...

7
 Аватар для FedorBoom
102 / 70 / 79
Регистрация: 06.02.2014
Сообщений: 211
24.02.2014, 23:54
Для начала, в Паскале есть Round, который округляет и правда по каким-то своим, странным правилам. Кроме этого округления, в Паскале для округления может использоваться Int и Trunc (которые просто отсекают дробную часть). Поэтому, чтобы решить это, нам потребуется немного напрячь мозг и немного знания синтаксиса. Так вот, в Паскале есть такая неприметная функция, как Frac. Она возвращает дробную часть от числа. Например Frac(15.267)=0.267. Это можно использовать для сравнения величин. Мы сравниваем Frac от числа с 0.5, и если оно больше, или равно ему - мы добавляем к нашему числу 1 и с помощью Trunc отсекает дробную часть. Иначе (когда Frac меньше 0.5) мы просто отрезаем дробную часть. Пример:

Вход: 15.267 (сравниваем 0.267 с 0.5, оно меньше его)
trunc(N)
Выход: 15

Вход: 15.867 (сравниваем 0.867 с 0.5, оно больше его)
N+1=16.867
trunc(N)
Выход: 16

Сам код напишешь?

Добавлено через 6 минут
Так уж и быть.
Pascal
1
2
3
4
5
6
7
8
9
var y, n: real;
 begin
  readln(y);
  n:=frac(y);
  if n>=0.5 then y:=y+1;
  y:=trunc(y);
  writeln(y:0:2);
  readln;
 end.
0
2 / 2 / 0
Регистрация: 23.01.2014
Сообщений: 272
25.02.2014, 00:00  [ТС]
FedorBoom, а это без ветвления ?
0
 Аватар для FedorBoom
102 / 70 / 79
Регистрация: 06.02.2014
Сообщений: 211
25.02.2014, 00:12
Если есть if - есть и ветвление. Тебе приказано делать линейный алгоритм? В люблом случае надо сравнить: ЕСЛИ дробная часть больше 0.5 - к числу прибавить +1, ИНАЧЕ ничего не делать. По-моему, это неполное ветвление.
0
2 / 2 / 0
Регистрация: 23.01.2014
Сообщений: 272
25.02.2014, 00:14  [ТС]
FedorBoom, извини но мне надо вобще без ветвления

Добавлено через 22 секунды
FedorBoom, или полностью с ветвоениям но лучше без
0
 Аватар для FedorBoom
102 / 70 / 79
Регистрация: 06.02.2014
Сообщений: 211
25.02.2014, 00:26
Ну, по-другому не получится. За сравнением всегда следует разветвление.

Добавлено через 22 секунды
Считай, что она полностью с ветвлением.
0
2 / 2 / 0
Регистрация: 23.01.2014
Сообщений: 272
25.02.2014, 00:27  [ТС]
FedorBoom, а можеш как то полностью с ветвлением
0
 Аватар для FedorBoom
102 / 70 / 79
Регистрация: 06.02.2014
Сообщений: 211
25.02.2014, 00:29
Ветвления полнее я еще не видел, в нем есть операции в обеих ветках ветвления.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var y, n: real;
 begin
  readln(y);
  n:=frac(y);
  if n>=0.5 then 
   begin
    y:=y+1;
    y:=trunc(y);
   end
   else y:= trunc(y);
  writeln(y:0:2);
  readln;
 end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
25.02.2014, 00:29
Помогаю со студенческими работами здесь

Округлить к ближайшему целому заданное вещественное число
Округлить к ближайшему целому заданное вещественное число. БЕЗ round

Округлить до ближайшего целого заданное вещественное число
Казалось бы легкие задачи, а не получается... Заранее огромное спасибо... 1. Округлить до ближайшего целого заданное вещественное...

Вычислить y=1+x/х² для любого значения х и округлить полученное значение к ближайшему целому
Вычислить y=1+x/х² для любого значения х. Округлить полученное значение к ближайшему целому. Напечатать название старшей цифры полученного...

Округлить число к его ближнему целому значению
Дано число х, округлить его к ближнему целому значению

Округлить вещественное число побитно
Здравствуйте. Не силён в ассемблере, по этому прошу помощи у Вас. Использую делфи, есть переменная типа extendet. Мне нужно эмулировать...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Новые блоги и статьи
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android
8Observer8 26.01.2026
Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д.
8Observer8 25.01.2026
Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf
8Observer8 25.01.2026
Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly
8Observer8 24.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль
iceja 24.01.2026
Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы
anaschu 24.01.2026
Решили писать научную статью с неким РОманом
http://iceja.net/ математические сервисы
iceja 20.01.2026
Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов
iceja 18.01.2026
Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru