Похожие работы на «Построение функции предшествования по заданной КС-грамматике »

Построение функции предшествования по заданной КС-грамматике
Программирование и комп-ры, Построение функции предшествования по заданной КС-грамматике , Работа Курсовая ... U) |L(U) |R| |L(U) |R(U) | ... | |U| | ... | |J |( p |)| |( p |) p | | | |p| | | | |T |J T |J| |J T ( p |J ) p | |B |T B |T| |T B J ( p |T J ) p | |S ...
... inc(i); End Else Begin Terminal(term); tmp.Name:=term; If (SearchInBlock(y,LTN,tmp)=0) and (term>'') Then Complete(LTN,tmp);{добавляем левый} If (i-1) ...


Администрирование локальных сетей
Программирование и комп-ры, Администрирование локальных сетей, Лекция ... условный оператор, и указанная задача решается с его использованием следующим образом: if test -f $1 then sort $1 else echo "file $1 doesn"t exist" fi ...
... num\D просмотреть переменую в long типе как десятеричную p . показать преведущее значение p *(&.+42) показать значение на 42 байта дальше от преведуще ...


Семантический анализ структуры EXE файла и дисассемблер (с примерами и исходниками), вирусология [нестрогое соответствие]
Программирование и комп-ры, Семантический анализ структуры EXE файла и дисассемблер (с примерами и исходниками), вирусология , Работа Курсовая ... Ord(' '); OldNumber := Number; Rep := ' '; for i:=9 downto 0 do begin Digit := 0; Number := OldNumber; stop := false; repeat (* subtract Divisor from ...
... NOT TestPrefix then begin with ParsedLine do begin if (Prefix = REPZ) OR (Prefix = REPNZ) then begin if (Opcode[1] IN ['M', 'L', 'S']) AND (Ord(OpCode ...


Исследование и моделирование с помощью компьютера электрических полей [нестрогое соответствие]
Физика, Исследование и моделирование с помощью компьютера электрических полей, Реферат ... I:=0 to 63 do For P:=0 to 47 do RefreshSquare(I,P); If Name='' then Exit; Stop; Redactor; If Name[Length(Name)-3]<>'.' then Name:=Name+'.mez'; For I: ...
... I:=0 to 63 do For P:=0 to 47 do RefreshSquare(I,P); If Name='' then Exit; Stop; Redactor; If Name[Length(Name)-3]<>'.' then Name:=Name+'.mez'; For I: ...


Из опыта создания универсальных тестовых редакторов [нестрогое соответствие]
Программирование и комп-ры, Из опыта создания универсальных тестовых редакторов , Рефераты ... Writeln('5') Writeln(b1,"5"); End; else If z>=70 Then Begin Writeln('4') Writeln(b1,"4"); End; else If z>=40 Then Begin Writeln('3') Writeln(b1,"3" ...
... TextColor(green); Write('Печать'); End; 60:Begin TextColor(green); Write('Выход'); End; End; End; Procedure panel.right; {процедура сдвига окна выбора ...


Помехоустойчивое кодирование, распознавание символов [нестрогое соответствие]
Разное, Помехоустойчивое кодирование, распознавание символов, Курсовая ... 1 to m-1 do {внешний цикл} begin tmp := p[i3]; {локальный максимум} for j3:=i3 to m do if p[j3] >= tmp then begin tmp := p[j3]; {максимум на i шаге} s ...
... do {пока можно делить...} begin inc(j); {...увеличиваем нижнюю границу} if (z[j] <> z[j - 1]) or (j > m - 1) then fl := false end; if((j - i) > 1) and ...


Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта (самолет, авто, поезд, водн.) (и ... [нестрогое соответствие]
Программирование и комп-ры, Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта ... ... Way[K].cost[I]) else Q^.Way[K].cost[I]:=0; If (J mod 4)=0 then begin If (J<>P^.TotalStation) then begin New(Q^.Next); Q:=Q^.next end else Q^.next:=nil ...
... c>=0) and (c<=9) then begin S:=c; inc(mode) end else if (c<=9) and (c>=0) then S:=S*10+c else if (mode mod 2)=1 then begin Add(mode,S,a); Inc(mode) ...


Программная реализация модального управления для линейных стационарных систем [нестрогое соответствие]
Радиоэлектроника, Программная реализация модального управления для линейных стационарных систем, Курсовая ... 1]); cvRoots.Data[j].Im := StrToFloat(StringGrid_Roots.Cells[j, 2]); end; for j := 1 to Order do begin if Odd (j) then K := -1 else K := +1; mKp[Order ...
... NewRow := RefRow; repeat Inc(NewRow); if ABS(Cells[RefRow, NewRow]) > NearlyZero then begin SwitchRows(NewRow, RefRow); DummyMatrix.SwitchRows(NewRow, ...


Поиск в ширину на графах [нестрогое соответствие]
Программирование и комп-ры, Поиск в ширину на графах, Курсовая ... m[u]<>nil do begin if m[u]^.inf=ver[v] then begin rebro:=true; break; end; m[u]:=m[u]^.next; end; end; {если связь все таки есть и u-я вершина еще не ...
... 1]:=el; m[j+1]:=em; end; end; {=} begin while menu<>'4' do begin textmode(1); textbackground(blue); clrscr; textcolor(red); gotoxy(16,3); writeln('Г Р


Операции многократной точности (операции с длинными числами) [нестрогое соответствие]
Программирование и комп-ры, Операции многократной точности (операции с длинными числами) , Работа Курсовая ... b[i]); k:=k+ost; ost:=0; if k>9 then begin ost:=k div 10; k:=k mod 10; end; c[j]:=inttostr(k)[1]; j:=j-1; end; if ost>0 then begin tmp2:=inttostr(ost) ...
... la-lb+i]:=inttostr(vv)[1]; end; if snos=1 then begin tmp:=''; for i:=1 to lb do tmp:=tmp+'0'; tmp:='1'+tmp; c:=minus(c,tmp); end; while ((c[1]='0')and ...