Комбинированный тип данных.

[ProgrammiST-_-]

Даны описания переменных: type рац= record
число:integer;
знам:1.maxint
end;
массив = array[1..20] of рац;
Описать:
Логическую функцию равно (а,b) сравнивающую два рациональных числа а и b.
Без понятия как решать даже, если кто то разбирается нужна ваша помощь=(

[p51x]

вас в школе не научили сравнивать дроби?

[TinMan]

Думаю, проще всего переложить числители этих в longint а дальше премножить. Как-то примерно так:

a:= r1.chis;
b:= r2.chis;
a:= a*r2.znam;
b:= b*r1.znam;
if a>b then writeln('r1 > r2')
else if a<b then writeln('r1 < r2')
else writeln('r1 = r2');

[p51x]

a:= a*r2.znam;
b:= b*r1.znam;

О! Я всегда думал, что в дробях делят на знаменатель....

Не надо выдумывать и меня стандартное поведение операторов.

[Juffin]

Не надо выдумывать и меня(ть?) стандартное поведение операторов.

А как вы сравниваете дроби? Вы хотите сказать, что вместо того, чтобы приводить их к общему знаменателю, вы делите числитель на знаменатель и сравниваете десятичные дроби?

[Serge_Bliznykov]

p51x, Вы неправы...
сравните, например, дроби 1/3 и 2/6
очевидно, что 1*6 равно 2*3.

имхо, TinMan предложил простое и красивое решение. (фактически происходит приведение дробей к общему знаменателю, который в данном алгоритме равен r1.znam * r2.znam) и, раз знаменатели дроби равны, можно смело сравнивать числители.)
Недостаток у данного метода только один, может не хватить разрядности longint. Впрочем, тут уже всё будет зависеть от того, какая разрядность у integer (если речь идёт о турбоПаскаль, то LongInt гарантировано хватит:

var a1, a2 : integer;
  b : longint;
begin
  a1 := MaxInt;  a2 := MaxInt;
  b := a1;
  b := b * a2;
  WriteLn(b);  readln;
end.

если же речь о другом компиляторе Паскаль, то это уже не факт.

[p51x]

p51x, Вы неправы...

Да то? Признаю, пропустил, что на разные знаменатели умножает, но:
1. В большом проекте, ессли вы поменяете ожидаемое стандартное поведение оператора, то по рукам быстро получите
2. Учитывая, что обычно лонгинт в два раза по разрядам превосходит инт, то очень интерсно посмотреть как будут сравниваться таким методом максинт и максинт

[Serge_Bliznykov]

1. В большом проекте, ессли вы поменяете ожидаемое стандартное поведение оператора,

никак не могу понять, о каком стандартном операторе Вы второй пост подряд ведёте речь...
Поясните, пожалуйста, какое поведение какого стандартного оператора меняется...

2. Учитывая, что обычно лонгинт в два раза по разрядам превосходит инт, то очень интерсно посмотреть как будут сравниваться таким методом максинт и максинт

А Вы зря читаете посты "по диагонали"...
мой пост выше. пример как раз с максинт на максинт. компилятор TurboPascal. всё работает нормально.
Впрочем, там же я отметил, что это зависит от разрядности Integer в конкретном компиляторе...


p.s. в любом случае, умножение даст более точный результат, чем деление и сравнение полученных дробных значений...

[TinMan]

Juffin, Серж - спасибо за поддержку ).

p51x, извини, я не привел объяснение - что, по-видимому, и сбило тебя с толку. Надо все же писать пару слов всегда, постараюсь исправиться.

Что касается разрядности.. В условии четко указан тип: integer, и даже приведены диапазоны. Во всех Pascal-компиляторах, с которыми я знаком (TP и FP, собственно, про ABC не знаю), типы integer и longint отличаются под длине вдвое - потому я и счел возможным предложить такое решение.