Bài thực hành 3. Khai báo và sử dụng biến

Bài thực hành 3

Khai báo và sử dụng biến
Tiết 13
GV: Bùi Anh Toán Thực hiện: Tháng 10/2013
Ôn lại kiến thức
www.themegallery.com
Câu 1: Hãy cho biết biến được sử dụng để làm gì?
Biến (biến nhớ) . 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
Khai báo và sử dụng biến

Câu 2: Việc khai báo biến gồm những gì ? Nêu cú pháp
của khai báo biến?

Việc khai báo biến gồm:
+ Khai báo tên biến
+ Khai báo kiểu dữ liệu của biến.
*Cú pháp:
Ôn lại kiến thức
www.themegallery.com
Khai báo và sử dụng biến
Câu 3: Hằng là gì ? Nêu cú pháp khai báo hằng?

Hằng là một đại lượng có giá trị không đổi trong suốt
quá trình thực hiện chương trình.
* Cú pháp khai báo hằng:
* Ví dụ:
Const Pi=3.14;
Ôn lại kiến thức
www.themegallery.com

Câu 4: Sử dụng biến trong chương trình như thế nào?

Khai báo và sử dụng biến
- Gán giá trị cho biến.
- Tính toán với giá trị của biến.
- Cú pháp lệnh gán:
:= ;
Ví dụ:
X := (a+b)/2
Y:= 12
Các kiểu dữ liệu trong Pascal
www.themegallery.com
Khai báo và sử dụng biến
Thực hành bài 1:
www.themegallery.com
Khai báo và sử dụng biến
Bài 1. Viết chương trình Pascal có khai báo và sử dụng biến.
Bài toán: Một cửa hàng cung cấp dịch vụ bán hàng 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. Ngoài trị giá hàng hoá, 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 toán trong trường hợp khách hàng chỉ mua một mặt hàng duy nhất.
Tiền thanh toán=Đơn giá * Số lượng+phí dịch vụ
Gợi ý: Công thức cần tính:
Bài 1:
www.themegallery.com
Khai báo và sử dụng biến
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.
Khai báo biến
Khai báo hằng
Lệnh gán
Ghi chú
Nhập đơn giá
Nhập số lượng
Lệnh gán
In kết quả
a) Khởi động Pascal. Gõ chương trình sau và tìm hiểu ý nghĩa của từng câu lệnh trong chương trình:
Thực hành bài 1:
www.themegallery.com
Khai báo và sử dụng biến
b)Lưu chương trình với tên TINHTIEN.PAS. Dịch và chỉnh sửa các lỗi gõ, nếu có.
c)Chạy chương trình với các bộ dữ liệu (đơn 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.
d)Chạy chương trình với bộ dữ liệu (1, 35000). Quan sát kết quả nhận được. Hãy thử đoán lí do tại sao chương trình cho kết quả sai.
BÀI TẬP CỦNG CỐ
www.themegallery.com
? Hãy gõ chương trình sau, liệt kê các lỗi nếu có trong
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:Integer;
b:Real;
Const c=3;
Begin
a:=200;
b:= a/c;
Write(‘Ket qua ‘,b);
Readln;
End.
DẶN DÒ
- Về xem lai bài 1.
- Xem trước bài 2.
www.themegallery.com
GV: Bùi Anh Toán Thực hiện: Tháng 10/2013
Thực hành bài 1:
www.themegallery.com
Khai báo và sử dụng biến