Описать процедуру Socr(a,b,p,q), которая приводит дробь a/b к несократимому виду p/q

@axmet1 · Регистрация: 06.11.2012

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

Описать процедуру Socr(a,b,p,q) от целых параметров (b<>0), которая приводит дробь a/b к несократимому виду p/q .

@senich · 03.06.2013, 22:02

Pascal

Procedure socr(a, b:integer; var p, q:integer);
var c, d:integer;
Begin
  c:=a;
  d:=b;
  p:=a;
  q:=b;
  while c <> d do
    if c > d then
      c := c - d
    else
      d := d - c;
  if p div c=a then begin
    writeln('Äàííàÿ äðîáü íåñîêðàòèìà.');
    exit;
  end
  else begin
    p:=p div c;
    q:=q div c;
  end;
End;

@axmet1 3 / 3 / 0 Регистрация: 06.11.2012 Сообщений: 33
		1
	Описать процедуру Socr(a,b,p,q), которая приводит дробь a/b к несократимому виду p/q 03.06.2013, 21:35. Показов 2444. Ответов 1 Метки нет (Все метки) Описать процедуру Socr(a,b,p,q) от целых параметров (b<>0), которая приводит дробь a/b к несократимому виду p/q . 0

	03.06.2013, 22:02

Описать процедуру Socr(a,b,p,q), которая приводит дробь a/b к несократимому виду p/q

Решение