Question

(ПРОЦЕДУРОЙ А НЕ ФУНКЦИЕЙ) Даны две дроби a/b и c/d (a,b,c,d - натуральные числа). составить программу деления дроби на дробь

Answer 1

Ответ:

в следующий раз пользуйтесь поиском вопросов на сайте, или вы думаете что ваша задача первая в своем роде?))

Объяснение:

uses  crt;

var a,b,c,d,z,ch,zn:integer;

procedure evklid(m, n: integer; var nod:integer);

   

begin

 

  repeat

   if m > n then m := m Mod n

   else n := n Mod m;

 until (m = 0) Or (n = 0);

 {если или m или n в процессе хода цикла стал равен 0 ,то цикл заканчивается }

 nod:=m+n;

end;

begin

clrscr;

writeln('Введите дробь a/b');

 write('a=');

 readln(a);

 write('b=');

 readln(b);

 writeln('Введите дробь c/d');

 write('c=');

 readln(c);

 write('d=');

 readln(d);

 ch:=a*d;

 zn:=b*c;

 evklid(ch,zn,z);

 ch:=ch div z;

 zn:=zn div z;

 Writeln('В результате деления дробей получим:  ',ch,'/',zn);

end.