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

1. Дано действительное число $$R$$ вида $$nnn.ddd$$ (три цифровых разряда в целой и дробной частях). Поменять местами дробную и целую части числа и вывести полученное значение числа.

Пусть число имеет вид $$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.

Ответ

Программа выделяет целую и дробную части числа и меняет их местами.