Script TCL para encontrar la suma de n números naturales usando declaraciones en bucle

En este artículo, discutiremos la descripción general del script TCL y cubriremos el script TCL para encontrar la suma de n números naturales usando declaraciones de bucle con la ayuda de un ejemplo. Discutámoslo uno por uno.

Requisito previo:
puede leer este artículo para comprender algunos conceptos básicos a través de este enlace. https://www.geeksforgeeks.org/basics-of-ns2-and-otcltcl-script/ .

Descripción general:
comprenderemos la sintaxis del bucle while y del bucle for en el lenguaje de comandos de herramientas con un ejemplo sencillo. En este ejemplo, primero usaremos el ciclo while para encontrar la suma de los primeros n números naturales, y luego veremos cómo usar el ciclo for para lograr lo mismo. También compararemos la sintaxis con un lenguaje familiar para entenderlo mejor. 

Implementación de ciclo while:
Discutiremos los pasos de implementación de la siguiente manera.

Paso 1:
el primer paso es leer un número del usuario después de solicitarlo. Para leer el número usamos gets, y usamos puts para dar un aviso.

puts "Enter a number"
gets stdin b

Paso 2:
Nuestro siguiente paso es inicializar la suma a 0 y la variable de iteración, i a 0. Después de esto, podemos tener la implementación del ciclo while del código.

set sum 0
set i 0
while {$i<=$b} {
 set sum [expr $sum+$i]
 incr i
}

Nota: 
la sintaxis del ciclo while debe ser exactamente como se muestra arriba. Si ignora los espacios o escribe la llave de apertura en una nueva línea, el resultado será un error.

Paso 3:
la implementación del ciclo while especificado anteriormente le gustaría lo siguiente en la programación C de la siguiente manera. 

sum=0;
i=0;
while(i<=b)
{
sum=sum+i;
i++;  
}

Paso 4:
finalmente, el código completo y la salida son los siguientes.
Código –

puts "Enter a number"
gets stdin b
set sum 0
set i 0
while {$i<=$b} {
 set sum [expr $sum+$i]
 incr i
}
puts "The sum of first $b natural numbers is $sum"

Producción :

Implementación de bucle for:
Discutiremos los pasos de implementación de la siguiente manera.

Paso 1:
Las primeras 2 líneas de código son las mismas que en el ciclo while. Entonces, echemos un vistazo a la parte de implementación del bucle for.

set sum 0
for {set i 1} {$i<=$b} {incr i} {
set sum [expr $sum+$i]
}

Nota: 
la sintaxis del bucle for debe ser exactamente como se muestra arriba. Si ignora los espacios o escribe la llave de apertura en una nueva línea, el resultado será un error.

Paso 2:
la implementación del bucle for especificado anteriormente le gustaría lo siguiente en la programación C de la siguiente manera.

sum=0;
for(i=1;i<=n;i++)
{
sum=sum+i;
}

Paso 3:
finalmente, veamos el código completo y su salida de la siguiente manera.
Código –

puts "Enter a number"
gets stdin b
set sum 0
for {set i 1} {$i<=$b} {incr i} {
set sum [expr $sum+$i]
}
puts "The sum of first $b natural numbers is $sum"

Producción :