Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Помогите решить задачу на строки!

Автор: Dron-k 25.03.2009 0:38

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

Автор: amega 25.03.2009 3:57

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

Автор: Lapp 25.03.2009 16:28

Цитата(Dron-k @ 24.03.2009 20:38) *
{83. Текст включает в себя список десятичных чисел,
Текст хранится в строке или в файле?

Автор: Dron-k 25.03.2009 23:39

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

Автор: amega 25.03.2009 23:45

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

Автор: Lapp 26.03.2009 19:09

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

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.