1
2
3
4
5
6
7
8
9
#PROCEDURE to add two nos
puts "enter first no"
set num1 [gets stdin]
puts "enter second no"
set num2 [gets stdin]
add $num1 $num2
puts "Result is $result"
proc add {num1 num2}{
set result [expr $num1 + num2]
 ...

1
2
3
4
5
6
7
8
9
#PROCEDURE to add two nos
puts "enter first no"
set num1 [gets stdin]
puts "enter second no"
set num2 [gets stdin]
set result add $num1 $num2
puts "Result is $result"
proc add {num1 num2}{
set result [expr $num1 + num2]
 ...

1
2
3
4
5
6
7
puts "enter a number to find factorial"
set num [gets stdin]
set j $num
for {set i 1} {$i < $j} {incr i} {
set num [expr $num*$i]
}
puts "Factorial is $num"

1
2
3
4
5
6
puts "enter a number to find factorial"
set num [gets stdin]
for {set i 1} {$i < $num} {incr i} {
set num [expr $num*$i]
puts "Factorial is $num"
}

1
2
3
4
5
6
puts "enter a number to find factorial"
set num [gets stdin]
for {set i 1} {$i < $num} {incr i} {
set num [expr $num*$i]
}
puts "Factorial is $num"

1
2
3
4
5
6
7
puts "enter a number to find factorial"
set num [gets stdin]
for {set i 1}{$i < $num} {incr i} {
set num [expr $num*$i]
}
puts "Factorial is $num"
  

1
2
3
4
5
6
puts "enter a number to find factorial"
set num [gets stdin]
for {set i 1}{$i < $num} {incr i} {
set num [expr $num*i]
}
puts "Factorial is $num"

1
2
3
4
5
6
puts "enter a number to find factorial"
set num [gets stdin]
for {set i 1}{$i < $num} {incr i} {
set num [exor $num*i]
}
puts "Factorial is $num"

1
2
3
puts "enter a number"
set num [gets stdin]
puts "you entered $num"

1
2
set a 123
$a

1
2
set a 123
$a

1
puts "Hello, World!"

1
2 in {2 3 4}

1
2
3
4
set x 6
set y 8
 
puts stdout $x + $y {expr $x+$y}

1
2
3
4
set x 6
set y 8
 
puts stdout $x + $y {expr $x+$y}

1
2
3
4
set x 6
set y 8
 
puts stdout $x + $y {expr $x+$y}

1
2
3
4
set x 6
set y 8
 
puts stdout $x + $y {expr $x+$y}

1
2
3
# This is a comment
button .b -text "Hello World" -command exit
pack .b

1
2
3
4
5
6
7
8
# Decimal to hex using format
set inhex [format %x $initial]
 
# Hex to decimal using expr
set back_in_decimal [expr 0x$inhex]
 
# checking the results
puts "$initial ... $inhex ... $back_in_decimal"
 ...

1
2
3
4
5
6
7
set test {}
 
if {[string is false $test]} {
    puts "false"
} else {
    puts "true"
}

1
2
3
4
5
6
7
set test {}
 
if {[string if false $test]} {
    puts "false"
} else {
    puts "true"
}

1
2
3
4
5
6
7
set test {}
 
if {string $test} {
    puts "True"
} else {
    puts "False"
}

1
2
3
4
5
6
7
set test {}
 
if {$test} {
    puts "True"
} else {
    puts "False"
}

1
2
3
4
5
6
7
set test {}
 
if {test} {
    puts "True"
} else {
    puts "False"
}

1
2
3
4
5
if {''} {
    puts "True"
} else {
    puts "False"
}

1
2
3
4
5
6
7
8
9
/* REXX */  
                                                                  
"EXECIO * DISKR ORDERDAT (STEM orderData."                         
                                                                   
if 0 <> RC then                                                    
  do                                                               
    say 'ERROR: Unable to read in the ORDERDAT file'               
    exit 8                                                         
  end                                                              
 ...

1
2
3
4
5
6
7
8
9
                                                                 
"EXECIO * DISKR ORDERDAT (STEM orderData."                         
                                                                   
if 0 <> RC then                                                    
  do                                                               
    say 'ERROR: Unable to read in the ORDERDAT file'               
    exit 8                                                         
  end                                                              
                               
 ...

1
2
3
4
5
6
7
8
9
/* REXX */  
                                                                  
"EXECIO * DISKR ORDERDAT (STEM orderData."                         
                                                                   
if 0 <> RC then                                                    
  do                                                               
    say 'ERROR: Unable to read in the ORDERDAT file'               
    exit 8                                                         
  end                                                              
 ...

1
 

1
2
set liczba [gets stdin]
while { $liczba != 42 } { puts $liczba; set liczba [gets stdin] }