Форум программистов, компьютерный форум, киберфорум
Prolog
Форум программистов и сисадминов Киберфорум > Форум программистов > Другие языки программирования > Prolog
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.78/9: Рейтинг темы: голосов - 9, средняя оценка - 4.78
0 / 0 / 0
Регистрация: 12.10.2014
Сообщений: 9

Синтаксический и семантический анализ арифметических выражений

18.12.2016, 18:52. Показов 1979. Ответов 1
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
Всем привет. Нужно написать программу, которая будет выполнять синтаксический и семантический анализ арифметических выражений. Выражение может иметь произвольный уровень вложенности скобок, использовать арифметические операции *, + , –, /. Был найден следующий код, который увы выдаёт ошибки.
Prolog
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202

% Файл main.cl
class main
    open core, console
predicates
    run : core::runnable.
    classInfo : core::classInfo.
end class main
 
% Файл main.pro
implement main
      open core, console
domains
      tok=var(string);intg(integer);real(real);
                  name(string); char(char);shabl(integer).
      toklist = tok*.
      slist=string*.
class predicates
     run : ().
     scanner:(string, toklist) procedure (i,o).
     maketok:(string, tok) procedure (i,o).
     fronttoken:(string,slist,string).
clauses
     scanner("",[]).
     scanner(Str,[Tok|Rest]):-            
         fronttoken(Str,Sym,Str1),       
         maketok(Sym, Tok),           
         scanner(Str1, Rest).     
     
     maketok(S,name(S)):-isname(S).          
     maketok(S,intg(N)):-str_int(S,N).
     maketok(S,real(N)):-str_real(S,N).      
     maketok(S,char(C)):-str_char(S, C).
 
domains
      op=op(char).
      exp=varE(string);intE(integer);reaE(real);expr(exp,op,exp).
class predicates
     append:(slist,slist,slist). 
     append:(toklist,toklist,toklist).  
     sublist:(toklist,toklist).
     expression:(exp,toklist).
clauses
append([],List,List).
append([X|L1],List2,[X|L3]):-append(L1,List2,L3).
    
sublist(S,L):- append(_,L2,L), append(S,_,L2).
class predicates
opSum:(char,tok).
opMult:(char,tok).
 
oneMult:(exp,tok).
otherMults:(exp,exp,toklist).
oneSum:(exp,toklist).
otherSums:(exp,exp,toklist).
 
clauses
opSum(C,TOK):-TOK=char(C),C='+',!.
opSum(C,TOK):-TOK=char(C),C='-'.
 
opMult(C,TOK):-TOK=char(C),C='*',!.
opMult(C,TOK):-TOK=char(C),C='/'.
    
oneMult(intE(N),TOK):-TOK=intg(N),!.
oneMult(reaE(N),TOK):-TOK=real(N),!.    
oneMult(varE(V),TOK):-TOK=var(V).
 
oneSum(SUM,TOKLIST):- TOKLIST=[TOK1|TOKLIST1],  
    oneMult(M,TOK1),                     
    otherMults(M,SUM,TOKLIST1).
 
otherMults(CHRT,ALL,TOKLIST):- TOKLIST=[TOK1,TOK2|TOKLIST1],
    opMult(C,TOK1),   oneMult(M,TOK2),!,                    
    otherMults(expr(CHRT,op(C),M),ALL,TOKLIST1).
otherMults(CHRT,CHRT,[]).          
 
otherSums(CHRT,ALL,TOKLIST):- TOKLIST=[TOK1|TOKLIST1],
    append(BegList,[char('+')|EndList],TOKLIST1),!, 
    opSum(C,TOK1),  oneSum(M,BegList), 
    otherSums(expr(CHRT,op(C),M),ALL,[char('+')|EndList]).
otherSums(CHRT,ALL,TOKLIST):- TOKLIST=[TOK1|TOKLIST1],
         append(BegList,[char('-')|EndList],TOKLIST1),!, 
    opSum(C,TOK1),  oneSum(M,BegList),
    otherSums(expr(CHRT,op(C),M),ALL,[char('-')|EndList]).  
otherSums(CHRT,ALL,TOKLIST):- TOKLIST=[TOK1|TOKLIST1], 
    BegList=TOKLIST1, opSum(C,TOK1),                    
    oneSum(M,BegList),!, otherSums(expr(CHRT,op(C),M),ALL,[]).  
otherSums(CHRT,CHRT,[]).                 
 
expression(ALL,TOKLIST):-   
    append(BegList,[char('+')|EndList],TOKLIST),!, 
    oneSum(SUM,BegList),                               
    otherSums(SUM,ALL,[char('+')|EndList]).
