The problem statement says that the sample input
-0.051e0
1
gives 0.0 as output, and not -0.0
Is that right or the sample is wrong?

If it was
-0.051e0
2
what should I output? -0.05 or 0.05?

Thanks a lot

Vinicius Fortuna
IC-Unicamp

what output for
input
           <empty line>
1
#
???

1e-10000000000000000000000000
5
right output is
0.00000

It helped me with WA12

readln or read?

Am I so stupid?
I have WA on 2-nd test, help! What it can be?

Can I use any functions from string.h? I've got Compile Error and can't understand where is the problem? (I suspect string functions)
How can I find out where is the problem?

Could anyone help me?
Please send the test 12 to my email.
ttxxli@163.com

strings in input can contain '#' as 1 symbol
and some characters else
you should write "Not a floating point number"
for these strings
not terminate you program
last string contains SINGLE char '#'

Please, give me ANY hint...
My program passes (IMHO) all extremal tests (and, of course, all from previous posts)

Tests:
10.
1
10.0e
1
10.e
1

Right answers:
Not a floating point number
Not a floating point number
Not a floating point number

My program results:
10.0
10.0
10.0

But I have AC. It's strange.

A new tricky test was added. Thanks to Andrei Ustinov for help.

Problem has been rejudged, only 20 of 411 accepted solutions have kept its status.

I've got OL#9. What it may mean?

<...>

Edited by author 24.10.2006 19:24

Here's my program:
program p1074;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var Token, s: string;
    dlina_s, N, ukaz: integer;

procedure GetToken;
begin
 Inc(ukaz);
 if ukaz>dlina_s then Token:=''
  else Token:=s[ukaz];
end;

procedure SendBack;
begin
 Dec(ukaz);
 if ukaz=0 then Token:=''
  else Token:=s[ukaz];
end;

function UnsInt:boolean;
begin
 Result:=true;
 GetToken;
 if not (Token[1] in ['0'..'9']) then
 begin
  Result:=false;
  exit;
 end;
 while Token[1] in ['0'..'9'] do
 begin
  GetToken;
  if token='' then break;
 end;
 SendBack;
end;

function Znak:boolean;
begin
 GetToken;
 if (Token='+') or (Token='-') then Result:=true
  else Result:=false;
end;

function _Int:boolean;
begin
 if not Znak then SendBack;
 Result:=UnsInt;
end;

function Exponenta:boolean;
begin
 GetToken;
 if (Token<>'e') and (Token<>'E') then
 begin
  Result:=false;
  exit;
 end;
 Result:=_Int;
end;

function UnsReal:boolean;
begin
 GetToken;
 if Token='.' then // aa?eaio .x
 begin
  Result:=UnsInt;
  exit;
 end
 else Sendback;
 Result:=UnsInt;
 if not Result then exit; // aa?eaio x
 GetToken;
 if Token='.' then Result:=UnsInt // aa?eaio x.x
 else begin SendBack; exit end;
end;

function SimpleReal:boolean;
begin
 if not Znak then SendBack;
 Result:=UnsReal;
end;

function RealNum:boolean;
begin
 Result:=SimpleReal;
 if not Result then Exit;
 GetToken;
 if Token='' then exit
  else begin SendBack; Result:=Exponenta; end;
end;

function Analiz:boolean;
begin
 Result:=RealNum;
 ukaz:=0;
end;

// ------------------ Eiiao aiaeeca --------------------- //

procedure DelExp(col: integer);
var i, j, dot: integer;
    zeros: string;
begin
 zeros:='';
 i:=StrToInt(copy(s,col+1,dlina_s)); // noaiaiu e
 Delete(s,col,dlina_s);
 dot:=Pos('.',s);
 if dot=0 then
 begin
  for j:=1 to abs(i) do zeros:=zeros+'0';
  if i>=0 then s:=s+zeros
   else s:=zeros+'.'+s;
 end
 else
 begin
  if i=0 then exit;
  if i>0 then
  begin
   if i>=length(s)-dot then // noaiaiu e aieuoa aeeiu a?iaiie ?anoe, iiyoiio
   begin                    // aueeauaaai oi?eo e aiiieiyai ni?aaa ioeyie
    for j:=1 to i-length(s)+dot do
     zeros:=zeros+'0';
    s:=s+zeros;
    Delete(s,dot,1);
   end
   else  // noaiaiu e iaiuoa aeeiu a?iaiie ?anoe, ia?aaaeaaai oi?eo ia i ai?aai
   begin
    Insert('.',s,dot+i);
    Delete(s,dot,1);
   end
  end // if i>0
  else
  begin
   if abs(i)>=dot-1 then // noaiaiu e (ii iiaoe?) aieuoa aeeiu oaeie ?anoe ?enea
   begin           // ia?aaaeaaai oi?eo ia io?iia ianoi e aiiieiyai ioeyie neaaa
    Delete(s,dot,1);
    for j:=1 to abs(i)-dot+2 do
     if j=1 then zeros:='0.' else zeros:=zeros+'0';
    Insert(zeros,s,1+Ord(s[1]='-'));
   end
   else
   begin
    Delete(s,dot,1);
    Insert('.',s,dot+i);
   end;
  end;
 end;
