Написать программу деления 2-х чисел с заданной точностью в Pascal

[lulia]

Сама своим умом понимаю, что задача решается просто, но до меня не доходит. Помогите написать программу, которая делит дроби, заданные пользователем в виде числитель/знаменатель, а результат выдаёт в виде округлённого вещественного числа, с порядком точности, заданным пользователем.

Например:
Входные данные: 5/6, t=0.0001
Выходные данные:. 0,8333

Входные данные:. 1/37, t=0,00001
Выходные данные:. 0,02702

[unbanned]

ну я бы сделал как-то так...

var
  ch, zn: integer;
  e: real;
  k: integer;

begin
  ch := 5;// числитель 
  zn := 6;// знаменатель
  e := 0.00001;// точность
  k := 1;
    while e < 1 do 
      begin
        e := e * 10;
        k := k * 10;
      end;
  writeln((round((ch / zn) * k) / k));
end.

принцип думаю понятен...

[lulia]

ОГРОМНОЕ-ОГРОМНОЕ СПАСИБО!
Принцип решения очень понятен. Спасибо!

[TinMan]

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

var
  ch, zn: integer;
  e: real;
  k: integer;

begin
  ch := 5;// числитель 
  zn := 6;// знаменатель
  e := 0.00001;// точность
  k := 1;
    while e < 1 do 
      begin
        e := e * 10;
        k := k * 10;
      end;
  writeln((round((ch / zn) * k) / k));
end.

принцип думаю понятен...

О_о
Принцип БОЛЕЕ, чем понятен. Цикл:

    while e < 1 do 
      begin
        e := e * 10;
        k := k * 10;
      end;

- эквивалентен выражению k:= round(1/e)
unbanned, ты всегда так единицу делишь на число? ))
Не надо подменять операцию деления загрублением точности. Ты ИСПОЛЬЗОВАЛ деление:
writeln((round((ch / zn) * k) / k));
- а тебя просили его имплементировать.
Если делать, как ты, то тогда уж как-то так:
var
ch,zn: integer;
e: double;
begin
ch:= 55;
zn:= 7;
e:= 0.0001;
Writeln(ch/zn:0:-round(ln(e)/ln(10)));
end.

2 lulia:

Сама своим умом понимаю, что задача решается просто, но до меня не доходит

Может, речь идет о воплощении деления уголком? Тогда я бы не стал называть это совсем уж простым.. Но не очень сложно.

[unbanned]

мда)) с делением единицы дал маху

var
ch,zn: integer;
e: double;
begin
ch:= 55;
zn:= 7;
e:= 0.0001;
Writeln(ch/zn:0:-round(ln(e)/ln(10)));
end.

но ведь тут нет округления))
если при делении получиться 0.00067
с точностью 0.0001
в ответе должно получиться 0.0007
а получиться 0.0006

а результат выдаёт в виде округлённого вещественного числа, с порядком точности, заданным пользователем.

[TinMan]

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

мда)) с делением единицы дал маху

Бывает ))
+1

но ведь тут нет округления))
если при делении получиться 0.00067
с точностью 0.0001
в ответе должно получиться 0.0007
а получиться 0.0006

А ты проверь - скажем, 20/3 )) Будешь немного удивлен ))

Форматированный вывод был бы почти бесполезен, не имей он округления. Приходилось бы делать его самому, а если так - то и вывести уже нетрудно.

[unbanned]

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

А ты проверь - скажем, 20/3 )) Будешь немного удивлен ))

проверил. удивлен))