Example
eastbound(A) :-
has_car(A,B).
[5/5]
eastbound(A) :-
has_car(A,B), short(B).
[5/5]
eastbound(A) :-
has_car(A,B), open_car(B).
[5/5]
eastbound(A) :-
has_car(A,B), shape(B,rectangle).
[5/5]
[theory]
[Rule 1] [Pos cover = 5 Neg cover = 0]
eastbound(A) :-
has_car(A,B), short(B), closed(B).
[pos-neg] [5]
output:
Actual
+ -
+ 5 0 5
Pred
- 0 5 5
5 5 10
Accuracy = 100%
2. ABAP (Advanced Business Application Programming) - is a high-level programming language created by the German Software company SAP. It is currently positioned, alongside the more recently introduced JAVA.
Example
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_ebeln-low.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = s_ebeln-low
IMPORTING
output = s_ebeln-low.
perform form_search_help.
IF sy-subrc <> 0.
CASE sy-subrc.
WHEN 2.
LEAVE TO SCREEN 1000.
ENDCASE.
ELSE.
LOOP AT it_ebeln.
IF sy-tabix = p_ebeln.
s_ebeln-low = it_ebeln.
EXIT.
ENDIF.
ENDLOOP.
ENDIF.
3. Ada - is a structured, statically typed, imperative, wide-spectrum, and object-oriented high-level computer programming language, extended from Pascal and other languages.
Example
with Ada.Text_IO, Ada.Integer_Text_IO;
use Ada;
procedure Simple is
type Integer_Pointer is access Integer;
A,B: Integer_Pointer := null;
C: Integer;
begin
A := new Integer;
A := new Integer'(17);
B := new Integer'(32);
Integer_Text_IO.Get (Item => A.all);
Integer_Text_IO.Put (Item => B.all);
C := A.all + B.all;
-- copy the value
A.all := B.all;
-- make an alias
A := B;
A.all := 49;
Integer_Text_IO.Put (Item => B.all);
end Simple;4. ABC - is an imperative general-purpose programming language and programming environment developed at CWI,Netherlands by Leo Geurts, Lamber Meertens, and Steven Pemberton.
Example:
HOW TO ADVENTURE:
START
GET command
WHILE command <> "quit":
OBEY command
GET command
FINISH5. ALgae - is an interpreted programming language for numerical analysis, a branch of mathematics. Its interactive interpreter is available under GPL. The language and its implementation were designed by Scott Hunziker and Mike Brennan starting in 1994.
Example
# power: raise `x' to the `n'-th power
power = function (x; n)
{
local (y);
y = x;
while (n > 1)
{
y = y * x;
n -= 1;
}
return y;
};
power (2; 8)?
power ([ 1, 2; 2, 3 ]; 4)?
comparison of ABC and ABAP
ABC is structured intend to be use instead BASIC, Pascal and CWK but ABAP introduced by JAVA somewhat similar to COBOL
No comments:
Post a Comment