Сократить дробь

@1zer0 · Регистрация: 04.05.2017

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

Тема: Процедуры пользователя

Сократить дробь вида a/b (a, b – вводимые натуральные числа), создав процедуру для нахождения наибольшего общего делителя двух натуральных чисел.

@VladimirD · 04.05.2017, 06:19

1zer0,

Pascal

program prog;
var
d,a,b:integer;
      
procedure nod(n,m:integer; var d:integer);
begin
 while m<>n do
   if m>n then m:=m-n
   else n:=n-m;
 d:=m;
end;
    
begin
  write('Введите A,B '); readln(a,b);
  nod(a,b,d);
  writeln('НОД=',d);
end.

@Joy · 04.05.2017, 09:48

Сообщение от VladimirD

writeln('НОД=',d);

исправьте на

Pascal

1	writeln('НОД=',d,';',a,'/',b,'=',a div d,'/',b div d);

- дробь же сократить надо, а не НОД найти

@bormant · 05.05.2017, 08:01

Делитель можно поэкономнее искать:

Pascal

function GCD(a, 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;

@1zer0 0 / 0 / 0 Регистрация: 04.05.2017 Сообщений: 11
		1
	Сократить дробь 04.05.2017, 05:04. Показов 7913. Ответов 3 Метки нет (Все метки) Тема: Процедуры пользователя Сократить дробь вида a/b (a, b – вводимые натуральные числа), создав процедуру для нахождения наибольшего общего делителя двух натуральных чисел. 0

	05.05.2017, 08:01

Опции темы