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

Рассмотрим вариант решения задания из учебника Семакин, Хеннер, Шеина 10 класс, Бином: 18. Среди первых трех цифр из дробной части положительного вещественного числа есть нуль. *Цитирирование задания со ссылкой на учебник производится исключительно в учебных целях для лучшего понимания разбора решения задания. 10 semakin10 pract/3-2/18 98

Нужно проверить, есть ли нуль среди первых трёх цифр дробной части положительного вещественного числа. Для этого выделим дробную часть числа, умножим её на $$1000$$ и переведём в целое число. Тогда первые три цифры дробной части окажутся в целой части полученного числа.

Далее проверим каждую из трёх цифр на равенство нулю и запишем результат в логическую переменную.

var x: real;
y, z, k: integer;
t: boolean;
begin
  write(‘Введите вещественное число с дробной частью x=’);
  readln(x);
  y := trunc(frac(x) * 1000);
  k := ord(y mod 10 = 0) + ord(y div 10 mod 10 = 0) + ord(y div 100 = 0);
  t := k > 0;
  write(t);
  readln;
end.

Здесь $$frac(x)$$ — дробная часть числа, $$trunc$$ отбрасывает дробную часть, а выражение $$ord(\text{условие})$$ даёт $$1$$, если условие истинно, и $$0$$, если ложно.

Ответ: программа проверяет, есть ли нуль среди первых трёх цифр дробной части положительного вещественного числа, и выводит $$true$$ или $$false$$.