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

Chia sẻ bởi Trần Thị Hồng Nhung | Ngày 24/10/2018 | 33

Chia sẻ tài liệu: Bài thực hành 3. Khai báo và sử dụng biến thuộc Tin học 8

Nội dung tài liệu:

Chào mừng quý thầy cô
cùng các em học sinh!
1
BÀI THỰC HÀNH 3
KHAI BÁO VÀ SỬ DỤNG BIẾN
2
Tiết 17
3
CHIẾC MŨ KỲ DIỆU
4
Cú pháp khai báo biến trong Pascal là gì?
A) Var ten: integer;
B) Var bien: String;
C) Var : ;
D) Var = ;
5
Khai báo hằng nào trong các khai báo sau là đúng?
A) Const dt = real;
B) Const phi = 1000;
C) Var diem = 10;
D) Cont truong = ‘LHP’;
6
Cú pháp “lệnh gán” để gán giá trị trong Pascal là gì?
A) x:= 100;
B) := tên biến;
C) := ;
D) := ;
7
Khai báo biến nào trong các khai báo sau là đúng?
A) Var dt : real;
B) Var tb = real;
C) Var diem : interger;
D) Var R= 512;
8
Lệnh nhập giá trị cho biến X trong Pascal là gì?
A) Write(X);
B) Writeln(‘X= ‘,X);
C) Nhap(X);
D) Readln(X);
9
Cú pháp khai báo hằng trong Pascal là gì?
A) Var = ;
B) Const = ;
C) Const : ;
D) Const pi= 3.14;
10
Cách viết chú thích trong Pascal
Var dt: real;
S: real;

hcn: real;
Begin
...
End.
11
{dt la dien tich }
(* S la dien tich hinh vuong *)
Kiểu dữ liệu thường dùng trong Pascal
+ Dịch chương trình:
+ Dịch chương trình:
Alt + F9
Ctrl + F9
+ Thoát khỏi chương trình:
Alt + X
Bài tập thực hành
13
* Bài 1 (trang 35): 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í
Gợi ý: Công thức cần tính:
Bài tập thực hành
14
* Bài 1 (trang 35): Viết chương trình Pascal có khai báo và sử dụng biến.
Bài toán: (SGK)
a) Khởi động Pascal. Gõ chương trình và tìm hiểu ý nghĩa của từng câu lệnh trong chương trình sau:
Program Tinh_Tien;
Uses Crt;
Var soluong: integer;
dongia, thanhtien: real;
thongbao: String;
Const phi= 10000;
Begin
clrscr;
thongbao:= ‘Tong so tien phai thanh toan: ’;
{nhap don 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 soluong kiểu số nguyên.
Khai báo hằng “phi” có giá trị là 10,000.
Xóa màn hình.
Gán xâu dữ liệu cho biến thongbao.
15
Program Tinh_Tien;
Uses Crt;
Var soluong: integer;
dongia, thanhtien: real;
thongbao: String;
Const phi= 10000;
Begin
clrscr;
thongbao:= ‘Tong so tien phai thanh toan: ’;
{nhap don 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.
In ra màn hình “don gia= ”.
Nhập giá trị cho biến dongia.
In số tiền phải thanh toán ra màn hình.
Thực hiện gán biểu thức cho biến thanhtien.
16
Bài tập thực hành
17
* Bài 1 (trang 35): Viết chương trình Pascal có khai báo và sử dụng biến.
Bài toán: (SGK)
b) Lưu chương trình với tên tinhtien_.pas Dịch và sửa lỗi chương trình (nếu có).
Bài tập thực hành
18
* Bài 1 (trang 35): Viết chương trình Pascal có khai báo và sử dụng biến.
Bài toán: (SGK)
c) Hãy chạy chương trình lần lượt với các bộ dữ liệu (đơn giá và số lượng) như sau:
(1000, 20); (3500, 200) và (18500, 123).
Quan sát kết quả của từng bộ dữ liệu, nêu nhận xét và cách khắc phục lỗi (nếu có).
Bài tập thực hành
19
* Bài 1 (trang 35): Viết chương trình Pascal có khai báo và sử dụng biến.
Bài toán: (SGK)
d) Hãy chạy chương trình lần lượt với các bộ dữ liệu (đơn giá và số lượng) như sau: (1, 35000);
Quan sát kết quả, nêu nhận xét và cách khắc phục lỗi (nếu có).
Kiểu dữ liệu thường dùng trong Pascal
Củng cố
21
Program Vidu;
Var a, b:= integer;
Const c:=300;
Begin
b:= 7
a:= c/b;
Write(‘ Ket qua ‘,a);
Readln
End.
? Hãy gõ chương trình sau, liệt kê các lỗi (nếu có) trong chương trình và sửa lại cho đúng.
Củng cố
22
Program Vidu;
Var a, b:= integer;
Const c:=300;
Begin
b:= 7
a:= c/b;
Write(‘ Ket qua ‘,a);
Readln
End.
Program Vidu;
Var b: integer;
a: real;
Const c=300;
Begin
b:= 7;
a:= c/b;
Write(‘ Ket qua ‘,a);
Readln
End.
Chương trình đã sửa lại
Bài học kết thúc
23
Cảm ơn quý thầy cô
cùng các em đã theo dõi!
Bài tập
Bài 1. Viết chương trình nhập vào ba số nguyên a, b và c từ bàn phím. Tính và in ra màn hình:
a) X= a + b + c.
b) Y= (a + b)2 / c.
c) Chạy lại chương trình và nhập giá trị cho a là 10.5, quan sát kết quả và nêu nhận xét.
24

Var a, b, c, X: integer;
Begin
write(‘a= ‘); readln(a);
write(‘b= ‘); readln(b);
write(‘c= ‘); readln(c);
X:= a + b + c;
Writeln(‘X = ‘,X);
Readln
End.
25
Var a, b, c, X: integer;
Y: real;
Begin
write(‘a= ‘); readln(a);
write(‘b= ‘); readln(b);
write(‘c= ‘); readln(c);
X:= a+b+ c; Y:= (a+b)*(a+b)/c;
Writeln(‘X = ‘,X);
Writeln(‘Y = ‘,Y);
Readln
End.
26
* Một số tài liệu cũ có thể bị lỗi font khi hiển thị do dùng bộ mã không phải Unikey ...

Người chia sẻ: Trần Thị Hồng Nhung
Dung lượng: | Lượt tài: 1
Loại file:
Nguồn : Chưa rõ
(Tài liệu chưa được thẩm định)