Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (641.68 KB, 11 trang )
<span class='text_page_counter'>(1)</span><div class='page_container' data-page=1>
<b>Tiết 17</b>
w
.t
h
e
m
e
g
a
lle
ry
.c
o
m
<i><b>Câu 1: Hãy cho biết biến được sử dụng để làm gì? </b></i>
Dùng để lưu trữ dữ liệu.
(Dữ liệu do biến lưu trữ sẽ thay đổi trong chương trình)
<i><b>Câu 2: Việc khai báo biến gồm những gì ? Nêu cú pháp</b></i>
của khai báo biến?
Việc khai báo biến gồm:
+ Khai báo <b>tên biến</b>
+ Khai báo <b>kiểu dữ liệu</b> của biến.
w
w
w
.t
h
e
m
e
g
a
lle
ry
.c
o
m
<i><b>Câu 3: Hằng là gì ? Nêu cú pháp khai báo hằng?</b></i>
Hằng là một đại lượng có <i><b>giá trị khơng đổi</b></i> trong suốt
quá trình thực hiện chương trình.
* Cú pháp khai báo hằng:
<b>Const</b> <Tên hằng> = <Giá trị của hằng>;
* Ví dụ:
w
.t
h
e
m
e
g
a
lle
ry
.c
o
m
<i><b>Câu 4: Sử dụng biến trong chương trình như thế nào?</b></i>
- Gán giá trị cho biến.
- Tính tốn với giá trị của biến.
<b><Tên biến> := <Biểu thức và giá trị cần gán>;</b>
Tên kiểu
dữ liệu Phạm vi giá trị
Byte Các số nguyên từ 0 đến 255.
Integer Số nguyên trong khoảng -32768́ đến 32767
Real Số thực có giá trị tuyệt đối trong khoảng
1.5x10-45 đến 3.4x1038́ và số 0
Char Một kí tự trong bảng chữ cái
w
w
w
.th
e
m
e
g
al
le
ry
.c
o
m
<i><b>Thực hành bài 1:</b></i>
w
.t
h
e
m
e
g
a
lle
ry
.c
o
m
<i><b>Bài 1. Viết chương trình Pascal có khai báo và </b></i>
<b>sử dụng biến.</b>
<i><b>Bài tốn: Một cửa hàng cung cấp dịch vụ bán hàng </b></i>
thanh toán tại nhà. Khách hàng chỉ cần đăng kí số
lượng mặt hàng cần mua, nhân viên cửa hàng sẽ
trả hàng và nhận tiền thanh toán tại nhà khách
hàng. Ngồi trị giá hàng hố, khách hàng cịn phải
trả thêm phí dịch vụ. Hãy viết chương trình Pascal
để tính tiền thanh tốn trong trường hợp khách
hàng chỉ mua một mặt hàng duy nhất.
<i><b>Bài 1:</b></i>
w
w
w
.t
h
e
m
e
g
a
lle
ry
.c
o
m
program Tinhtien;
uses crt;
var soluong:integer;
dongia, thanhtien:real;
thongbao:string;
Const phi=10000;
begin
clrscr;
thongbao:='Tong so tien phai thanh toan:';
{Nhap do gia va so luong hang}
Write('Don gia:'); readln(dongia);
Write('So luong:'); readln(soluong);
thanhtien:=soluong*dongia+phi;
(*in ra so tien phai tra*)
writeln(thongbao,thanhtien:10:2);
readln
end.
<b>Khai báo biến</b>
<b>Khai báo hằng</b>
<b>Lệnh gán</b>
<b>Ghi chú</b>
<b>Nhập đơn giá</b>
<b>Nhập số lượng</b>
<b>Lệnh gán</b>
<b>In kết quả</b>
<b>a) Khởi động Pascal. Gõ chương trình sau và tìm hiểu ý </b>
<i><b>Thực hành bài 1:</b></i>
w
.t
h
e
m
e
g
a
lle
ry
.c
o
m
<b>b)Lưu chương trình với tên TINHTIEN.PAS. </b>
Dịch và chỉnh sửa các lỗi gõ, nếu có.
<b>c)Chạy chương trình với các bộ dữ liệu (đơn </b>
giá và số lượng) như sau (1000, 20), (3500,
200), (18500, 123). Kiểm tra tính đúng của
các kết quả in ra.
<b>d)Chạy chương trình với bộ dữ liệu (1, </b>
<i><b>? Hãy gõ chương trình sau, liệt kê các lỗi nếu có trong </b></i>
chương trình dưới đây và sửa lại cho đúng.
Program vd;
Uses crt;
Var a:=Integer;
b: real;
Const c:=3;
Begin
a:=200
b:= a/c;
Write(‘ Ket qua ‘,b);
Readln;
End.
Program vd;
Uses crt;
Var a<b>:</b>Integer;
b:Real;
Const c<b>=</b>3;
Begin
a:=200<b>;</b>
b:= a/c;
Write(‘Ket qua ‘,b);
Readln;
w
.t
h
e
m
e
g
a
lle
ry
.c
o
w
w
w
.t
h
e
m
e
g
a
lle
ry
.c
o