Болшая точность

[Zeir]

Помогите решить на паскале
Дана рациональная дробь m / n. Запишите ее в виде десятичной дроби с точностью k знаков после запятой.

Входные данные

В одной строке записано 3 числа m, n, k. Причем 0 <m, n ? 100, 0 ? k ? 1000.

Выходные данные

Вывести k точных значащих цифр после десятичной точки искомого числа.

Пример

Входные данные Выходные данные
1 2 3 0,500

[q_proger]

var
    m, n, k, i: integer;
begin
    m := 3;
    n : =7;
    k := 9;

    Write('0,');
    for i := 1 to k do begin
        m := 10 * m;
        Write(m div n);
        m := m mod n;
    end;
end.

Как-то так, вот только компилятора pascal у меня нет, так что проверить не могу

[Don Karleone]

а может проще так:

var
  m, n, k: integer;
begin
  m:=3;
  n:=7;
  k:=3;
  writeln(m/n:1:k);
end.

[q_proger]

Сообщение от Don Karleone

а может проще так:

var
  m, n, k: integer;
begin
  m:=3;
  n:=7;
  k:=3;
  writeln(m/n:1:k);
end.

Да в том и дело, что нет, так как "K" может достигать 1000, это задача из темы "длинная арифметика"

[Don Karleone]

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

Да в том и дело, что нет, так как "K" может достигать 1000, это задача из темы "длинная арифметика"

Ну все равно не работает. m=6, n=2 m/n=неверный результат.

[q_proger]

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

var
    m, n, k, i: integer;
begin
    m := 3;
    n : =7;
    k := 9;

    Write(m div n);
    m := m mod n;
    Write(',');
    for i := 1 to k do begin
        m := 10 * m;
        Write(m div n);
        m := m mod n;
    end;
end.

[ponchikpk]

просто надо поставить условие если m<n то выполняем алгоритм господина q_proger а иначе сначала div потом ставим запятую и уже дробную часть опять аналогично считаем.. по моему должно верно работать

меня уже опередели)))) и даже попроще чем я предложил...