число 2,34569 , нужно преобразовать в строку, сократить до двух символов после запятой и вывести в MEMO

[Dpemik]

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

[Alar]

и на каком этапе возникают проблемы? где код?

[Dpemik]

var a:integer;
begin
a:2,34569
floattostrf(a,fffixed,2,2);

end;

end.

[eoln]

сократить

или округлить?
Если округлить, то коротко так

memo1.lines.Add(floattostrf(2.34569, ffFixed, 18, 2));

Если просто обрезать, то, например, форматнуть на 18 знаков после запятой и обрезать.
Или SetRoundMode + RoundTo http://docwiki.embarcadero.com/CodeE...dMode_(Delphi) тут различные способы округления

[Alar]

знак присвоения :=
в конце каждой строки - точка с запятой ;
floattostr для real
для integer - inttostr
http://www.delphibasics.ru/IntToStr.php
округление
http://www.delphibasics.ru/Round.php
да и у тебя как раз таки real переменная должна быть, а не integer.
http://www.delphibasics.ru/Real.php

также нужно в строковую переменную присваивать результат преобразования.

коротко говоря - нужно понимать что ты делаешь, иначе никакой готовый год не поможет ни в чём.

[Serge_Bliznykov]

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

В задаче дано число 2,34569 , нужно преобразовать в строку, сократить до двух символов после запятой и вывести в MEMO.

var 
   d : double;
   s : string;
   posPoint  :  integer;
begin
   d := 2.34569;  //дано число 2,34569 
   s := FloatToStr(d); //преобразовать в строку

   posPoint := Pos('.',s);  // найдём позицию точки в числе
   if posPoint=0 then posPoint := Pos(',',s); // если точки нет, тогда найдём позицию запятой в числе
  
   if posPoint=0 then ShowMessage('У Вас в системе выставлен нестандартный разделитель')
   else begin
     s := Copy(s, 1, posPoint+2); // сократить до двух символов после запятой 
     Memo1.Lines.Append(s); // вывести в MEMO
   end;
end;

p.s. код не проверял.

[Аватар]

В задаче дано число 2,34569 , нужно преобразовать в строку, сократить до двух символов после запятой и вывести в MEMO

Одной стройкой нельзя?

     Memo1.Lines.Add('2,34');

А чего не, и преобразовано в строку, и обрезано лишнее, и в мемо засунуто. Других требований не наблюдалось. Шутка конечно ))

[Alar]

Аватар

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

[Filka]

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Add(FloatToStr(Int(2.34569 * 100.0) / 100.0));
end;

[Dpemik]

Всем большое спасибо, разобрался