Dnešní "potomek" Turbo Pascalu - Delphi - má kvůli kompatibilitě stále ještě i typ Real48.
Jinak za zmínku tam stojí i typ currency - pro čísla s pevnou desetinnou čárkou, interně je to vlastně int 64, desetinná čárka je posunuta "o 4 místa", takže hodnota 1,23 se uloží jako 12300 (což programátora normálně moc nezajímá, špinavou práci odvede překladač).
Myslím, že převedou na double, výpočet provedou na FPU a pak převedou zpět na fixed point. Zkusím sem dát asi ne moc přehlednou ukázku (jsou proložené řádky zdrojáku s assemblerem, který vytvoří překladač):
Main.pas.29: a:=1.2345;
005CDF48 C745F039300000 mov [ebp-$10],$00003039
005CDF4F 33C0 xor eax,eax
005CDF51 8945F4 mov [ebp-$0c],eax
Main.pas.30: b:=6.7891;
005CDF54 C745E833090100 mov [ebp-$18],$00010933
005CDF5B 33C0 xor eax,eax
005CDF5D 8945EC mov [ebp-$14],eax
Main.pas.31: c:=a+b;
005CDF60 DF6DF0 fild qword ptr [ebp-$10]
005CDF63 DF6DE8 fild qword ptr [ebp-$18]
005CDF66 DEC1 faddp st(1)
005CDF68 DF7DE0 fistp qword ptr [ebp-$20]
005CDF6B 9B wait
Main.pas.32: c:=a/b;
005CDF6C DF6DF0 fild qword ptr [ebp-$10]
005CDF6F DF6DE8 fild qword ptr [ebp-$18]
005CDF72 DEF9 fdivp st(1)
005CDF74 D80D84DF5C00 fmul dword ptr [$005cdf84]
005CDF7A DF7DE0 fistp qword ptr [ebp-$20]
005CDF7D 9B wait