VPF::[Pascal] Сокращение дробей - Форум программистов

Demonix

Дата 19.11.2006, 15:51 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 26
Регистрация: 17.11.2006
Где: Россия

Репутация: нет
Всего: нет

Вот такое задание мне дали:

Даны две дроби A/B и C/D (A,B,C,D-натуральные числа). Составить программу для умножения дроби на дробь. Результат должен быть несократимой дробью.

Моих мозгов, с учётом не знания паскаля, хватило лишь на:

Код


program i7;
uses dos,crt;
var
a,b,c,d,e,f,count:integer;
g,h:real;
begin
clrscr;
writeln('введите a');
readln(a);
writeln('введите b');
readln(b);
writeln('введите c');
readln(c);
writeln('введите d');
readln(d);
e:=a*c;
f:=b*d;
repeat
if ((e mod 2)=0) and ((f mod 2)=0) then
begin
g:=e;
g:=g/2;
h:=f;
h:=h/2;
e:=g;
f:=h;
end;
if ((e mod 3)=0) and ((f mod 3)=0) then
begin
g:=e;
g:=g/3;
h:=f;
h:=h/3;
e:=g;
f:=h;
end;
if ((e mod 5)=0) and ((f mod 5)=0) then
begin
g:=e;
g:=g/5;
h:=f;
h:=h/5;
e:=g;
f:=h;
end;
   {Но появляется вопрос, сколько надо перечислить чисел, на которые нодо сократить? К примеру, до 137 будет куча чисел, а если до 457747...}
if ((e mod 7)=0) and ((f mod 7)=0) then
begin
g:=e;
g:=g/7;
h:=f;
h:=h/7;
e:=g;
f:=h;
   {и ещё в добавку, g можно приравнять к e, но e к g приравнять не получается...}
end;
inc(count);
until count>5;
writeln('получилась дробь ',e,'/',f);
readln;
end.

И получается, что ничего не получается... smile

Если кто-то может подсказать, то пожалуйста - ПОДСКАЖИТЕ!!!

Это сообщение отредактировал(а) Demonix - 19.11.2006, 15:52

powerfox

Дата 19.11.2006, 16:33 (ссылка)

(нет голосов)

Загрузка ...

I wanna fork()

Профиль
Группа: Комодератор
Сообщений: 3990
Регистрация: 1.10.2005
Где: Санкт-Петербург

Репутация: 3
Всего: 97

Код


program drob_drob;
var
a,b,c,d:integer;
f,g:integer; {f/g - result}
begin
writeln('Enter A/B, C/D in format A B C D');
readln(A,B,C,D);

f:=a*c;
g:=b*d;

while ( (f div 2) = 0) and ( (g div 2) = 0) do
 begin
 f:=f mod 2;
 g:=g mod 2;
 end;

while  ( (f mod 3) = 0) and ( (g mod 3) = 0)  do
 begin
 f:=f div 3;
 g:=g div 3;
 writeln('here');
 end;

while ( (f mod 5) = 0) and ( (g mod 5) = 0) do
 begin
 f:=f div 5;
 g:=g div 5;
 end;

while ( (f mod 7) = 0) and ( (g mod 7) = 0) do
 begin
 f:=f div 7;
 g:=g div 7;
 end;

writeln('Result is', f,'/',g);
end.

--------------------

sergejzr

Дата 19.11.2006, 16:47 (ссылка)

(нет голосов)

Загрузка ...

Un salsero
Group Icon

Профиль
Группа: Админ
Сообщений: 13285
Регистрация: 10.2.2004
Где: Германия г .Ганновер

Репутация: 11
Всего: 360

Для домашних заданий, курсовых, существует "Центр Помощи"

Тема перенесена!

--------------------

Me.
FB.
LinkedIn.
ORCID.
YT.

Demonix

Дата 19.11.2006, 16:52 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 26
Регистрация: 17.11.2006
Где: Россия

Репутация: нет
Всего: нет

powerfox,

