Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
Министерство образования и науки Российской Федерации
Федеральное агентство по образованию
Марийский государственный технический университет
Кафедра информатики и
системного программирования
Курсовая работа по дисциплине "Информатика"
на тему:
Моделирование иных процессов
вариант №11
Выполнил: студент ИВТ-11
Андреев Маским Анатольевич
Проверила: старший преподаватель
Кафедры ИиСП Иванова И.Н.
Йошкар – Ола
Постановка задачи
Вариант №11
Построить модель решения задачи автоматического переноса слов по правилам русской орфографии.
Содержание
Введение
1. Теоретическая часть
1.1 Теория
.2 Описание метода решения
2. Практическая часть
.1 Алгоритм решения задачи
.2 Листинг программы
.3 Тестирование программы
3. Вывод
Список литературы
Введение
В данной курсовой работе показан один из способов использования математических методов для решения задачи по переносу слов по правилам русской орфографии. Для реализации поставленной задачи я использовал теоретические сведения из курса информатики, а также полученные ранее знания в области программирования.
Теоретическая часть
Для начала определим, какие существуют правила переносов в русской орфографии.
Основными правилами являются:
1.2 Описание метода решения
Методом решения данной задачи является алгоритм, в основе которого лежит «каретка», длиной в 4 символа. Принцип работы «каретки» следующий : в слове берутся первые 4 символа, подсчитываются гласные и согласные буквы, и, если в данном месте в слове можно сделать перенос по правилам, то перенос делается, если же ни одно правило не подходит, то «каретка» сдвигается на один символ и происходит тот же алгоритм проверки, и так до конца слова.
2. Практическая часть
2.1 Алгоритм решения задачи
Первоначально, для удобства пользователя, предоставим возможность прописать путь к файлу собственноручно. Когда путь к файлу введен пользователь жмет «выполнить».
После этого производятся следующие расчеты:
а) для начала создадим алгоритм, который будет считать количество гласных и согласных букв в слове. Для этого создаем двумерный массив, в котором содержатся все гласные и согласные буквы в первой ячейке, во второй же содержатся цифры «1» и «2», где гласные приравниваем «1», а согласные «2». Далее создаем цикл, который считает символы от начала строки до первого пробела, затем от пробела до пробела, и так до конца строки.
б) создаем цикл, который в каждом слове части по четыре символа проверяет на возможность переноса, если между первыми четырьмя символами перенос сделать нельзя, то «каретка» сдвигается на один символ вправо и так далее до конца слова.
в) заключительный этап программы - это вывод текста, в котором сделаны все возможные переносы в отдельный файл. Файл будет иметь прежнее название + ”2.txt”
2.2 Листинг программы
Программа переноса слов по правилам русской орфографии.
Для оптимизации кода, создаем массив “al” .
Сама программа имеет следующий вид:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, ShellCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
t,tt,t2:string;
f:Tstrings;
r,i,rs,j,q,rc,m,n,l,qw:integer;
al:array[1..66,1..2] of string;
kl:array[1..1000] of integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
f:=Tstringlist.create();
f.Loadfromfile(form1.Edit1.Text);
for qw:=0 to f.count-1 do begin
tt:='';
t2:='';
t:=f.strings[qw];
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 , ]:='а' ;
al[2 , ]:='б' ;
al[3 , ]:='в' ;
al[4 , ]:='г' ;
al[5 , ]:='д' ;
al[6 , ]:='е' ;
al[7 , ]:='ё' ;
al[8 , ]:='ж' ;
al[9 , ]:='з' ;
al[10 , ]:='и' ;
al[11 , ]:='й' ;
al[12 , ]:='к' ;
al[13 , ]:='л' ;
al[14 , ]:='м' ;
al[15 , ]:='н' ;
al[16 , ]:='о' ;
al[17 , ]:='п' ;
al[18 , ]:='р' ;
al[19 , ]:='с' ;
al[20 , ]:='т' ;
al[21 , ]:='у' ;
al[22 , ]:='ф' ;
al[23 , ]:='х' ;
al[24 , ]:='ц' ;
al[25 , ]:='ч' ;
al[26 , ]:='ш' ;
al[27 , ]:='щ' ;
al[28 , ]:='ъ' ;
al[29 , ]:='ы' ;
al[30 , ]:='ь' ;
al[31 , ]:='э' ;
al[32 , ]:='ю' ;
al[33 , ]:='я' ;
al[34 , ]:='А' ;
al[35 , ]:='Б' ;
al[36 , ]:='В' ;
al[37 , ]:='Г' ;
al[38 , ]:='Д' ;
al[39 , ]:='Е' ;
al[40 , ]:='Ё' ;
al[41 , ]:='Ж' ;
al[42 , ]:='З' ;
al[43 , ]:='И' ;
al[44 , ]:='Й' ;
al[45 , ]:='К' ;
al[46 , ]:='Л' ;
al[47 , ]:='М' ;
al[48 , ]:='Н' ;
al[49 , ]:='О' ;
al[50 , ]:='П' ;
al[51 , ]:='Р' ;
al[52 , ]:='С' ;
al[53 , ]:='Т' ;
al[54 , ]:='У' ;
al[55 , ]:='Ф' ;
al[56 , ]:='Х' ;
al[57 , ]:='Ц' ;
al[58 , ]:='Ч' ;
al[59 , ]:='Ш' ;
al[60 , ]:='Щ' ;
al[61 , ]:='Ъ' ;
al[62 , ]:='Ы' ;
al[63 , ]:='Ь' ;
al[64 , ]:='Э' ;
al[65 , ]:='Ю' ;
al[66 , ]:='Я' ;
al[1 , ]:='1' ;
al[2 , ]:='2' ;
al[3 , ]:='2' ;
al[4 , ]:='2' ;
al[5 , ]:='2' ;
al[6 , ]:='1' ;
al[7 , ]:='1' ;
al[8 , ]:='2' ;
al[9 , ]:='2' ;
al[10 , ]:='1' ;
al[11 , ]:='1' ;
al[12 , ]:='2' ;
al[13 , ]:='2' ;
al[14 , ]:='2' ;
al[15 , ]:='2' ;
al[16 , ]:='1' ;
al[17 , ]:='2' ;
al[18 , ]:='2' ;
al[19 , ]:='2' ;
al[20 , ]:='2' ;
al[21 , ]:='1' ;
al[22 , ]:='2' ;
al[23 , ]:='2' ;
al[24 , ]:='2' ;
al[25 , ]:='2' ;
al[26 , ]:='2' ;
al[27 , ]:='2' ;
al[28 , ]:='1' ;
al[29 , ]:='1' ;
al[30 , ]:='1' ;
al[31 , ]:='1' ;
al[32 , ]:='1' ;
al[33 , ]:='1' ;
al[34 , ]:='1' ;
al[35 , ]:='2' ;
al[36 , ]:='2' ;
al[37, ]:='2' ;
al[38 , ]:='2' ;
al[39 , ]:='1' ;
al[40 , ]:='1' ;
al[41 , ]:='2' ;
al[42 , ]:='2' ;
al[43 , ]:='1' ;
al[44 , ]:='1' ;
al[45 , ]:='2' ;
al[46 , ]:='2' ;
al[47 , ]:='2' ;
al[48 , ]:='2' ;
al[49 , ]:='1' ;
al[50 , ]:='2' ;
al[51 , ]:='2' ;
al[52 , ]:='2' ;
al[53 , ]:='2' ;
al[54 , ]:='1' ;
al[55 , ]:='2' ;
al[56 , ]:='2' ;
al[57 , ]:='2' ;
al[58 , ]:='2' ;
al[59 , ]:='2' ;
al[60 , ]:='2' ;
al[61 , ]:='1' ;
al[62 , ]:='1' ;
al[63 , ]:='1' ;
al[64 , ]:='1' ;
al[65 , ]:='1' ;
al[66 , ]:='1' ;
end;
end.
2.3 Тестирование программы
Задав слова русского языка получаем на выходе слова с расставленными переносами.
Вывод