Новичок
Профиль
Группа: Участник
Сообщений: 3
Регистрация: 4.9.2007
Репутация: нет
Всего: нет
|
Доброго времени суток! Помогите пожалуйста перевести код программы с Delphi в C++ (здесь выполняет минимизация ДКА (Детерминированный конечный автомат)) предмет Формальные языки и теория автоматов. Заранее благодарен. Файл DFA_01.txt содержит 5 A B *C D *E 2 0 1 B D B *C D *E D *E B *C | Код |
program DFA_Min;
{$APPTYPE CONSOLE}
const
finame = 'c:\DFA_01_.txt';
foname = 'c:\DFA_01_MIN.txt';
var
fi,fo: TextFile;
Stat,NewStat: array of string;
Symb: array of char;
Table,NewTable: array of array of byte;
Equiv: array of array of byte;
Comps: array of longint;
flag,flag2: boolean;
i1,i2,i3,m,n,NStatCnt: longint;
ch: char;
st: string;
procedure Comp_DFS(op,cl: longint);
var
p1: longint;
begin
if Comps[op]<>0 then exit;
Comps[op]:=cl;
for p1:=0 to n-1 do if Equiv[op,p1]=0 then Comp_DFS(p1,cl);
end;
begin
{init}
AssignFile(fi,finame);
AssignFile(fo,foname);
Reset(fi);
Rewrite(fo);
//INPUT ---------------------------------------------------------------------
{statements}
Readln(fi,n);
SetLength(Stat,n);
for i1:=0 to n-1 do
begin
repeat Read(fi,ch) until ch<>' ';
Stat[i1]:=ch;
while NOT (EOLN(fi)) do
begin
Read(fi,ch);
if ch=' ' then break;
Stat[i1]:=Stat[i1]+ch;
end;
end;
Readln(fi);
{symbols}
Readln(fi,m);
SetLength(Symb,m);
for i1:=0 to m-1 do
begin
repeat Read(fi,ch) until ch<>' ';
Symb[i1]:=ch;
end;
Readln(fi);
{table}
SetLength(Table,n,m);
for i1:=0 to n-1 do
begin
for i2:=0 to m-1 do
begin
{input cell}
repeat Read(fi,ch); until ch<>' ';
st:=ch;
while NOT (EOLN(fi)) do
begin
Read(fi,ch);
if ch=' ' then break;
st:=st+ch;
end;
{find statement in list}
for i3:=0 to n-1 do if Stat[i3]=st then
begin
Table[i1,i2]:=i3;
break;
end;
end;
Readln(fi);
end;
//CREATE MINIMAL DFA --------------------------------------------------------
{check equivalence}
SetLength(Equiv,n,n);
flag:=true;
while flag do
begin
flag:=false;
for i1:=0 to n-2 do for i2:=i1+1 to n-1 do if Equiv[i1,i2]=0 then
begin
if (Stat[i1][1]='*') XOR (Stat[i2][1]='*') then
begin
Equiv[i1,i2]:=1;
Equiv[i2,i1]:=1;
flag:=true;
end
else
begin
flag2:=false;
for i3:=0 to m-1 do if (Equiv[Table[i1,i3],Table[i2,i3]]=1){ OR ((Stat[Table[i1,i3]][1]='*') XOR (Stat[Table[i2,i3]][1]='*')) }then
begin
flag2:=true;
break;
end;
if flag2 then
begin
Equiv[i1,i2]:=1;
Equiv[i2,i1]:=1;
flag:=true;
end;
end;
end;
end;
{components}
SetLength(Comps,n);
NStatCnt:=0;
for i1:=0 to n-1 do if Comps[i1]=0 then
begin
inc(NStatCnt);
Comp_DFS(i1,NStatCnt);
end;
{new stat}
SetLength(NewStat,NStatCnt);
for i1:=1 to NStatCnt do for i2:=0 to n-1 do
begin
if Comps[i2]=i1 then
begin
NewStat[i1-1]:=Stat[i2];
for i3:=i2+1 to n-1 do if Comps[i3]=i1 then if Stat[i3][1]<>'*' then NewStat[i1-1]:=NewStat[i1-1]+'+'+Stat[i3]
else NewStat[i1-1]:=NewStat[i1-1]+'+'+copy(Stat[i3],2,length(Stat[i3])-1);
break;
end;
end;
{new table}
SetLength(NewTable,NStatCnt,m);
for i1:=0 to NStatCnt-1 do for i2:=0 to m-1 do
begin
for i3:=0 to n-1 do if Comps[i3]=i1+1 then
begin
NewTable[i1,i2]:=Comps[Table[i3,i2]]-1;
break;
end;
end;
//OUTPUT---------------------------------------------------------------------
{statements}
Writeln(fo,NStatCnt);
for i1:=0 to NStatCnt-1 do Write(fo,NewStat[i1],' ');
Writeln(fo);
//Writeln(fo,nFinal);
{symbols}
Writeln(fo,m);
for i1:=0 to m-1 do Write(fo,Symb[i1],' ');
Writeln(fo);
{table}
for i1:=0 to NStatCnt-1 do
begin
for i2:=0 to m-1 do Write(fo,NewStat[NewTable[i1,i2]],' ');
Writeln(fo);
end;
{others}
while NOT (EOF(fi)) do
begin
Readln(fi,st);
Writeln(fo,st);
end;
{deinit}
CloseFile(fi);
CloseFile(fo);
end.
|
M
Guedda | Модератор: Пользуйтесь кнопкой "КОД!"
Модератор: Называйте темы правильно! Читайте правила!
Всё поправил. |
Это сообщение отредактировал(а) Guedda - 11.9.2007, 11:46 |
[Delphi -> C++ Builder]Минимизация ДКА 
Загрузка ...