expression(ALL,TOKLIST):-
    append(BegList,[char('-')|EndList],TOKLIST),!,  
    oneSum(SUM,BegList),                                 
    otherSums(SUM,ALL,[char('-')|EndList]).
expression(ALL,TOKLIST):- BegList=TOKLIST,                                                                          oneSum(SUM,BegList),   otherSums(SUM,ALL,[]).
 
class predicates
reduse:(exp Exp,toklist Res).
operation:(toklist,op,toklist,toklist).
opPlus:(toklist Res1,toklist Res2,toklist Res).
opMinus:(toklist Res1,toklist Res2,toklist Res).
opMlt:(toklist Res1,toklist Res2,toklist Res).
opDiv:(toklist Res1,toklist Res2,toklist Res).
anty_scanner:(toklist,string ResS,string ResS).
 
clauses
reduse(intE(I),[intg(I)]):-!.
reduse(reaE(R),[real(R)]):-!.
reduse(varE(V),[name(V)]):-!.
reduse(Exp,Res):-
    Exp=expr(Exp1,Op,Exp2),
    reduse(Exp1,Res1),  
    reduse(Exp2,Res2),!,
    operation(Res1,Op,Res2,Res).
 
operation(Res1,op('+'),Res2,Res):-
    opPlus(Res1,Res2,Res),!.
operation(Res1,op('-'),Res2,Res):-!,
    opMinus(Res1,Res2,Res),!.
operation(Res1,op('*'),Res2,Res):-!,
    opMlt(Res1,Res2,Res),!.
operation(Res1,op('/'),Res2,Res):-
    opDiv(Res1,Res2,Res),!.
 
opPlus(TKL1,TKL2,TKLRes):-
    TKL1=[intg(I1)], TKL2=[intg(I2)],
     I3=I1+I2, TKLRes=[intg(I3)],!.
opPlus(TKL1,TKL2,TKLRes):-
    TKL1=[real(I1)],    TKL2=[real(I2)],
     I3=val(real,I1+I2), TKLRes=[real(I3)],!.   
opPlus(TKL1,TKL2,TKLRes):-
    TKL1=[intg(I1)], TKL2=[real(I2)],
     I3=val(real,I1+I2), TKLRes=[real(I3)],!.   
opPlus(TKL1,TKL2,TKLRes):-
    TKL1=[real(I1)], TKL2=[intg(I2)],
     I3=val(real,I1+I2), TKLRes=[real(I3)],!.       
 
opMinus(TKL1,TKL2,TKLRes):-
    TKL1=[intg(I1)], TKL2=[intg(I2)],
     I3=I1-I2, TKLRes=[intg(I3)],!.
opMinus(TKL1,TKL2,TKLRes):-
    TKL1=[real(I1)], TKL2=[real(I2)],
     I3=val(real,I1-I2), TKLRes=[real(I3)],!.   
opMinus(TKL1,TKL2,TKLRes):-
    TKL1=[intg(I1)], TKL2=[real(I2)],
     I3=val(real,I1-I2), TKLRes=[real(I3)],!.   
opMinus(TKL1,TKL2,TKLRes):-
    TKL1=[real(I1)], TKL2=[intg(I2)],
     I3=val(real,I1-I2), TKLRes=[real(I3)],!.           
 
opMlt(TKL1,TKL2,TKLRes):-
    TKL1=[intg(I1)], TKL2=[intg(I2)],
     I3=I1*I2,TKLRes=[intg(I3)],!.
opMlt(TKL1,TKL2,TKLRes):-
    TKL1=[real(I1)], TKL2=[real(I2)],
     I3=val(real,I1*I2), TKLRes=[real(I3)],!.   
opMlt(TKL1,TKL2,TKLRes):-
    TKL1=[intg(I1)], TKL2=[real(I2)],
     I3=val(real,I1*I2), TKLRes=[real(I3)],!.   
opMlt(TKL1,TKL2,TKLRes):-
    TKL1=[real(I1)], TKL2=[intg(I2)],
     I3=val(real,I1*I2), TKLRes=[real(I3)],!.           
    
opDiv(TKL1,TKL2,TKLRes):-
    TKL1=[intg(I1)], TKL2=[intg(I2)],
     I3=val(real,I1/I2), TKLRes=[real(I3)],!.
opDiv(TKL1,TKL2,TKLRes):-
    TKL1=[real(I1)], TKL2=[real(I2)],
     I3=val(real,I1/I2), TKLRes=[real(I3)],!.   
opDiv(TKL1,TKL2,TKLRes):-
    TKL1=[intg(I1)], TKL2=[real(I2)],
     I3=val(real,I1/I2), TKLRes=[real(I3)],!.   
