Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Blog
proc example {required {default1 А} {default2 Б} args} {...}
#tclsh 8.6 proc example {first {second ""} args} { if {$second == ""} { puts "Задан только один аргумент, он равен: $first"; return 1; } else { if {$args == ""} { puts "Два аргумента - $first и $second"; return 2; } else { puts "Несколько аргументов - $first, $second и $args"; return "несколько"; } } }
run
|
edit
|
history
|
help
0
Please
log in
to post a comment.
proc example {required {default1 А} {default2 Б} args}
Trail
test
a
Perfect bin mul eo float
Perfect decimal to binary add
fl mul bin
Trying bin mul floating point
trail multiplication
binds
Please log in to post a comment.