Вывести первую цифру после запятой

@kquick · Регистрация: 15.05.2014

Author24 — интернет-сервис помощи студентам

Пытаюсь написать программу, которая выводит первую цифру после запятой на Common Lisp (clisp).

Я делаю это так:

Lisp

1 2	(setq number 100.49999) (format t "~a~%" (mod (floor (* 10 number)) 10))

Bash

И для большинства чисел приведенный выше код работает, но если взять число побольше, то там при умножении происходит ошибка вычислений:

Lisp

1 2	(setq number 1000.49999) (format t "~a~%" (mod (floor (* 10 number)) 10))

Bash

Как это сделать правильно?

@Catstail · 06.03.2016, 21:47

Здесь, похоже, проблема в низкой точности обычных чисел с плавающей точкой. Когда берешь "число побольше" добавляй в конец "D0" (это превратит число в число с двойной точностью):

Lisp

CL-USER 11 > (setq number 1000.49999D0)
1000.49999D0
 
CL-USER 12 > (format t "~a~%"  (mod (floor (* 10 number)) 10))
4
NIL

Добавлено через 20 минут
В HomeLisp это может выглядеть так:

Lisp

1 2	(defun task (p) (fix (* 10 (- p (fix p)))))

@kquick · 06.03.2016, 22:23 **[ТС]**

Теперь проблема с чтением (конвертацией) строки в double-float:

Lisp

(setq float-number 1000.49999)
(setq double-number1 1000.49999D0)
(setq double-number2 (coerce float-number 'double-float))
(setq number (with-input-from-string (in "1000.49999") (read in)))
(format t "~a, ~a~%" (type-of float-number) float-number)
(format t "~a, ~a~%" (type-of double-number1) double-number1)
(format t "~a, ~a~%" (type-of double-number1) double-number2)
(format t "~a, ~a~%" (type-of number) number)

Bash

SINGLE-FLOAT, 1000.5
DOUBLE-FLOAT, 1000.49999d0
DOUBLE-FLOAT, 1000.5d0
SINGLE-FLOAT, 1000.5

Добавлено через 13 минут
Еще помогает такая магическая строчка "(setf *read-default-float-format* 'double-float)". Как понимаю задает формат чисел с плавающей точкой по умолчанию как double-float. Но, как мне кажется, это как-то грубо:

Lisp

(setf *read-default-float-format* 'double-float)
(setq number 1000.49999)
(setq str-number (with-input-from-string (in "1000.49999") (read in)))
(format t "~a, ~a, ~a ~%" (type-of number) number (mod (floor (* 10 number)) 10))
(format t "~a, ~a, ~a ~%" (type-of str-number) str-number (mod (floor (* 10 str-number)) 10))

Bash

1 2	DOUBLE-FLOAT, 1000.49999, 4 DOUBLE-FLOAT, 1000.49999, 4

@Catstail · 07.03.2016, 14:45

Сообщение от kquick

Но, как мне кажется, это как-то грубо:

- почему?

Новые блоги и статьи
Как удалить файл из репозитория Git без его физического удаления bytestream 26.01.2025 При работе с системой контроля версий Git разработчики часто сталкиваются с необходимостью удаления файлов из репозитория. Однако этот процесс может быть сложнее, чем кажется на первый взгляд,. . .	Как вынести изменения в коде в новую ветку (branch) в Git bytestream 26.01.2025 Git представляет собой современную систему контроля версий, которая произвела революцию в процессе разработки программного обеспечения. Эта распределенная система позволяет программистам эффективно. . .	Всё не так уж и плохо. Hrethgir 25.01.2025 Запустил более-менее сносно регистры в связке с сумматорами. Да - виновата оптимизация от Gowin EDA, дело в том, что Education шифрует нетлист, да и вообще много чего не позволяет. Просто обвязал. . .	Cisco ASA: подробное руководство по настройке и использованию hw_wired 25.01.2025 В сетевой безопасности межсетевые экраны играют критически важную роль в защите корпоративных инфраструктур от постоянно растущего числа киберугроз. Среди множества решений для обеспечения. . .	Cisco Intelligent Services Gateway: руководство по настройке hw_wired 25.01.2025 В сетевых инфраструктурах Cisco Intelligent Services Gateway (ISG) играет ключевую роль в организации и управлении сервисами для конечных пользователей. Этот компонент представляет собой. . .	Использование Go (Golang) в Highload-проектах: преимущества и особенности bytestream 25.01.2025 В мире высоконагруженных систем выбор правильного инструментария играет ключевую роль в успехе проекта. Go (Golang) представляет собой относительно молодой язык программирования, который быстро. . .
Откуда у float лишние цифры в конце дробной части. Представление чисел с плавающей точкой bytestream 25.01.2025 При разработке программного обеспечения часто возникает необходимость работать с вещественными числами, которые содержат дробную часть. В современных компьютерных системах такие числа представляются. . .	Как использовать глобальную переменную в функции в Python bytestream 25.01.2025 В программировании на Python глобальные переменные представляют собой особый тип переменных, которые доступны для использования во всех частях программы, включая различные функции, классы и модули. . . .	Как в цикле обойти все элементы map в Java bytestream 25.01.2025 В разработке на Java одной из наиболее востребованных структур данных является интерфейс Map, который предоставляет эффективный способ хранения и управления парами "ключ-значение". Разработчики. . .	Для чего нужен UserManager.isUserAGoat() в Android и как это использовать bytestream 25.01.2025 В мире Android-разработки существует множество интересных и порой загадочных функций, о которых знают далеко не все разработчики. Одной из таких функций является метод UserManager. isUserAGoat(),. . .	Как обойти массив в JavaScript. Всё о циклах bytestream 25.01.2025 JavaScript представляет собой мощный язык программирования, широко используемый в веб-разработке, где массивы и циклы являются фундаментальными концепциями для эффективной работы с данными. Массив в. . .	Как сделать, чтобы существующая ветка отслеживала удалённую в Git. Связывание локальных и удалённых веток bytestream 25.01.2025 В разработке программного обеспечения системы контроля версий стали неотъемлемой частью процесса создания качественного программного продукта. Эти инструменты позволяют разработчикам эффективно. . .

@Catstail Модератор 37452 / 20823 / 4281 Регистрация: 12.02.2012 Сообщений: 34,241 Записей в блоге: 14
	07.03.2016, 14:45	4
	Сообщение от kquick Но, как мне кажется, это как-то грубо: - почему? 0

Вывести первую цифру после запятой

Решение