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

[zmei123]

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

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

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


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


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

[klem4]

Вот мой вариант, офрмил не очень красиво правда .. При желанииможно убрать циклы из основной части ..

uses crt;
type
   TType = string;
   TArray = array [1..100] of TType;

procedure Input(var arr : TArray; n : byte);
var
   i : byte;
begin
   for i := 1 to n do begin
      write('s[',i,']=');
      readln(arr[i]);
   end;
   writeln;
end;

procedure CheckStr(s : TType; var arr : TArray; size : byte; var i : byte);
const
   open   = '/*';
   close  = '*/';
begin
   while (length(s) > 0) and (pos(open,s) <> 0) do begin
      delete(s,1,pos(open,s)+1);
      if (pos(close,s) < pos(open,s)) or ((pos(close,s) <> 0) and (pos(open,s) = 0)) then begin
         inc(i);
         arr[i] := copy(s,1,pos(close,s)-1);
         delete(s,1,pos(close,s)+1);
      end;
   end;
end;

var
   _in,_out : TArray;
   size,size1,j : byte;
begin

   clrscr;

   write('n = '); readln(size);

   Input(_in, size);

   size1 := 0;

   for j := 1 to size do CheckStr(_in[j], _out, size, size1);

   for j := 1 to size1 do writeln(_out[j]);

   readln;

end.