Volver.

Suma. Signo.

Resta. Complementario del Signo.

Producto. Diverge.

División. Identidad.

Suma: Inicio

(2, 2, suma)

suma: while X2¹0 do

X1:=X1+1;

X2:=X2-1;

od

Resta: Inicio

(2, 2, resta)

resta: while X2¹0 do

X1:=X1-1;

X2:=X2-1;

od

Producto: Inicio

(2, 4, producto)

producto: while X2¹0 do

X4:=X1;

while X4¹0 do

X3:=X3+1;

X4:=X4-1;

od;

X2:=X2-1

od;

X1:=X3;

División: Inicio

(2, 4, division) Con X1>X2

division: X3:=X1;

X1:=0;

while X3¹0 do

X4:=X2;

while X4¹0 do

X3:=X3-1;

X4:=X4-1;

od;

X1:=X1+1;

od

Signo: (0 si X1=0, 1 si X1>0) Inicio.

(1, 2, signo)

signo: while X1¹0 do

X2:=X2+1;

X1:=0

od;

X1:=X2;

Complementario del Signo: (0 si X1>0, 1 si X1=0) Inicio.

(1, 2, -signo)

-signo: X2:=X1+1;

while X1¹0 do

X2:=0;

X1:=0

od;

X1:=X2;

Diverge: Inicio.

(1, 1, diverge)

diverge: X1:=X1+1;

while X1¹0 do

X1:=X1

od;

Identidad: Inicio.

(1, 1, identidad)

identidad: X1:=X1;