Работать то работает, но сокращает только один раз, а надо получить не сократимую дробь!
Введём:

А = 650
В = 24
С = 4
Д = 2

то получим:

2600/48

Но её ещё же можно сократить!

А во вторых, мы сокращаем только на 2,3,5,7... А если надо будет на 137 сокращать, то как?

Добавлено @ 16:53
sergejzr,

Ага, Спасибо!

powerfox

Дата 19.11.2006, 17:08 (ссылка)

(нет голосов)

Загрузка ...

I wanna fork()

Профиль
Группа: Комодератор
Сообщений: 3990
Регистрация: 1.10.2005
Где: Санкт-Петербург

Репутация: 3
Всего: 97

Demonix:

Цитата(powerfox @ 19.11.2006, 17:33

)

while ( (f div 2) = 0) and ( (g div 2) = 0) do
begin
f:=f mod 2;
g:=g mod 2;
end;

Замени на

[/code]

Код


while  ( (f mod 2) = 0) and ( (g mod 2) = 0)  do    
 begin    
 f:=f div 2;    
 g:=g div 2;    
 end;

Всё пашет - перепутал в одном из циклов div и mod.

Добавлено @ 17:11
Кстати, чтобы было всё идеально, добавь в конец программы проверку на равенство числителя и знаменателя + проверку на то, делятся ли числитель и знаменатель друг на друга.

Это сообщение отредактировал(а) powerfox - 19.11.2006, 17:09

--------------------

volvo877

Дата 19.11.2006, 17:44 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 34
Всего: 116

Может, через НОД проще?

Код

uses crt;

function GCD (A: integer;  B: integer): integer;
begin
    while (a <> 0) and (b <> 0) do
       if a >= b then
         a := a mod b
       else
         b := b mod a;
    GCD := a + b;
end;

var
  a, b, c, d: integer;

begin

  clrscr;

  writeln('a / b:');
  write('a = '); readln(a);
  write('b = '); readln(b);
  writeln('c / d:');
  write('c = '); readln(c);
  write('d = '); readln(d);

  writeln((a*c) div GCD(a*c, b*d), ' / ', (b*d) div GCD(a*c, b*d));
  readln;

end.

Добавлено @ 17:46
Можешь вычислять НОД отдельно, и добавить проверку на равенство НОД-а нулю...

Demonix

Дата 19.11.2006, 18:13 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 26
Регистрация: 17.11.2006
Где: Россия

Репутация: нет
Всего: нет

powerfox, это что-то вроде

Код


if f=g then
 begin
 f:=f div g;
 g:=g div f;
 end;
if ( (f mod g) = 0) then
begin
f:=f div g;
g:=g div g;
end;
if ( (g mod f) = 0) then
begin
g:=g div f;
f:=f div f;
end;

volvo877,

Программа работает, но только на небольших числах! К примеру:

А=356
В=54
С=123
Д=51 smile

то прога просто виснет! И ещё вопрос: Что это за "function GCD"? Как она работает? smile

Это сообщение отредактировал(а) Demonix - 19.11.2006, 18:15

powerfox

Дата 19.11.2006, 18:24 (ссылка)

(нет голосов)

Загрузка ...

I wanna fork()

Профиль
Группа: Комодератор
Сообщений: 3990
Регистрация: 1.10.2005
Где: Санкт-Петербург

Репутация: 3
Всего: 97

Demonix, я спросил на irc у Войда: это (функция GCD) алгоритм Евклида, http://ru.wikipedia.org/wiki/Алгоритм_Евклида
Просто у тебя тип данных integer, замени его на word, чтобы увеличить размер числа.

Цитата(Demonix @ 19.11.2006, 19:13

)

powerfox, это что-то вроде

Отчасти.

Код


if f=g then    
 f:=1;    
 g:=1;    
if ( (f mod g) = 0) then    
begin    
f:=f div g;    
g:=1;    
end;    
if ( (g mod f) = 0) then    
begin    
g:=g div f;    
f:=1;    
end;

Так меньше вычислений и суть яснее.

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »