! 十進BASIC ：　１ から １０ までの自然数の和

LET n=0
LET i=1<br>
DO WHILE i=<10
   LET n=n+i
   LET i=i+1
LOOP
PRINT i
PRINT n



######################################################################


＜ Maxima ：　１ から １０ までの自然数の和 ＞


n: 0;
i: 1;
while i <= 10 do (
   n: n + i,
   i: i + 1
);
n;




######################################################################



! 十進BASIC ：　２次方程式の実数解を求めるプログラム

PRINT
PRINT "aχ^2 + bχ ＋ ｃ ＝ ０ の 解"
PRINT
INPUT PROMPT "a, b, c と 整数を入力してください。":a,b,c
PRINT
LET d=b^2-4*a*c
IF d>=0 THEN
   PRINT "実数解は ";(-b+SQR(d))/(2*a);"と ";(-b-SQR(d))/(2*a)
ELSE
   PRINT "実数解なし"
END IF
END



######################################################################


＜ Maxima ：　２次方程式の実数解を求めるプログラム ＞


d: b^2-4*a*c;
if d>=0 then (
  x1: (-b+sqrt(d))/(2*a),
  x2: (-b-sqrt(d))/(2*a)
)
else (
  x1: inf,
  x2: minf
);
x1;
x2;