Курсовая работа: Создание алгоритма для расстановки переносов в словах по правилам русской орфографии

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;