модули

[Юляшко]

MoveBeg – перенести заданную подстроку в начало
CountWord– определяет количество слов в тексте
WordN – выделяет N-ное слово
DivBegin – разделить строку на две подстроки по первому вхождению сочетания символов
Дан текст. Дан текст переписать слова в этом тексте в обратном порядке. Дан текст фамилия ученика, предмет и отметка. Отметка отделена словом «оценка». Получить две строки одна - фамилия и предмет, другая – отметка.
я вот написала программу ток я не могу сделать вот это условие " Отметка отделена словом «оценка». Получить две строки одна - фамилия и предмет, другая – отметка."
вот модуль

PHP код:

unit turbo;
interface
 
Function CountWord(s:string):integer;   {определяет количество слов в тексте}
Function WordN(n:integer; slovo:string):string;        {выделяет N-ное слово}
Function MoveBeg(slovo:string) :string;   {перенести заданную подстроку в начало}
 Procedure DivBegin(text:string; var h:string);      {разделить строку на две подстроки по первому вхождению сочетания символов}
 
implementation
Function CountWord(s:string):integer;//определяет количество слов
   var k,i:integer;
   begin
      k:=1;
      for i:=1 to length(s)-1 do
      if (s[i]=' ') or (s[i]='.') or(s[i]=' ') or (s[i]=',') or (s[i]=':') or (s[i]=';') and(s[i+1]<>' ') then k:=k+1;
      CountWord:=k;
   end;
 
 
Function WordN(n:integer; slovo:string):string;// выделяет н-ое слово
   var s:string;
   k,e,i,f,j:longint;
   begin
   s:='';
   k:=1;
   e:=1;
   for i:=1 to length(slovo) do
    begin
        if (slovo[i]=' ') or (slovo[i]='.') or(slovo[i]=' ') or (slovo[i]=',') or (slovo[i]=':') or (slovo[i]=';') and(slovo[i+1]<>' ') then k:=k+1;
    if k=n-1 then e:=i+1;
       if k=n then f:=i;
        end;
     for j:=e to f do
         s:=s+slovo[j] ;
 
    WordN:=s;
   end;
 
 
Function MoveBeg(slovo:string):string;  //переносит заданную подстраку вначало
  var k,j:integer;
       s:string;
   begin
   s:='';
   for k:=CountWord(slovo) downto 1   do
   s:=s+WordN(k,slovo)+' ';
   MoveBeg:=s;
   end;
 
 
Procedure DivBegin(text:string; var h:string);//разделитяет строку на две подстроки по первому вхождению сочетания символов
   var i,j,y,r,nach,konec:longint;
       pr,q,fam,ocenka,s:string;
   begin
   fam:='  ';
   q:='';
   ocenka:='';
     for i:=1 to length(text) do
      begin
          for j:=i to i+5 do
          q:=q+text[j];
          if q='оценка'  then
             begin
             nach:=i-1;
             konec:=i+7;
             end else q:='';end;
 
   for y:=1 to nach do fam:=fam+text[y];
   for r:=konec to length(text) do ocenka:=ocenka+text[r];
   s:=fam+' - '+ocenka;
    h:=s;
    end;
   end. 


вот программа

PHP код:

program kontr_stroka;
Uses Crt,slovo;
var
  text,h: string;
  i,nomer:integer;
 
Begin
clrscr;
writeln('vvedite text ');
readln(text);
writeLn('kolichestvo slov: ', CountWord(text));
writeln('vvedite nomer slova');
readln(nomer);
writeLn(WordN(nomer,text));
for i:=CountWord(text) downto 1 do
   write(WordN(i,text),' ');
readln;
end.