when green flag clicked
set [Trả lời v] to "Có"
repeat until <(Trả lời) = "Không">
ask "Tên sách muốn mượn:" and wait
set [sachmuon v] to (answer)
if <(sachmuon) = [Tên sách]> then
set [soluong v] to [Số lượng]
if <(soluong) = [0]> then
say "Cuốn sách đã được mượn hết"
else
say (join "Vị trí của cuốn sách: " (Vị trí))
change [soluong] by (-1)
end
end
ask "Tiếp tục (Có/Không)?" and wait
set [Trả lời v] to (answer)
end
Đúng 0
Bình luận (0)