return $
result
}
Har bir talabal o’z ismi bilan .tcl kengaytmali fayl yaratib, unga quyidagilarni yozadi.
#!/usr/bin/env wish -f
source power.tcl
entry .base -width 6 -relief
sunken -textvariable base
label .label1 -text "to the power"
entry .power -width 6 -relief
sunken -textvariable power
label .label2 -text "is"
label .result -textvariable result
pack .base .label1 .power .label2 .result -side left \
-padx 1m -pady 2m
bind .base
{set result [power $base $power]; puts $result}
bind .power {set result [power $base $power]}
tclsh power.tcl
wish Mansur.tcl
wish yordamida faylni ishga tushirib natijani hisobot ko’rinishiga keltiradi
Laboratoriya ishi №20.
Mavzu: Linux server administratsiyalash
Ishdan maqsad: Linux operatsion tizimi yadrosini kompilyatsiya
qilish shartlarini
o’rganish. Yadroni kompilyatsiyaga tayyorlash ishlarini bajarish.
Dostları ilə paylaş: