Вычислить функцию [x] без INT, FIX

@gehh · Регистрация: 01.04.2014

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

Как известно функция [x] вычисляет
Наибольшее целое число не превосходящее x
У этой программы довольно любопытный алгоритм:
1) нам известно в общем случае вещественное число
2) как убрать дробную часть?
3) мы не можем сразу этого сделать, НО
4) мы можем вычитать из этого числа Целые числа до тех пор
пока не останется число меньшее 1 - То есть Дробная часть!!
5) наверное понятно, что число 1073741824 есть степень 2
6) найдя дробную часть числа, легко вычислить целую часть
Вот код, который прекрасно с этим справляется

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
DEFLNG Z
DEFDBL X-Y
z = 1073741824
CLS
INPUT "Vvod x"; x
y = x
x = ABS(x)
DO WHILE z >= 1
   IF x >= z THEN x = x - z
   z = z / 2
LOOP
IF y < 0 THEN x = y + x - 1 ELSE x = y - x
PRINT "[x]="; x
END

Примечание:
Конечно можно было поступить гораздо проще:
Вот код:
z=x !!!
И все! Ничего более не надо.
Ведь z - целая переменная
Тогда зачем эта программа??
Это ещё одна ступенька к вершине QBasic!
Успехов вам!

@gehh · 22.04.2014, 14:23 **[ТС]**

Обнаружена ошибка:
Где примечание надо было записать z = x - .5
Успехов всем!

Новые блоги и статьи Все статьи Все блоги /
Функция установки текстового статуса в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем
10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .

@gehh 159 / 104 / 124 Регистрация: 01.04.2014 Сообщений: 466 Записей в блоге: 7
	22.04.2014, 14:23 [ТС]
	Обнаружена ошибка: Где примечание надо было записать z = x - .5 Успехов всем! 0