Помогите решить задачу на строки! Опции

[Dron-k]

{83. Текст включает в себя список десятичных чисел, целая и дробная часть которых разделены точкой.
Как разделитель элементов списка используется запятая, после которой записан один пробел.
После последнего числа списка запятая не ставится. Если в дробной части числа меньше 4-х цифр,
то дополнить ее нулями до 4-х цифр; если эта часть имеет больше 4-х цифр, то округлить ее до 4-х цифр.
Если в дробной части числа нет значащих цифр, то удалить такое число из списка.
В последнем случае необходимо удалить также запятую с пробелом.
Eсли же изъятию подлежит последнее число,
то в этом случае нужно удалить запятую с пробелом перед этим числом. }

[amega]

с функциями и процедурами pos, copy, delete length знакомы?

Сообщение отредактировано: amega - 24.03.2009 23:58

[Lapp]

{83. Текст включает в себя список десятичных чисел,

Текст хранится в строке или в файле?

[Dron-k]

Текст хранится в файле.
С выше перечисленными процедурами знаком.

[amega]

берете копируете все по символьно до первго вхождения пробела с зяпятой а потом делаете все те операции которые нужны

[Lapp]

На, вот, потестируй..

const
  d=4;

var
  f: file of char;
  g: text;
  c: char;
  s,t: string;
  x: double;
  i,l,e: integer;
  b: boolean;

begin
  Assign(f,'in.dat');
  ReSet(f);
  Assign(g,'out.dat');
  ReWrite(g);
  b:=false;
  while not EoF(f) do begin
    Read(f,c);
    if ((c in [' ',','])or EoF(f)) then begin
      if EoF(f) then s:=s+c;
      if s<>'' then begin
        l:=Pos('.',s)+d;
        if l>Length(s) then l:=Length(s);
        t:=Copy(s,1,l);
        if l<Length(s) then if s[l+1] in ['5'..'9'] then begin
          for i:=Length(t) downto Pos('.',t) do case t[i] of
            '0'..'8': begin
              Inc(t[i]);
              Break
            end;
            '9': t[i]:='0'
          end;
        end;
        while t[Length(t)]='0' do Delete(t,Length(t),1);
        if t[Length(t)]<>'.' then begin
          while Length(t)<Pos('.',t)+d do t:=t+'0';
          if b then Write(g,', ');
          b:=true;
          Write(g,t)
        end;
        s:=''
      end
    end
    else s:=s+c
  end;
  Close(f);
  Close(g)
end.