Убрать из числа три цифры после запятой

@Kai739528 · Регистрация: 03.11.2018

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

Здравствуйте. Помогите пожалуйста
дан пример со следующими командами:

зададим число
a="0.045"
0.045
вырежем целую часть
a1=StringReplace[a,"."~~__->""]
0
Вырежем часть после десятичной точки
a2=StringReplace[a,__~~"."->""]
045
Найдем номер разряда последней верной цифры
m=-StringLength[a2]
-3
Запишем число без точки
a3=a1~~a2
0045
Уберем незначащие нули
While[StringTake[a3,1]=="0",a3=StringDrop[a3,1]];a3
45
Первая значащая цифра
k=FromDigits[StringTake[a3,1]]
4
Номер последней значащей цифры
n=StringLength[a3]
2
Найдем абсолютную предельную погрешность
N[10^m]
0.001
Найдем предельную относительную погрешность
N[1/(k 10^(n-1))]
0.025
Clear[a,a1,a2,k,n,m]

А теперь вопрос. задано число: 0,101584537
Как используя команды, описанные выше, можно удалить из заданного числа 3 цифры после запятой (чтобы получилось: 0,584537)?
Важно чтобы если изначальное число поменяли, то удалились бы цифры нового числа.
Спасибо)

@Mysterious Light · 03.11.2018, 23:05

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

Как используя команды, описанные выше, можно удалить из заданного числа 3 цифры после запятой (чтобы получилось: 0,584537)?

Понятия не имею, как это сделать, используя команды, описанные выше.
Впрочем, на практике это и не требуется, поэтому можно написать просто:

Bash

1	StringReplace[a, "," ~~ _ ~~ _ ~~ _ -> ","]

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

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

Это как?

@Kai739528 · 03.11.2018, 23:15 **[ТС]**

Спасибо большое)

@Kai739528 0 / 0 / 0 Регистрация: 03.11.2018 Сообщений: 2
		1
	WM 9 Убрать из числа три цифры после запятой 03.11.2018, 22:37. Показов 3294. Ответов 2 Метки нет (Все метки) Здравствуйте. Помогите пожалуйста дан пример со следующими командами: зададим число a="0.045" 0.045 вырежем целую часть a1=StringReplace[a,"."~~__->""] 0 Вырежем часть после десятичной точки a2=StringReplace[a,__~~"."->""] 045 Найдем номер разряда последней верной цифры m=-StringLength[a2] -3 Запишем число без точки a3=a1~~a2 0045 Уберем незначащие нули While[StringTake[a3,1]=="0",a3=StringDrop[a3,1]];a3 45 Первая значащая цифра k=FromDigits[StringTake[a3,1]] 4 Номер последней значащей цифры n=StringLength[a3] 2 Найдем абсолютную предельную погрешность N[10^m] 0.001 Найдем предельную относительную погрешность N[1/(k 10^(n-1))] 0.025 Clear[a,a1,a2,k,n,m] А теперь вопрос. задано число: 0,101584537 Как используя команды, описанные выше, можно удалить из заданного числа 3 цифры после запятой (чтобы получилось: 0,584537)? Важно чтобы если изначальное число поменяли, то удалились бы цифры нового числа. Спасибо) 0

@Kai739528 0 / 0 / 0 Регистрация: 03.11.2018 Сообщений: 2
	03.11.2018, 23:15 [ТС]	3
	Спасибо большое) 0

Убрать из числа три цифры после запятой

Решение