Różnice między wybraną wersją a wersją aktualną.
| Both sides previous revision Poprzednia wersja Nowa wersja | Poprzednia wersja | ||
|
pl:miw:miw08_ruleruntimeg:car [2008/03/27 16:00] miw |
pl:miw:miw08_ruleruntimeg:car [2019/06/27 15:50] (aktualna) |
||
|---|---|---|---|
| Linia 7: | Linia 7: | ||
| % Copyright 1997 Prentice-Hall, Inc. | % Copyright 1997 Prentice-Hall, Inc. | ||
| % For educational use only | % For educational use only | ||
| - | |||
| - | % File CAR.PL | ||
| - | % Simple automotive expert system | ||
| - | |||
| % Menu that obtains 'yes' or 'no' answer | % Menu that obtains 'yes' or 'no' answer | ||
| Linia 16: | Linia 12: | ||
| jpl_call('javax.swing.JOptionPane','showConfirmDialog',[(@null),T,'Question',0],X), | jpl_call('javax.swing.JOptionPane','showConfirmDialog',[(@null),T,'Question',0],X), | ||
| change(X,Result). | change(X,Result). | ||
| + | |||
| info(X):- | info(X):- | ||
| jpl_call('javax.swing.JOptionPane','showMessageDialog',[(@null),X],F). | jpl_call('javax.swing.JOptionPane','showMessageDialog',[(@null),X],F). | ||
| Linia 31: | Linia 28: | ||
| % Copyright 1997 Prentice-Hall, Inc. | % Copyright 1997 Prentice-Hall, Inc. | ||
| % For educational use only | % For educational use only | ||
| - | |||
| - | % File CAR.PL | ||
| - | % Simple automotive expert system | ||
| - | |||
| % | % | ||
| % Main control procedures | % Main control procedures | ||
| Linia 80: | Linia 73: | ||
| % (information supplied by the user during the consultation) | % (information supplied by the user during the consultation) | ||
| % | % | ||
| - | + | % (Clauses get added as user answers questions.) | |
| - | + | ||
| - | + | ||
| - | % (Clauses get added as user answers questions.) | + | |
| - | + | ||
| % | % | ||
| % Procedure to get rid of the stored answers | % Procedure to get rid of the stored answers | ||
