bài 19 tin 11

Mời các bạn theo
dõi chương trình sau
Mời các bạn theo
dõi chương trình sau
Program Tinh_tong;
Uses crt;
Var a,b:integer;
tong:integer;
Begin
Clrscr;
Write(‘Nhap vao 2 so a,b:’);
Readln(a,b);
Tomg:=a+b;
Write(‘tong can tinh:’,s:4);
Readln
End.

1. Thư viện Crt
Clrscr
TextColor(color)
TextBackground (color)
GotoXY (x,y)
Khi sử dụng những thủ tục này ở đầu chương trình chính
cần khai báo Uses Crt;

Program VD_1;
Begin
Clrscr;

Writeln(‘Xoa man hình’);
Readln
End.
Chúng
ta cùng
theo dõi
chương
trình.
Clrscr
a.
Program VD_1;
Uses crt;
Begin
Clrscr;
Writeln(‘Xoa man hình’);
Readln
End.

Chạy CT
Xóa toàn bộ màn hình và đưa con
trỏ về vị trí (1,1) trên màn hình. Màn
hình được chia thành 25 dòng và 80 cột.
Cột đầu tiên đánh số 1, dòng đầu tiên
đánh số 1.
Clrscr
a.
Thủ tục Clrscr:

Thủ tục TextColor(color)
b.

Thủ tục TextColor(color): Đặt màu cho
chữ trên màn hình.
Color là hằng hay biến xác định
màu. Color có giá trị từ 0 đến 15.
Trong đó: