Преобразование дробной и целой части REAL-числа в два целыхDelphi , Синтаксис , ПреобразованияПреобразование дробной и целой части REAL-числа в два целыхЯ написал программу, которая делает это. Это DOS-программа. Вы вызываете ее с десятичным числом, передаваемым в качестве параметра. После чего программка выведет 3 колонки, в первой будет находиться исходное число, две остальные будут содержать числитель и знаменатель. Вы можете преобразовать программу в функцию и применять ее в своих приложениях, но, думаю, это несложно, и с этим вы справитесь сами. Для ее запуска достаточно в подсказке DOS набрать ее имя и число: CONTFRAC 3.141592654
Теперь попытаюсь объяснить мой алгоритм (он, по-моему, достаточно быстрый). Вот схема: Допустим, мы используем число 23.56. Берем наше натуральное число и производим целочисленное деление на 1. 23.56 div 1 = 23 Теперь вычитаем результат из числа, с которого мы начали. 23.56 - 23 = .56 Для преобразования значения в целое мы просто умножаем его на 100, и, при необходимости, приводим его к целому. valA := (val div 100); valB := (valA - val); or valB := (valA - val) * 100; val = 23.56 ValA = 23 ValB = .56 or 56 Статья Преобразование дробной и целой части REAL-числа в два целых раздела Синтаксис Преобразования может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Преобразования ::
|
|||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |