выделить дробную часть числа

[unbanned]

var
  c, d: real; 
  i, k, d2: integer; 
  s, s1: string; 


begin
  readln(c); 
  d := frac(c);
  s:=''; 
  if d <> 0 then begin
    while d <= 1 do 
    begin
      inc(k); 
      d := d * 10; 
    end;    
    for i := 1 to k - 1 do 
      s := s + '0'; 
    while frac(d) <> 0 do
      d := d * 10;
    str(trunc(d), s1); 
    s := s + s1; 
  end; 
  writeln(s); 
end.

вот написал такой код...
на ABC работает только когда число без целой части, напр 0.0304

если ввести 1.0304 выдает ошибку...
похоже потому что криво дробную часть возвращает

1.020032
0.0200320000000001

что-то я понять не могу))

[Mad_Cat]

var c:real;
s:string;
begin
c:=1.0303;
str(c,s);
delete(s,1,pos('.',s));
writeln(s);
end.

результат

0303

[Leo08]

Можно и по-другому:

Function a(i:real):real;
Begin
Result:=i-trunc(i):
End;

[unbanned]

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

var c:real;
s:string;
begin
c:=1.0303;
str(c,s);
delete(s,1,pos('.',s));
writeln(s);
end.

результат

да, да))) и так писал... только если в turbo запустить то получится что-то типо 030300000+E00

[Mad_Cat]

можно еще проще )

 Function Frac(X : Real) : Real;

Возвращает дробную часть аргумента.
Объявление
Параметр X - выражение вещественного типа. Результат - дробная часть X, то есть Frac(X) = X-Int(X).

[unbanned]

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

Можно и по-другому:

Function a(i:real):real;
Begin
Result:=i-trunc(i):
End;

1.0303
должно быть 0303, а не 0.0303

[Mad_Cat]

пробуйте)

var c:real;
n:integer;sc:set of char;
s:string;
begin
readln(c);
str(c:0:100,s);
delete(s,1,pos('.',s));
n:=length(s);
sc:=['0','E','+','-'];
while s[n] in sc do
begin
delete(s,n,1);
n:=n-1;
end;
writeln(s);
readln;
end.

[unbanned]

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

пробуйте)

хах)) можно было догадаться... спасибо

[unbanned]

и всё-таки... почему дробную часть возвращает таким образом?)))

1.020032
0.0200320000000001

откуда эта единица?

[Stilet]

А потому что процессор не умеет точно считать дробные. И округление будет глючить как бы ты не старался ловить точность.
А что за задача заставила тебя так напрячься?