opDiv(TKL1,TKL2,TKLRes):-
    TKL1=[real(I1)], TKL2=[intg(I2)],
     I3=val(real,I1/I2), TKLRes=[real(I3)],!.   
 
anty_scanner([],ResS,ResS):-!.
anty_scanner([Tok|Rest],Str1,ResS):-
    maketok(Sym, Tok),        
     fronttoken(Str2, Sym, Str1),!,  
    anty_scanner(Rest,Str2,ResS).
 
run():- write("Введите текст арифметического выражения без скобок:"),nl,
    readln(Text),nl,   
    write("Teкст формулы  ="),nl,
    write(Text),nl,nl,                         
    scanner(Text,T_List),            
    write("Список классифицированных лексем (T_List)  ="),nl,
    write(T_List),nl,nl,                          
    expression(Exp,T_List),  
    write("Дерево синтаксического разбора (Exp) ="),nl,
    write(Exp),nl,nl,          
    reduse(Exp,ResTL),   
    write("Результат преобразования формулы (Res)=",ResTL),nl,  
    write(ResTL),nl,nl,                
         anty_scanner(ResTL,"",ResS), 
    write("значение формулы ResS=",ResS),nl.
end implement main
goal
     mainExe::run(main::run).

Сначала я исправил ошибки связанные с тем что, компилятор не видит эти предикаты str_int, str_real, str_char. Версия у меня Visual Prolog 7.5(данный код я пробовал запустить на на 7.4, 7.3, и 5x версиях, но нигде он не запустился). Далее я нашел что проблема из-за того что ему не хватает библиотеки conversion5x (которой увы нет в моей Personal версии), ну ок, заменил их на другие конструкции вида:
Prolog
1
2
3

     maketok(S,intg(N)):- N = tryToTerm(integer,S).
     maketok(S,real(N)):- N=tryToTerm(real,S).
     maketok(S,char(C)):- C=frontChar(S).
В итоге ошибок стало меньше, но остальные исправить мне так и не удалось. Если есть эксперты помогите с кодом пожалуйста.
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
 18.12.2016, 18:52
Ответы с готовыми решениями:

Синтаксический и семантический анализ выражений представленных в скнф
Синтаксический и семантический анализ выражений представленных в скнф!!!

Синтаксический и семантический анализ выражения
Помогите исправить ошибки в программе. На TurboProloge запускается, а на Visual нет. Добавлено через 30 секунд DOMAINS ...

Упрощение арифметических выражений
Буду очень благодарен, если мне помогут разобраться с этой задачей. В общем нужно упростить арифметическое выражение, критерий простоты -...

1
0 / 0 / 0
Регистрация: 02.03.2018
Сообщений: 5
13.03.2021, 01:14
Prolog
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177

implement main
 open core, console
domains
 tok=var(string);intg(integer);real(real);
 name(string);
 char(char);
 shabl(integer).
 toklist = tok*.
 slist=string*.
class predicates
 scanner:(string, toklist) nondeterm(i,o).
 maketok:(string, tok) nondeterm(i,o).
clauses
 scanner("",[]).
 scanner(Str,[Tok|Rest]):-
 string::fronttoken(Str,Sym,Str1),
 maketok(Sym, Tok),
 scanner(Str1, Rest).
 maketok(S,name(S)):-string::isName(S).
 maketok(S,intg(N)):-N=tryToTerm(integer,S),!.
 maketok(S,real(N)):-N=tryToTerm(real,S),!.
 maketok(S,char(C)):-C=string::frontChar(S).
domains
op=op(char).
exp=varE(string);intE(integer);reaE(real);expr(exp,op,exp).
class predicates
append:(slist,slist,slist)nondeterm.
append:(toklist,toklist,toklist) nondeterm(o,[i|o],i)(o,o,i)(i,o,i).
 member:(string, slist)nondeterm.
 member:(tok, toklist)nondeterm.
 sublist:(toklist,toklist) nondeterm.
 expression:(exp [out],toklist) nondeterm.
 getexpression:(exp [out],toklist) procedure.
 clauses
 append([],List,List).
