Converter Real para String em Pascal RealToStr

Um problema comum é converter um número REAL em String na linguagem Pascal. Em Delphi tem a função FloatToStr.

No programa abaixo foi criada a função RealToStr que poderá ser aplicada aos seus programas.

RealToStr.png

Código Fonte:

 Program Real_para_String;  
 Uses Crt;  
 var  
  r : Real;  
 function RealToStr (n : Real; Decimal:byte): String;  
 var  
  s : String;  
 begin  
  Str ( n:0:decimal,s);  
  RealToStr := s;  
 end;  
 begin  
  ClrScr;  
  Write ('Entre com um numero REAL:'); ReadLn (r);  
  WriteLn;  
  WriteLn (RealToStr(r,2));  
  ReadLn;  
 end.  

Um comentário: