Algoritmos y Programación en Pascal

18.3. Reglas prácticas para hallar el coste de un programa 411
Así, para n > 1,
TFac(n) = 1 + TFac(n − 1)
= 1 + 1 + TFac(n − 2)
= . . .
= n + TFac(0)
= n + 1
y, por lo tanto, el coste es lineal, o sea, TFac(n) ∈ Ω(n).
18.3.2 Ejemplos
Una vez descrito cómo calcular la complejidad en tiempo de los programas
en Pascal, se presentan algunos algoritmos a modo de ejemplo.
Producto de dos números enteros
Supóngase que se pretende calcular el producto de dos números naturales n
y m sin utilizar la operación de multiplicación. Un primer nivel de diseño de un
algoritmo para este problema es:
prod:= 0
repetir n veces
repetir m veces
prod:= prod + 1
Este diseño se implementa directamente en Pascal mediante la siguiente
función:
function Producto(n, m: integer): integer;
{PreC.: n,m ≥ 0}
{Dev. n×m}
var
i,j,prod: integer;
begin
prod:= 0;
for i:= 1 to n do
for j:= 1 to m do
prod:= prod + 1;
Producto:= prod
end; {Producto}