Если слово содержит цифру, то заключить ее в скобки..

[moto125]

здравствуйте, помогите написать прогу.. 3ий день уже мучаюсь.. вот задание:


"Создать текстовый файл с произвольным содержимым. Написать программу, которая
изменяет файл таким образом, что каждое его слово, содержащее хотя бы одну цифру, заключается в скобки, а затем дописывает в конец файла строку, в которой указывается количество
слов, заключенных в скобки. Под словом понимается любая последовательность символов,
разделенная пробелом, концом строки или концом файла. "


спасибо...

program laba;
Const dig = ['0'..'9'];
var
fIn,fOut : text;
s,p : string;
i,sum,k , start: integer;
f: boolean;

begin
assign(fIn,'input.txt');
assign(fOut,'output.txt');
reset(fIn);
rewrite(fOut);

while not eof(fIn) do
read(fIn, s);

i:=0;
f := false;
sum:=0;
p := '';
while i <=Length(S) do begin
  Inc(I);

  if (s[i] <> p) and ((s[i-1]=p) or (i=1)) then
    begin
     start :=i;
     k:=i;
    while s[k] <> p do

    if s[k] in dig then

    Insert('(', s, start);
   end;
   f := True;
   sum:= sum+1;


  end;
  writeln(sum);
  writeln(s);
  close(fOut)
 end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[ACE Valery]

Так а в чем проблема?

[AlexDark]

У меня такое ощущение, что p := ''; как то сильно пусто для пробела =)

[moto125]

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

У меня такое ощущение, что p := ''; как то сильно пусто для пробела =)

да и пробывал ' '.. это уже конечный вариант попыток) а сама проблема в том что недописана часть выделения слова скобками...

[Stilet]

Вот разбиение строки на слова:http://www.programmersforum.ru/showt...369#post398369
Товя задача дописать в цикл там где идет перескок на другое слово что-то типа

if dig(a[count]) then a[count]:='('+a[count]+')';

Где

fonction dig(s:string):boolean;var i:byte;
begin for i:=1 to length(s) do if s[i] in ['0'..'9'] then begin dig:=true;exit;end; dig:=false;end;

Ну и после сам массив в таком же цикле записывай в файл.
Ясно?

[moto125]

так и не получилось поправьте если вам не трудно, буду благодарен..

program laba8;
var
fIn,fOut : text;
s,p : string;
i,sum,k , count: integer;
f,dig: boolean;
 a: array[1..100] of string;


function diga(s : string):boolean;
var i:byte;
begin for i:=1 to length(s) do
  if s[i] in ['0'..'9'] then
   begin
     dig:=true;
     exit;
   end;
    dig:=false;
end;


begin
assign(fIn,'input.txt');
assign(fOut,'output.txt');
reset(fIn);
rewrite(fOut);

while not eof(fIn) do
read(fIn, s);



count:=1;
 i:=0;
 while (i<=length(s)) do 
begin


if s[i]=' ' then
   begin
     inc(count);
     inc(i)
   end
   
else
   
   begin
     a[count]:=a[count]+s[i];
     inc(i);
   end;

if diga(a[count]) then a[count]:='('+a[count]+')';
end;

writeln(s);
close(fOut)
end.

[whatever]

Набросал тут, вроде бы работает верно. Перепиши под себя:

procedure insertskobki(var S:string);
var
  i,start,stop:integer;
begin
  i:=length(s);
  while i>1 do
    begin
      if s[i] in ['0'..'9'] then
        begin
          start:=i+1;
          while s[i] in ['0'..'9'] do
            dec(i);
          stop:=i+1;
          if ((s[i]<>' ')and(i<>0)) or ((s[start]<>' ')and(start<>length(s)+1)) then
            begin
              insert(')',s,start);
              insert('(',s,stop);
            end;
        end;
      dec(i);
    end;

end;

var
  S:string;
begin
  readln(s);
  writeln;
  insertskobki(s);
  writeln(s);
  readln;
end.

[moto125]

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

Набросал тут, вроде бы работает верно. Перепиши под себя:

procedure insertskobki(var S:string);
.....

только почему-то берет в скобки саму цифру, а должна само слово, хотя вроде должна правильно работать


Не увлекайтесь излишним цитированием! Лишнее удаляйте.
Иначе получите штраф за оверквотинг!

Модератор.

[whatever]

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

только почему-то берет в скобки саму цифру, а должна само слово, хотя вроде должна правильно работать

Хм... Я так и писал, что нужно числа заклчать в скобки. Фигня на самом деле, просто замени ['0'..'9'] на ['a'..'z','A'..'Z']

Update: еще раз перечитал задание... Стоило из-за этого голову ломать? Я то думал тут нужно цисла внутри слов в скобки заключать, а оказывается...

[whatever]

procedure insertskobki(var S:string);
var
  i,k,count:integer;
  m:array of string;
begin
  count:=1;
  while s[1]=' ' do
    delete(s,1,1);
  while s[length(s)]=' ' do
    delete(S,length(s),1);
  while pos('  ',S)<>0 do
    delete(S,pos('  ',S),1);
  for i:=1 to length(s) do
    if s[i]=' ' then
      inc(count);
  setlength(m,count);
  k:=1;
  for i:=0 to high(m) do
    begin
      m[i]:='';
      while (s[k]<>' ')and(k<=length(s)) do
        begin
          m[i]:=m[i]+s[k];
          inc(k)
        end;
      inc(k);
    end;
  s:='';
  for i:=0 to high(m) do
    if (pos('0',m[i])<>0)or
       (pos('1',m[i])<>0)or
       (pos('2',m[i])<>0)or
       (pos('3',m[i])<>0)or
       (pos('4',m[i])<>0)or
       (pos('5',m[i])<>0)or
       (pos('6',m[i])<>0)or
       (pos('7',m[i])<>0)or
       (pos('8',m[i])<>0)or
       (pos('9',m[i])<>0) then
          s:=s+'('+m[i]+') '
    else
      s:=s+m[i]+' ';
end;

Кстати, в следующий раз постарайся нормально называть темы, исходя из названия мой первый вариант правильный.