append([X|L1],List2,[X|L3]):-append(L1,List2,L3).
member(X,[X|_]):-!.
member(X,[_|L]):-member(X,L).
sublist(S,L):- append(_,L2,L), append(S,_,L2).
class predicates
opSum:(char,tok)determ(o,i).
opMult:(char,tok)determ(o,i).
oneMult:(exp,tok)determ(o,i).
otherMults:(exp,exp,toklist)nondeterm(i,o,i).
oneSum:(exp,toklist)nondeterm(o,i).
otherSums:(exp,exp,toklist)nondeterm(i,o,i).
clauses
opSum(C,TOK):-TOK=char(C),C='+',!.
opSum(C,TOK):-TOK=char(C),C='-'.
opMult(C,TOK):-TOK=char(C),C='*',!.
opMult(C,TOK):-TOK=char(C),C='/'.
oneMult(intE(N),TOK):-TOK=intg(N),!.
oneMult(reaE(N),TOK):-TOK=real(N),!.
oneMult(varE(V),TOK):-TOK=var(V).
oneSum(SUM,TOKLIST):- TOKLIST=[TOK1|TOKLIST1],
oneMult(M,TOK1),
otherMults(M,SUM,TOKLIST1).
otherMults(CHRT,ALL,TOKLIST):- TOKLIST=[TOK1,TOK2|TOKLIST1],
opMult(C,TOK1),
oneMult(M,TOK2),!,
otherMults(expr(CHRT,op(C),M),ALL,TOKLIST1).
otherMults(CHRT,CHRT,[]).
otherSums(CHRT,ALL,TOKLIST):- TOKLIST=[TOK1|TOKLIST1],
append(BegList,[char('+')|EndList],TOKLIST1),!,
opSum(C,TOK1),
oneSum(M,BegList),
otherSums(expr(CHRT,op(C),M),ALL,[char('+')|EndList]).
otherSums(CHRT,ALL,TOKLIST):- TOKLIST=[TOK1|TOKLIST1],
 append(BegList,[char('-')|EndList],TOKLIST1),!,
opSum(C,TOK1),
oneSum(M,BegList),
otherSums(expr(CHRT,op(C),M),ALL,[char('-')|EndList]).
otherSums(CHRT,ALL,TOKLIST):- TOKLIST=[TOK1|TOKLIST1],
BegList=TOKLIST1,
opSum(C,TOK1),
oneSum(M,BegList),!, otherSums(expr(CHRT,op(C),M),ALL,[]).
otherSums(CHRT,CHRT,[]).
expression(ALL,TOKLIST):-
append(BegList,[char('+')|EndList],TOKLIST),!,
oneSum(SUM,BegList),
otherSums(SUM,ALL,[char('+')|EndList]).
expression(ALL,TOKLIST):-
append(BegList,[char('-')|EndList],TOKLIST),!,
oneSum(SUM,BegList),
otherSums(SUM,ALL,[char('-')|EndList]).
expression(ALL,TOKLIST):- BegList=TOKLIST,
oneSum(SUM,BegList),
 otherSums(SUM,ALL,[]).
 getexpression(ALL,TOKLIST):-expression(ALL,TOKLIST),! or ALL=varE("1").
 class predicates