end;


procedure Format;
var i, dot, count: integer;
begin
 if s[1]='+' then Delete(s,1,1); // oaaeyai ie?n
// oaaeyai aaaouea ioee
 count:=0;
 for i:=1 + Ord((s[1]='+') or (s[1]='-')) to length(s)-1 do
  if  s[i]='0' then
  begin
   if s[i+1]<>'.' then Inc(count)
  end
    else break;
  if count>0 then Delete(s,1+Ord((s[1]='+') or (s[1]='-')),count);
// oaaeeee ioee
 i:=Pos('e',s);
 if i<>0 then DelExp(i)
 else
 begin
  i:=Pos('E',s);
  if i<>0 then DelExp(i);
 end;
 // ieoai 0 a oaeie ?anoe
 if ((s[1]='-') and (s[2]='.')) or (s[1]='.') then Insert('0',s,1+Ord(s[1]='-'));
 dot:=Pos('.',s);
 if (N=0) and (dot<>0) then Delete(s,dot,length(s));
 if (N>0) and (dot<>0) then
  if N>length(s)-dot then
   for i:=1 to N-length(s)+dot do
    s:=s+'0'
  else
   Delete(s,dot+N+1,length(s));
 if (N>0) and (dot=0) then
 begin
  s:=s+'.';
  for i:=1 to N do
   s:=s+'0';
 end;
 if s='-0.0' then s:='0.0';
 writeln(s);
end;


begin
 ukaz:=0;
 {Assign(Input,'input.txt');
 Assign(Output,'output.txt');}
 repeat
  readln(s);
  if s='#' then break;
  readln(N);
  dlina_s:=length(s);
  if not Analiz then
  begin
   writeln('Not a floating point number');
   continue;
  end
  else Format;
 until false;
end.

this is my code
who can give me some data? thanks !

program A_very_short_problem ;
  const
    nono = 'Not a floating point number';
  var
    s   : ansistring;
    jj,j1   : boolean;
    i,j,k,l,jin : integer;
  function ok(q,h : integer) : boolean ;
    var
      i : integer;
    begin
      ok:=false;
      for i:=q to h do if s[i] in ['0'..'9'] then else exit;
      ok:=true;
    end;
  begin
//    assign(input,'pp.txt'); reset(input);
    readln(s);
    while s<>'#' do
      begin
        j:=pos('e',s); l:=length(s);
        if j=0 then j:=pos('E',s);
        if (j<>0)and(j<l)
           then if ok(j+2,l)and(s[j+1] in ['0'..'9','+','-'])and
                   ((j<l-1)or(s[j+1] in ['0'..'9']))
                   then begin
                          jin:=0; i:=j+1;
                          if s[i]='-' then jj:=false
                             else begin
                                    jj:=true;
                                    if s[i]<>'+' then jin:=ord(s[i])-48;
                                  end;
                          while i<l do
                            begin
                              inc(i); jin:=jin*10+ord(s[i])-48;
                            end;
                        end
                   else begin writeln(nono); readln(j); readln(s); continue; end
           else j:=l+1;
        delete(s,j,l-j+1); l:=j-1;
        if l=0 then begin writeln(nono); readln(j); readln(s); continue; end;
        k:=pos('.',s);
        if ((k=1)or(s[1] in ['0'..'9','-','+']))and ok(2,k-1)and ok(k+1,l)and(k<l)
           then else begin writeln(nono); readln(j); readln(s); continue; end;
        if s[1] in ['+','-'] then
           begin
             if s[1]='-' then j1:=true else j1:=false;
             delete(s,1,1);
           end else j1:=false;
        k:=pos('.',s); l:=length(s);
        if k=0 then k:=l+1
           else begin delete(s,k,1); dec(l); end;
        if jj then inc(k,jin) else dec(k,jin);
        while k<=0 do begin s:='0'+s; inc(k); end;
        while k>l+1 do begin s:=s+'0'; inc(l); end;
        if k=1 then s:='0.'+s else
        if k=l+1 then s:=s+'.0' else insert('.',s,k);
        while s[1]='0' do delete(s,1,1);
        if s[1]='.' then s:='0'+s;
        l:=length(s); k:=pos('.',s);
        readln(j);
        for i:=1 to k+j do
          if (i<>k)and(i<=l)
              then if s[i]<>'0' then begin i:=-1; break; end else
              else break;
        if i=-1 then if j1 then write('-');
        for i:=1 to k-1 do write(s[i]);
        if j>0 then write(s[k]);
        for i:=k+1 to k+j do if i<=l then write(s[i]) else write('0');
        writeln;
        readln(s);
      end;
  end.