Bài 6. Câu lệnh điều kiện

Chia sẻ bởi Lưu Minh Vũ | Ngày 24/10/2018 | 36

Chia sẻ tài liệu: Bài 6. Câu lệnh điều kiệ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
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
Chú thích
Var dt: real;
S: real;

hcn: real;
Begin
...
End.
11
{dt la dien tich }
(* S la dien tich hinh vuong *)
Thực hành
12
* 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:
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.
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.
Gán xâu dữ liệu cho biến thongbao.
13
Bài tập nhóm
* Với chương trình Tinh_tien.pas ở trên:
Hãy chạy lại chương trình lần lượt với các bộ dữ liệu (5000.5, 12); (10000, 20.5) và (1,35000). 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ó).
14
Củng cố
15
Program Vidu;
Var a, b:= integer;
Const c:=300;
Begin
b:= 7
a:= c/b;
Write(‘ Ket qua ‘,a);
Readln
End.
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.
? 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.
Bài học kết thúc
16
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:
X= a + b + c.
Y= (a + b)2 / 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.
17

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.
18
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.
19
* 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ẻ: Lưu Minh Vũ
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)