reduse:(exp,toklist)determ  (i,o).
getreduse:(exp,toklist)procedure  (i,o).
operation:(toklist,op,toklist,toklist)determ(i,i,i,o).
opPlus:(toklist,toklist,toklist)determ(i,i,o).
opMinus:(toklist ,toklist ,toklist )determ(i,i,o).
opMlt:(toklist ,toklist ,toklist )determ(i,i,o).
opDiv:(toklist ,toklist ,toklist )determ(i,i,o).
clauses
reduse(intE(I),[intg(I)]):-!.
reduse(reaE(R),[real(R)]):-!.
reduse(varE(V),[name(V)]):-!.
reduse(Exp,Res):-Exp=expr(Exp1,Op,Exp2),
reduse(Exp1,Res1),
reduse(Exp2,Res2),!,
operation(Res1,Op,Res2,Res).
operation(Res1,op('+'),Res2,Res):-opPlus(Res1,Res2,Res),!.
operation(Res1,op('-'),Res2,Res):-!,
opMinus(Res1,Res2,Res),!.
operation(Res1,op('*'),Res2,Res):-!,
opMlt(Res1,Res2,Res),!.
operation(Res1,op('/'),Res2,Res):-opDiv(Res1,Res2,Res),!.
getreduse(EXP,TOKLIST):-reduse(EXP,TOKLIST),! or TOKLIST=[].
opPlus(TKL1,TKL2,TKLRes):-
TKL1=[intg(I1)], TKL2=[intg(I2)],
I3=I1+I2, TKLRes=[intg(I3)],!.
opPlus(TKL1,TKL2,TKLRes):-
TKL1=[real(I1)], TKL2=[real(I2)],
I3=I1+I2, TKLRes=[real(I3)],!.
opPlus(TKL1,TKL2,TKLRes):-
TKL1=[intg(I1)], TKL2=[real(I2)],
I3=I1+I2, TKLRes=[real(I3)],!.
opPlus(TKL1,TKL2,TKLRes):-
TKL1=[real(I1)], TKL2=[intg(I2)],
I3=I1+I2, TKLRes=[real(I3)],!.
opMinus(TKL1,TKL2,TKLRes):- TKL1=[intg(I1)], TKL2=[intg(I2)],
I3=I1-I2, TKLRes=[intg(I3)],!.
opMinus(TKL1,TKL2,TKLRes):-
TKL1=[real(I1)], TKL2=[real(I2)],
I3=I1-I2, TKLRes=[real(I3)],!.
opMinus(TKL1,TKL2,TKLRes):-
TKL1=[intg(I1)], TKL2=[real(I2)],
I3=I1-I2, TKLRes=[real(I3)],!.
opMinus(TKL1,TKL2,TKLRes):-
TKL1=[real(I1)], TKL2=[intg(I2)],
I3=I1-I2, TKLRes=[real(I3)],!.
opMlt(TKL1,TKL2,TKLRes):-
TKL1=[intg(I1)], TKL2=[intg(I2)],
I3=I1*I2,TKLRes=[intg(I3)],!.
opMlt(TKL1,TKL2,TKLRes):-
TKL1=[real(I1)], TKL2=[real(I2)],
I3=I1*I2, TKLRes=[real(I3)],!.
opMlt(TKL1,TKL2,TKLRes):-
TKL1=[intg(I1)], TKL2=[real(I2)],
I3=I1*I2, TKLRes=[real(I3)],!.
opMlt(TKL1,TKL2,TKLRes):-
TKL1=[real(I1)], TKL2=[intg(I2)],
I3=I1*I2, TKLRes=[real(I3)],!.
opDiv(TKL1,TKL2,TKLRes):-
TKL1=[intg(I1)], TKL2=[intg(I2)],
I3=I1/I2, TKLRes=[real(I3)],!.
opDiv(TKL1,TKL2,TKLRes):-
TKL1=[real(I1)], TKL2=[real(I2)],
I3=I1/I2, TKLRes=[real(I3)],!.
opDiv(TKL1,TKL2,TKLRes):-
TKL1=[intg(I1)], TKL2=[real(I2)],
I3=I1/I2, TKLRes=[real(I3)],!.
opDiv(TKL1,TKL2,TKLRes):-
TKL1=[real(I1)], TKL2=[intg(I2)],
I3=I1/I2, TKLRes=[real(I3)],!.
 
run():- init(),write("Введіть текст арифметичного виразу без дужок:"),nl,
(Text=readLine(),nl, 
write("Teкст формули ="),nl,
write(Text),nl,nl, 
scanner(Text,T_List), 
write("Список класифікованих лексем (T_List) ="),nl,
write(T_List),nl,nl, 
expression(Exp,T_List), 
write("Дерево синтаксичного розбору (Exp) ="),nl,
write(Exp),nl,nl, 
reduse(Exp,ResTL), 
write("Результат перетворення формули (Res)=",ResTL),nl,
write(ResTL)),!,nl,nl. 
run().
end implement main
goal
 mainExe::run(main::run).
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
 13.03.2021, 01:14
Помогаю со студенческими работами здесь

Создать список арифметических выражений
Определите предикат p(+List1,+List2,?List3), который из двух списков (возможно разной длины) и создает список арифметических выражений ,...

Вычислитель арифметических выражений (DCG)
Здравствуйте! Задача тривиальная : нужно реализовать синтаксический анализатор арифметических выражений и вычисление их значений. Видела...

Разбор и вычисление значений арифметических выражений
Реализовать разбор и вычисление значений арифметических выражений, атомы которого — целые 16-ричные числа. Использовать только операции...

Программа символьного дифференцирования арифметических выражений. Помогите
Доброго времени суток,задача такая: "Написать программу символьного дифференцирования арифметических выражений, представленных в...

Синтаксический и семантический анализ арифметического выражения
Здравствуйте. Имею задание: Написать программу, которая будет выполнять синтаксический и семантический анализ арифметических...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда
anaschu 31.03.2026
В прикрепленном документе раздумья о том, как можно поменять модель в будущем
 10 пpимет, которые всегда сбываются
Maks 31.03.2026
1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .
Перемещение выделенных строк ТЧ из одного документа в другой
Maks 31.03.2026
Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave
DevAlt 30.03.2026
Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .
Автоматическое создание документа при проведении другого документа
Maks 29.03.2026
Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .
Настройка движения справочника по регистру сведений
Maks 29.03.2026
Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника
Maks 27.03.2026
Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .
Сумматор с применением элементов трёх состояний.
Hrethgir 26.03.2026
Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru