Обработка Строк, Помогите решить Опции

[-Alex-]

Задача такова.... Дана строка символов, представляющая предложение и строки, представляющие имя и отчество. Поместить в строку - предложение после имени отчество. Имя может быть указано несколько раз. Порядок ввода исходных данных:последовательность строк, представляющих - предложение; - имя; -отчество.
Порядок вывода результатов: - преобразованное предложение!

В двух словах - это так:
к примеру, вводиться строка: Иван работает,
потом вводится его отчество: Васильевич,

И прога должна вставить его отчество после имени: Иван Васильевич работает!!!

[arhimag]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const

   delitel = [#0..#32, '.', ',', ':', ';', '!', '?', '"'];
type
   TWords = array[1..100] of string;
type
   tdel = array[1..100] of string;
var
   S : string;
   W : twords;
   D : tdel;

function words_from_string (s : string; var w : twords; var d : tdel) : integer;
var
   i,j,k,count : integer;
begin
   i := 1;
   count := 0;
   while ( i <= length(s) ) do begin
      k:=i;
      while( i <= length(s) ) and ( s[i] in delitel ) do
       inc(i);
      d[count+1] := copy  (s , k, i-k );
      if i <= length( s ) then begin
         j := i;
         while(i <= length( s )) and not( s[i] in delitel) do
          inc(i);
         inc(count);
         w[count] := copy(s, j, i-j);
      end;
   end;

   result := count;
end;
var count : integer;
var
  name : array [ 1..100 ] of boolean;

procedure get_name (w : twords);
var i : integer;
flag : boolean;
begin
  name[1]:=false;
  for i:= 2 to count do
    if (w[i,1] in ['A'..'Z']) or (w[i,1] in ['А'..'Я']) then begin
      name[i]:=true;
      if w[1]=w[i] then name[1] := true;
    end else       name[i]:=false;
    flag:= false;
    for i:=2 to count do
      if name[i] then flag:=true;
    if not flag then name[1]:=true;

end;

function make_s(w : twords; d : tdel; otch : string):string;
var s : string;
i : integer;
begin
  s:='';
  for i:= 1 to count do begin
    s:= s + d[i];
    s:= s + w[i];
    if name[i] then s:= s +' '+ otch;
  end;
  result:=s;
end;




var b : string;
begin
  s:='Vasa bili tut.';
  b:='Ivanovich';
  count := words_from_string(s,w,d);
  get_name(w);
  write(make_s(w,d,b));
  readln;
  s:='Ja i Vasa bili tut.';
  b:='Ivanovich';
  count := words_from_string(s,w,d);
  get_name(w);
  write(make_s(w,d,b));
  readln;

  { TODO -oUser -cConsole Main : Insert code here }
end.

Лень искать лажу вот код, сам разбирайся ( работает под Delphi )
чтобы перевестим на паскалевский замени result на название функции

Кстати код не работает в строке "Vasa." но как исправить ты я думаю догадаешься

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