Вывод чисел

[vovken1997]

ВСЕМ ПРИВЕТ!
Я сейчас решил задачу которая будет проверятся компом. В общем нашёл я решение. В конце моего алгоритма необходимо поделить два числа и вывести то что получится. Максимум 9 символов после запятой и 9 символов перед запятой. Делю 1/3 получаю 0,333333333, тут всё как надо. Но когда ответ программы к примеру 2,8/2 , она выводит 1,400000000, а надо 1,4. К сожелению проверяющая прога не принимает 1,400000000. Помогите пожайлуста вывести как надо.

[Stilet]

Показывай код вывода.

[Serge_Bliznykov]

WriteLn(f:9:9)

так?

[Poma][a]

Серж, наверно так

WriteLn(f:0:9)

Это разобрались с ограничениями. Но тут надо решить вопрос с ноликами в конце, тоесть не 1.300000000, а 1.3
Ну самый простой вариант, это в строку, а оттуда посимвольным выводом.

Str (a, s);
for i := Length(s) downto 1 do
    if not (s[i] in ['0', '+', 'E', '.']) then
       Break;

for j := 2 to i do
        Write (s[j])

Почему с двойки? - Т.к. почему-то при конвертировании в строку, 1 элементом является пробел

[vovken1997]

Блин, что только через строку?
Нолики долбаные...

[Stilet]

WriteLn(f:0:0)

Должно помочь

[Poma][a]

Stilet, а как же 0.33333333 ?

[vovken1997]

Спасибо Poma][a!!!
То что надо.
Работает

[Stilet]

Согласен, не подумал.
Тогда чтоб наверняка - переводить число в строку, и убирать из нее завершающие нули.

[Poma][a]

эка меня осенило

var
        m, n : Integer;

begin
       ....
       if n mod m <> 0 then
             WriteLn (n / m : 0 : 9)
       else
             WriteLn (n / m : 0 : 0)      
end.