Предпоследний символ последнего слова через конечный автомат

30.03.2011, 21:38. **Показов** 928. **Ответов** 0

Студворк — интернет-сервис помощи студентам

Здравствуйте, возникло несколько вопросов по реализации конечного автомата в Делфи. Вот условие:

Разработать конечный автомат, который реализует данную функцию. Определить входящий и выходящий алфавиты, начальное состояние и значения переменных. Представить матрицу и граф переходов. Запрограммировать автомат в виде функции языка Delphi(консоль). Входящие сигналы (предложения) представить в виде строки.
Предложения - набор латинских букв и цифр, разделенных одним либо большим числом пробелов, в конце обязательно должна стоять точка.

Задание: вывести на экран предпоследний символ последнего слова, которое оканчивается на 's'.
Ясно, что в конечном автомате код будет существенно отличаться от этого

Delphi

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
var  st,st1, st2, st3:string;
     s,L,i:integer;
begin
 st1:='s'+' ';
 st2:='s.';
 writeln ('Vvedite predlozhenie');
 readln (st3);
 L:=length(st3);
 S:= Pos(st1, st3);
 for i:= l downto 1 do
  begin
  st:=copy(st3, Pos(st1, st3)-1, 1);
  end;
 writeln(st);
 readln;
end.

недоделанного безобразия, вот и всё, что мне ясно

Собственно, вопросы:
1. Алфавиты нужно реализовывать через множества (set of)?
2. Если со входящим алфавитом более-менее понятно - ['a'..'z', 'A'..'Z','0'..'9', ' ', '.'] - то какой он должен быть на выходе: то же самое, но без цифр, пробелов и точек?
3. Нужно ли как-то реализовывать все состояния в коде? Их, как я понимаю, в данном случае должно быть 6 (Ожидание ввода, считывание строки, обработка, поиск необходимых символов, вывод результата и выход).

Заранее большое спасибо всем отписавшимся и отдельная благодарность тем, кто это осилил прочитать

	30.03.2011, 21:38

Опции темы