Машинный ноль - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Листинг программы
  1. program Epsilon;
  2. var
  3. epsilon: Real;
  4. begin
  5. epsilon := 1;
  6. while epsilon/2 + 1 > 1 do
  7. epsilon := epsilon/2
  8. Writeln('Машинное эпсилон = ', epsilon);
  9. end.
Поправь дядь плиз, как сделать с отрицательным порядком, вроде все правильно но не компилирует

Решение задачи: «Машинный ноль»

textual
Листинг программы
  1.   e := 1;
  2.   while e / 2 > 0 do e := e / 2;
  3.   writeln(e);

Объяснение кода листинга программы

  1. Переменная e инициализируется значением 1.
  2. Запускается цикл while, условием которого является e / 2 > 0. Это означает, что пока e делится на 2 без остатка (т.е. e является четным числом), цикл будет продолжаться.
  3. Внутри цикла значение переменной e делится на 2.
  4. После завершения цикла значение переменной e выводится на экран с помощью функции writeln.
  5. Значение переменной e теперь равно 0, так как все четные числа, кроме 0, были разделены на 2.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

15   голосов , оценка 3.867 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы