3.4. Nhập và xuất dữ liệu

a. Nhập dữ liệu

Cú pháp:

@ x,y Say <Thông báo> get <Biến> [Default <Bthức>] [Valid <Điều kiện>] [Error <Thông báo lỗi>]

Read

Trong đó: X là toạ độ dòng, Y là toạ độ cột, <Biến> là biến nhớ,

Valid <Điều kiện> dùng để kiểm tra giá trị nhập vào cho <biến>,

nếu không thoả mãn sẽ thông báo lỗi sau Error.

b. Xuất dữ liệu

Cú pháp: @ x,y Say <Bthức>

b. Dạng đầy đủ:

Cú pháp:

IF <Bthức L>

<các lệnh 1>

ELSE

<các lệnh 2>

ENDIF

Ví dụ: Dựa vào bảng nhanvien, hãy nhập vào một họ tên nhân viên, tìm xem có đúng là nhân viên của công ty hay không, nếu đúng thì thông báo năm sinh và năm làm việc, ngược lại thì thông báo là không phải nhân viên của công ty.

set talk off

clearclose all

use NHANVIEN

@10,10 say 'nhap ho ten nhan vien:' get bhoten defa space(30)

read

locate for HOTEN =bhoten

if found()

? ' ngay sinh là:', ngaysinh'

?'nam lam viec:', namlv

else

?'khong phai la nhan vien cua cong ty'

endif

set talk on

return

c. Lựa chọn một trong nhiều trường hợp

Cú pháp

DO CASE

CASE <Bthức L1>

<các lệnh 1>

CASE <Bthức L2>

<các lệnh 2>

......................

CASE <Bthức Ln>

<các lệnh n>

[OTHERWISE

<Các lệnh n+1>]

ENDCASE

Ví dụ: Viết chương trình nhập vào một năm (có 4 chữ số), sau đó nhập thêm một tháng, cho biết tháng này có bao nhiêu ngày.

set takl off

clear

@10,10 say 'nhap vao mot nam' get bnam defa 0

@11,10 say 'nhap vao mot thang' get bthang defa 0

read

do case

case bthang=4 or bthang = 6 or bthang = 9 or bthang=11

songay=30

case bthang=12

if (mod(bnam, 4)=0 and (mod(bnam, 100)<>0)

songay=29

else

songay=28

endif

otherwise

songay=31

endcase

? 'thang', bthang, 'nam', bnam, 'co', so ngay, 'ngay'

set talk on

return

3.6. Cấu trúc lặp

a. Cấu trúc DO WHILE

Cú pháp:

DO WHILE <Bthức L>

<các lệnh>

[LOOP]

[EXIT]

ENDDO

Ví dụ: Cho biết dang sáchhọ tên của các nhân viên trong công ty.

set takl off

clear

close all

use NHANVIEN

@5,5 say 'danh sach ho ten hoc vien la:'

do while !eof()

?HOTEN

skip

enddo

set talk on

return