Tiết 33: ÔN TẬP
Giáo viên: Bùi Văn Phương
Trường: TH&THCS Sơn Thủy
Bài tập 1: Hãy sắp xếp dãy số sau tương ứng vào bảng
n. chiều cao
a. 105
b.10.5
c. “105”
d. 1290
e. 7.5
f. “tin hoc lop 8”
g. điểm trung bình
m. tuổi
home
a. 105
c. “105”
m. tuổi
d. 1290
Next
i. true
Bài tập 1: Hãy sắp xếp dãy số sau tương ứng vào bảng
n. chiều cao
a. 105
b.10.5
d. 1290
e. 7.5
g. điểm trung bình
m. tuổi
f. “tin hoc lop 8”
c. “105”
home
e. 7.5
c. “105”
f. “tin hoc lop 8”
Next
i. true
Bài tập 1: Hãy sắp xếp dãy số sau tương ứng vào bảng
n. chiều cao
a. 105
b.10.5
c. “105”
d. 1290
e. 7.5
f. “tin hoc lop 8”
g. điểm trung bình
m. tuổi
home
n. chiều cao
b.10.5
g. điểm trung bình
e. 7.5
Next
i. true
Bài tập 2: Sắp xếp các câu lệnh sau thành chương trình hoàn chỉnh:
Const pi=3.14;
Readln(r);
Begin
Var R,S:real;
S:=pi*r*r;
Writeln(s);
End.
Đáp án
Const pi=3.14;
Var R,S:real;
Begin
Readln(r);
S:=pi*r*r;
Writeln(s);
End.
Bài tập 3: Viết chương trình nhập vào điểm của ba môn Toán, Văn, Anh. Tính tổng điểm của ba môn trên, Nếu tổng điểm lớn hơn hoặc bằng 15 thì thông báo Đỗ ngược lại nhỏ hơn 15 thì thông báo trượt.
Var Van , Toan , Anh, Tongdiem : Real ;
Begin
Readln( Toan ) ;
Readln( Anh) ;
Readln ( Van ) ;
Tongdiem := Toan + Van + Anh;
If Tongdiem >= 15 Then Writeln(` Do`)
Else Writeln(` Truot`) ;
End .
Var Van , Toan , Anh, Tongdiem : Real ;
Begin
Readln( Toan ) ;
Readln( Anh) ;
Readln ( Van ) ;
Tongdiem := Toan + Van + Anh;
If Tongdiem >= 15 Then Writeln(` Do`) ;
if Tongdiem <15 then Writeln(` Truot`) ;
End .
Câu hỏi
2
6
Đây là một công cụ lập trình rất quan trọng
B
I
E
N
N
H
O
Từ khóa khai báo biến trong Pascal là gì?
V
A
R
Khi khai báo biến ta phải khai báo........và khai báo kiểu dữ liệu của biến
T
E
N
B
I
E
N
Biến dùng để chứa cái gì?
K
D
U
L
I
E
U
Trước khi sử dụng một biến nào đó thì ta phải làm gì?
H
A
I
B
A
O
Khi khai báo biến trong một NNLT nào đó thì ta phải tuân thủ theo cái gì?
C
U
P
H
A
P
TRÒ CHƠI Ô CHỮ
Câu 4: Viết chương trình tìm giá trị lớn nhất trong bốn số a, b, c, d được nhập vào từ bàn phím.
Var a, b, c, d,max: integer;
Begin
Readln(a,b,c,d);
Max:=a;
If maxIf maxIf maxWriteln(max);
End.
Var a, b, c, d: integer;
Begin
Readln(a,b,c,d);
If (a>b) and (a>c) and (a>d) then writeln(‘so lon nhat la:=‘,a);
If (b>a) and (b>c) and (b>d) then writeln(‘so lon nhat la:=‘,b);
If (c>b) and (c>a) and (c>d) then writeln(‘so lon nhat la:=‘,c);
If (d>a) and (d>b) and (d>c) then writeln(‘so lon nhat la:=‘,d);
End.
Đáp án cách 2
Bài tập 2: Em hãy liệt kê các lỗi nếu có trong các chương trình dưới đây và sửa lại chương trình cho đúng.
Nhóm
Var a,b: = integer;
Const c:= 3;
Begin
a:=200;
b:=a/c;
write(b);
readln;
End.
Bài tập nhóm: Em hãy liệt kê các lỗi nếu có trong các chương trình dưới đây và sửa lại chương trình cho đúng.
Var a,b: = integer;
Const c:= 3;
Begin
a:=200;
b:=a/c;
write(b);
readln;
End.
Var a: integer;
b:real;
Const c = 3;
Begin
a:=200;
b:=a/c;
write(b);
readln;
End.
Sai cú pháp khai báo biến
Sai cú pháp khai báo hằng.
Giá trị được gán có kiểu dữ liệu không phù hợp.
“Cảm ơn quý thầy cô và các em
đã chú ý lắng nghe”
Giáo viên: Bùi Văn Phương
Trường: TH&THCS Sơn Thủy
nguon VI OLET
