Search With Seek4Info.com
Welcome to collectivesolver - Programming & Software Q&A with code examples. A website with trusted programming answers. All programs are tested and work.

Contact: aviboots(AT)netvision.net.il

Semrush - keyword research tool

Create your online store today with Shopify

Turn ChatGPT, Claude, Gemini, And CoPilot Into Your Personal Assistant, Business Coach, Content Creator, And More

AFFILIATE MARKETING Your all-in-one performance engine Manage affiliates, creators, and customer referrals in one unified platform—turning every partnership into measurable growth

Secure & Reliable Web Hosting, Free Domain, Free SSL, 1-Click WordPress Install, Expert 24/7 Support

Most popular tags

python c java cpp c# javascript php vb# typescript nodejs go rust scala swift kotlin pascal ruby html vbnet dart r css bootstrap win32 groovy winapi sql mysql jquery pascal-string lua winforms kotlin-string cpp-string c-string swift-string go-string php-string bash cobol java-string c#-string vbnet-string python-string rust-string scala-string javascript-string cpp-vector typescript-string pascal-array f# opengl c-array swift-array php-array javascript-array rust-vector typescript-array python-list scala-array reactjs c-windows nodejs-string go-array nodejs-array kotlin-array sdl2 cpp-matrix cpp-array c-matrix sdl3 c#-list vbnet-list java-array pascal-matrix c#-array swift-matrix c#-matrix go-slice nodejs-express character-code-ascii-unicode kotlin-matrix typescript-matrix vbnet-array angularjs add-n-weeks-to-current-date split-string-into-array-by-delimiter transpose-matrix binary-search-algorithm dot-product-two-arrays string-to-title-case generate-random-floating-point-numbers all-permutations-combinations rust-matrix go-matrix kotlin-list rot13 remove-all-letters-alphanumeric-string remove-non-alphanumeric-characters-string remove-all-non-numeric-characters-string
Disclosure: My content contains affiliate links.

43,903 questions

57,300 answers

573 users

How to get the fraction and exponent of a real number in Pascal



180 views
asked Jun 30, 2025 by avibootz
Share on
share on gp share on fb share on tw share on li share on re share via email

1 Answer

0 votes 
program FrexpExample;

uses
  Math, SysUtils;

var
  d: Double;
  fraction: Extended;
  exponent: LongInt;

begin
  d := 3.14;
  
  Frexp(d, fraction, exponent);
  
  Writeln('fraction = ', FloatToStrF(fraction, ffFixed, 8, 6),
          ' exponent = ', exponent);
end.



(*
run:

fraction = 0.785000 exponent = 2

*)

 



answered Jun 30, 2025 by avibootz

Related questions

 | Search With Seek4Info.com
Powered by Question2Answer
...