Категория
Информатика
Тип
реферат
Страницы
7 стр.
Дата
01.03.2014
Формат файла
.html — Html-документ
Архив
999920.zip — 4.46 kb
  • sozdanie-algoritma-dlja-rasstanovki-perenosov-v-slovax-po-pravilam-russkoj-orfografii_999920_1.html — 13.79 Kb
  • Readme_docus.me.txt — 125 Bytes
Оцените работу
Хорошо  или  Плохо



Текст работы

i:=1;

while t[i]<>'' do

i:=i+1;

r:=i-1;

for i:=1 to r do begin

q:=1;

for j:=1 to 66 do begin

if t[i]=al[j,1] then begin

tt:=tt+al[j,2];

q:=2;

end;

end;

if q=1 then begin

if t[i]=' ' then begin tt:=tt+'4'; q:=2; end;

if t[i]='-' then begin tt:=tt+'5'; q:=2; end;

if q=1 then tt:=tt+'6';

end;

end;

//---------------------------

i:=1;

while i<=r do begin

q:=0;

m:=0;

n:=0;

for j:=0 to 4 do begin

if tt[i+j]='1' then q:=q+1;

if (tt[i+j]='2') and (j<>4) then m:=m+1;

if ((tt[i+j]='4')or(tt[i+j]='5')or(tt[i+j]='6')) and (j<>4) then n:=n+1;

end;

if ((q+m>=4)and(q>=2)) and

(tt[i+2]<>tt[i+3])and(n=0)and(tt[i+1]+tt[i+2]<>'21')and((t[i+3]<>'ь') and(t[i+3]<>'ъ')) then begin

t2:=t2+t[i]+t[i+1]+'-';

i:=i+1;

end else begin

t2:=t2+t[i];

end;

i:=i+1;

end;

//---------------------------

f.strings[qw]:=t2;

end;

f.SaveToFile(form1.Edit1.Text+'2.txt');

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

al[1, 1 ]:='а' ;

al[2, 1 ]:='б' ;

al[3, 1 ]:='в' ;

al[4, 1 ]:='г' ;

al[5, 1 ]:='д' ;

al[6, 1 ]:='е' ;

al[7, 1 ]:='ё' ;

al[8, 1 ]:='ж' ;

al[9, 1 ]:='з' ;

al[10, 1 ]:='и' ;

al[11, 1 ]:='й' ;

al[12, 1 ]:='к' ;

al[13, 1 ]:='л' ;

al[14, 1 ]:='м' ;

al[15, 1 ]:='н' ;



Ваше мнение



CAPTCHA