как отрегулировать кол-во знаков после запятой, при выведении числа(delphi)

[photozaz]

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

а:=b/c; {b=6,c=7}
writeln('a= ', a:4:2{вот про это я спрашиваю});

при вычислении, на экран буде выводиться только 2 знака после запятой -- 0,86 , а не 0,8571428 и т.д.

подскажите как это сделать в делфи..

[DOLBY]

А в дельфи у тебя приложение консольное или визуальное? куда ты выводишь эту цифру?

Можно вот так(будет 2 цифры после запятой):

a:=b/c;
a:=trunc(a*100)/100;

А так 3:

a:=b/c;
a:=trunc(a*1000)/1000;

[SERG1980]

a:=2.5645641641687184
formatfloat('0.00',a);
результат 2.56

[photozaz]

спасибо!!!!

[Petrucci]

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

a:=2.5645641641687184
formatfloat('0.00',a);
результат 2.56

хорошая функция, но как с ее помощью сделать что была возможность выбирать количество цыфр после запятой, т.е. не фиксировано постоянно две, а выбор допустим должен состоять из от 1 до 20 цыфр...

[FaTaL]

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

хорошая функция, но как с ее помощью сделать что была возможность выбирать количество цыфр после запятой, т.е. не фиксировано постоянно две, а выбор допустим должен состоять из от 1 до 20 цыфр...

Сделай переменную типа x:String и вставляй её в formatfloat(x,a)конечно же сначала нужно задать значение X. Ну или сделай Комбобокс, где будешь выбирать формат.

[Нуу совсем чайник]

Простите мне мою долбанутость, но все равно ни фигуленьки не получается.
delphy 7, консольное приложение, вот код:

program sw1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  a,b,c,p,x: real;
begin
  write('Enter line1 ');
  readln(a);
  write('Enter line2 ');
  readln(b);
  write('Enter line3 ');
  readln(c);
  p:= a+b+c;
  x:= sqrt(p*(p-a)*(p-b)*(p-c));
  writeln('x = ',x);
  readln;
end.

все таки куда тут вставить команду для задания количесвта знаков после запятой. И какую именно команду?


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[interxor]

почитай хелп

[Нуу совсем чайник]

нее, хелп не помог, я ж совсем чайник, друг помог. все, нашел.

[Serge_Bliznykov]

в консоле можно пользоваться форматированием точно как в старом добром Turbo Pascal'е:

  x:= sqrt(p*(p-a)*(p-b)*(p-c));
  writeln('x = ',x:9:3);
  readln;