Kalkulačka Pascal

[a1]

Ahoj všichni,
Při psaní kalkulačky v pascalu jsem narazil na jednu takovou chybu, která se týká desetinných míst.
Napsal jsem si další prográmek a zjistil že pascal si při zjistování desetiné části u čísla vymýšlí další náhodná...nebo blbě zaokrouhluje. To netuším. Přikládám zdroják.

Kód: Vybrat vše

uses crt;
var a:real;
      i:integer;
begin
   clrscr;
   read(a);
   b:=a;
   REPEAT 
      writeln(FRAC(B));
      B:=b*10;
   UNTIL FRAC(B)=0;
   end;
end.

[bubanek]

NEvím jak ti to jelo, protože číslo "b" není nikde definované...

[a1]

promin to jsme asi smázl při kopírování sem. už jsem zjistil že a,b musí být datový typ extended pak to funguje