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

[zmei123]

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

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

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


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


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

[zmei123]

вот прога она должна выводить все тоже самое что и до этого но и удалять пробелы в исходном массиве ,чего она не делает можете объяснить почему

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

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;var rew:mass; size : byte; var i : byte;var j:integer);
const
   open   = '/*';
   close  = '*/';
   var
   k:integer;
   e:integer;
   q:integer;
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);
	 rew[i]:=j;
	 delete(s,1,pos(close,s)+1);

      end;
   end;
end;


procedure tri(var s:tarray;var n:byte);
var j,q,e,k:integer;
    x:string;
begin
  k:=0;
  e:=0;
  for q:=1 to n do
  begin
    x:=s[q];
    begin
      for j:=1 to length(s[q]) do
      begin
	if copy(x,j,1)=' ' then
	begin
	  k:=k+1;
	end;
      end;
      for e:=k to length(s[q]) do
      begin
	write(x[e]);
      end;
    end;
  end;
end;
var
   _in,_out : TArray;
   rew:mass;
   size,size1,i,n : byte;
   j:integer;
begin
   clrscr;
   write('n = '); readln(size);
   Input(_in, size);
   begin
     tri(_in,size);
   end;
   size1 := 0;
   for j := 1 to size do
   CheckStr(_in[j], _out,rew, size, size1,j);
   for j := 1 to size1 do
   begin
     writeln(_out[j],' ',rew[j]);
   end;
   readln;
end.

Тегами пользоваться будем ?

Сообщение отредактировано: volvo - 2.11.2006 19:35