Pascal программа определить процедуру, которая приводит дробь к несокра¬тимому виду. процедура должна иметь четыре параметра: числи¬тель и знаменатель исходной дроби; числитель и знаменатель ре¬зультирующей дроби.
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018 Внимание! Если программа не работает, обновите версию!
procedure RedFrac(a,b:integer; var c,d:integer); // сокращение дроби
function Gcd(a,b:integer):integer; // НОД begin while b<>0 do begin a:=a mod b; Swap(a,b) end; Result:=a end;
begin var sgnc:=Sign(a); // мы должны учитывать знак! var sgnd:=Sign(b); // мы должны учитывать знак! c:=Abs(a); d:=Abs(b); var g:=Gcd(c,d); c:=(c div g)*sgnc; d:=(d div g)*sgnd end;
begin var p,q,r,s:integer; Write('Введите числитель и знаменатель: '); Read(p,q); RedFrac(p,q,r,s); Writeln(p,' / ',q,' = ',r, ' / ',s) end.
Пример Введите числитель и знаменатель: 384 4096 384 / 4096 = 3 / 32
Внимание! Если программа не работает, обновите версию!
procedure RedFrac(a,b:integer; var c,d:integer); // сокращение дроби
function Gcd(a,b:integer):integer; // НОД
begin
while b<>0 do begin a:=a mod b; Swap(a,b) end;
Result:=a
end;
begin
var sgnc:=Sign(a); // мы должны учитывать знак!
var sgnd:=Sign(b); // мы должны учитывать знак!
c:=Abs(a); d:=Abs(b);
var g:=Gcd(c,d);
c:=(c div g)*sgnc; d:=(d div g)*sgnd
end;
begin
var p,q,r,s:integer;
Write('Введите числитель и знаменатель: '); Read(p,q);
RedFrac(p,q,r,s);
Writeln(p,' / ',q,' = ',r, ' / ',s)
end.
Пример
Введите числитель и знаменатель: 384 4096
384 / 4096 = 3 / 32