Неверов Евгений Викторович
Меню сайта
Категории раздела
Программирование на языке Паскаль [27]
В данной категории представлены новые функции, созданные на языке Паскаль, которые могут пригодиться при написании своих программ
Программирование на Delphi [18]
В данной категории представлены полезные подпрограммы, которые могут пригодиться при написании своих программ, а также рассматриваются примеры готовых проектов, создаваемых в среде программирования Delphi
Программирование на HTML [0]
В данной категории рассматриваются примеры готовых проектов, создаваемых на языке HTML
Прочее [0]
Свободная тематика
Мини-чат
200
Наш опрос
Как Вы думаете, сколько времени люди проживут на Земле?
Всего ответов: 32
Статистика

Рейтинг@Mail.ru
Онлайн всего: 1
Гостей: 1
Пользователей: 0
Форма входа
Главная » Статьи » Программирование на языке Паскаль [ Добавить статью ]

Сложение обыкновенных дробей

1. Общий знаменатель дроби


function DrobObschijZnamenatel(a, b: integer): integer;
var z: integer;
begin
   If a>b then
   begin
      z:=a;
      a:=b;
      b:=z;
   end;
   Result:=b;
   While Result mod a<>0 do
      Result:=Result+b;
end;

где

a - знаменатель первой дроби;

b - знаменатель второй дроби.

Например, DrobObschijZnamenatel(6, 8) выведет '24'.


2. Сложение обыкновенных дробей


function DrobSlozhenie(a1, b1, a2, b2: integer; var a, b: integer): real;
var i, m: integer;
begin
   b:=DrobObschijZnamenatel(b1, b2);
   a1:=b div b1 * a1;
   a2:=b div b2 * a2;
   a:=a1+a2;
   If a<b then
      m:=Abs(a) else
      m:=Abs(b);
   For i:=m downto 2 do
      If (a mod i = 0) and (b mod i = 0) then
      begin
         a:=a div i;
         b:=b div i;
         Break;
      end;
   Result:=a/b;
end;

где

a1, b1 - числитель и знаменатель первой дроби;

a2, b2 - числитель и знаменатель второй дроби;

a, b - числитель и знаменатель полученной дроби.

Например, DrobSlozhenie(1, 6, 3, 10, a, b) выведет '0,466666666666667', а = '7', b = '15'; DrobSlozhenie(1, 6, -3, 10, a, b) выведет '-0,133333333333333', а = '-2', b = '15'.

Категория: Программирование на языке Паскаль | Добавил: newerow1989 (14.08.2016 13:22 )
Просмотров: 93 | Рейтинг: 0.0/0
Всего комментариев: 0
Имя *:
Email *:
Все смайлы
Код *:
Поиск
Друзья сайта
  • Создать сайт
  • Официальный блог
  • Сообщество uCoz
  • FAQ по системе
  • Инструкции для uCoz
  • Все проекты компании
  • Copyright MyCorp © 2018
    Автор этого сайта: Неверов Евгений Викторович

    Мои координаты
    Бесплатный конструктор сайтов - uCozЯндекс.Метрика