Работа 3.1 Упр.12 ГДЗ Семакин 10 класс (Информатика)

Задача

Рассмотрим вариант решения задания из учебника Семакин, Хеннер, Шеина 10 класс, Бином: 12. Дано действительное число R вида nnn.ddd (три цифровых разряда в целой и дробной частях). Поменять местами дробную и целую части числа и вывести полученное значение числа. *Цитирирование задания со ссылкой на учебник производится исключительно в учебных целях для лучшего понимания разбора решения задания. 10 semakin10 pract/3-1/12 98

Подробный ответ

Пусть число имеет вид $$nnn.ddd$$, где целая часть хранится в переменной $$ip$$, а дробная — в переменной $$fp$$.

Сначала выделим целую часть:

$$ip = \operatorname{trunc}(a)$$

Затем найдём дробную часть в тысячных:

$$fp = \operatorname{trunc}(1000 \cdot (a — ip))$$

После этого поменяем части местами. Новое число составим так:

$$b = fp + \frac{ip}{1000}$$

Именно это значение и нужно вывести.

var a, b: real;
ip, fp: integer;
begin
  Write(‘Введите число в формате nnn.nnn —>’);
  Readln(a);
  ip := trunc(a);
  fp := trunc(1000 * (a — ip));
  b := fp + ip / 1000;
  writeln(‘Результат: ‘, b)
end.