строки, работа со строками Опции

[zmei123]

ребят помогите очень надо плиз

дано k-литерных строк (эти строки сохраняются в массиве строк a ). Каждая строка содержит латинские и русские буквы, цифры и все возможные делители требуется:

1 надо выделить из каждой строки (сформировать еще один массив строк b и массив С из целых чисел, в котором будут храниться номера исходных строк , из которых выделяются подстроки) и напечатать подстроки (оформить процедурой)-расположенные между /* и */


если че не понятно в условии пишите прямо в форуме


надеюсь что кто нибудь поможет

[zmei123]

да , но если допустим строка :


fsd/*fdsfsd*/fsdfsd/*vcxvx*/vcxv
fsdfsd
fsdf

то выведет fdsfsd , а vcxvx где ?????????????

вот еще одна правдо мало отличающаяся от той только в ней я не пойму после прохода цикла он берет на 2 цикле строку из первого цикла получается каша ничего не могу поделать объясните че сдесь не так

Код

program mas1;

type
mas= array [1..20] of string;
mass= array [1..20] of integer;
procedure one(var a,b:mas;var c:mass;var y,x:string; k:integer;var u:integer);
var i,j,t,d,e,q,w,z:integer;
begin
  t:=0;
  d:=0;
  u:=0;
  x:='';
  y:='';
  for i:=1 to k do
    begin
    x:=a[i];
    for j:=1 to length(x) do
    begin
      begin
    T:=pos('*/',x);
    d:=pos('/*',x);
    if (t>d) then
    begin
      for e:=d+2 to t-1 do
      begin
        y:=y+a[i][e];
        {c[i]:=c[i]+s[i][e];}
        delete(x,d,1);
      end;
    end;
      end;
      begin
    if y<>'' then
    begin
      inc(u);
      b[u]:=y;
      y:='';
      c[u]:=i;
      delete(x,d,4);
      t:=0;
      d:=0;
      {z:=length(x);
      for q:=1 to d-1 do
      for w:=t to length(x) do
      begin
        x:=x+x[q]+x[w];
      end;
      delete(x,1,z);}
    end;
      end;
    end;
  end;
end;


var a,b:mas;
    c:mass;
    n,k,i,u:integer;
    y,x:string;
begin
  writeln('vvedite k');
  readln(k);
  for i:=1 to k do
  begin
  readln(a[i]);
  end;
  one(a,b,c,y,x,k,u);
  for i:=1 to u do
  begin
  writeln(b[i],' ',c[i]);
  end;

  readln;
end.

Сообщение отредактировано: volvo - 28.01.2006 23:36

[volvo]

да, но если допустим строка :
fsd/*fdsfsd*/fsdfsd/*vcxvx*/vcxv
fsdfsd
fsdf
то выведет fdsfsd , а vcxvx где ?????????????

Измени процедуру вот так:

procedure check(const a: mas; var b: mas; var c: mass;
          const n: integer; var p: integer);
var
  i, T, start, finish: integer;

begin
  p := 0;
  for i := 1 to n do begin

    finish := -1;
    repeat
      inc(finish, 2);

      start := finish + pos('/*', copy(a[i], finish, 255)) - 1;
      finish := finish + pos('*/', copy(a[i], finish, 255)) - 1;

      if start <> finish then begin

        if start > finish then begin
          T := finish; finish := start; start := T
        end;

        inc(p);
        b[p] := copy(a[i], start + 2, finish - start - 2);

        c[p] := i;

      end;

    until start = finish;


  end;
end;

Должно работать...

И пользуйся тегами !!!