Приближение числа в виде дроби - Программирование от RIN.RU

Программирование

ПОИСК

Главная / Алгоритмы / Математика / Теория чисел /

8  Perl
8  PHP
8  JavaScript
8  HTML
8  DHTML
8  XML
8  CSS
8  C / C++
8  Pascal и Delphi
8  Турбо Ассемблер
8  MySQL
8  CASE-технологии
8  Алгоритмы
8  Python
8  Обратная связь
8  Гостевая книга

Приближение числа в виде дроби - Программирование от RIN.RU

Приближение числа в виде дроби

Алгоритм в подобии псевдокода:

p:=0; q:=1;
metka:
if p/q < r then p:=p+1;
if p/q = r then stop;
if p/q > r then q:=q+1;
if q > qmax then stop;
goto metka;
PROGRAM ratap;
VAR p,q,qmax:integer;
d, r, min: real;
BEGIN
write('r,qmax='); readln(r,qmax);
p:=0; q:=1; min:=r; REPEAT
IF p/q<r THEN p:=p+1 ELSE q:=q+1;
d:=abs(r-p/q);
IF d<min THEN BEGIN min:=d; writeln(p:7,'/',q) END
UNTIL (q>=qmax) OR (d=0);
readln; END.

8 Комментарии к статье 8 8 Обсудить в чате