On tap thi HKI Tin 8

Tiết 31 - 32
Bài tập
Bài tập kiểm tra 15’
Đề 1
Hãy tìm ra lỗi trong chương trình sau đây
Var x:= Integer;
Begin
Write(‘Nhap gia tri cho x=‘);
if x>10 then x=x+1;
Write(‘Gia tri cua x la:,x);
End.
Bài tập kiểm tra 15’
Chương trình hoàn chỉnh
Program tim_x;
Uses crt
Var x: Integer;
Begin
Write(‘Nhap gia tri cho x=‘); Writeln(x);
if x>10 then x:=x+1;
Write(‘Gia tri cua x la:’,x);
End.
Ôn lại cú pháp câu lệnh điều kiện
Dạng thiếu
If Điều kiện Then Câu lệnh;
Dạng đầy đủ
If Điều kiện Then Câu lệnh 1 Else Câu lệnh 2;
Dạng lồng nhau
If Điều kiện 1 Then Câu lệnh 1 Else
If Điều kiện 2 Then Câu lệnh 2 Else Câu lệnh 3;
Bài tập 1
Viết chương trình kiểm tra số a nhập từ bàn phím có chia hết cho 3 hay không? Nếu chia hết cho 3 thì in ra màn hình ‘a chia hết cho 3’, ngược lại in ra màn hình câu lệnh ‘a không chia hết cho 3’
Bài tập 1
Program Tim_x;
Uses crt;
Var x: Integer;
Begin
write(‘Nhap gia tri cho x=’); readln(x);
If x mod 3=0 then writeln(‘x chia het cho 3’)
else writeln(‘x khong chia het cho 3’);
readln;
End.
Bài tập 6/51
a) If 45 mod 3 = 0 then x:=x+1;
Vì 45/3=15 dư 0, thỏa mãn điều kiện nên chương trình thực hiện câu lệnh sau Then x:=x+1 =5+1=6
b) If x>10 then x:=x+1;
Vì x=5<10, không thỏa mản điều kiện nên không thực hiện câu lệnh sau Then. Vậy x=5.
Bài tập 6/51
Hãy viết chương trình hoàn chỉnh để tính giá trị của x ở câu a) If 45 mod 3 = 0 then x:=x+1;
Program Tim_x;
Uses crt;
Var x: Integer;
Begin
Write(‘Nhap gia tri cho x’); Readln(x);
If 45 mod 3 = 0 then x:=x+1;
Write(‘Gia tri cua x=’); Readln;
End.
Bài tập 6/51
Hãy viết chương trình hoàn chỉnh để tính giá trị của x ở câu b) If x>10 then x:=x+1;
Program Tim_x;
Uses crt;
Var x: Integer;
Begin
Write(‘Nhap gia tri cho x’); Readln(x);
If x>10 then x:=x+1;
Write(‘Gia tri cua x=’); Readln;
End.
Ví dụ 5/43
Sử dụng câu lệnh If lồng nhau
Hãy viết chương trình so sánh chiều cao của hai bản a và b
Dạng lồng nhau
If Điều kiện 1 Then Câu lệnh 1 Else
If Điều kiện 2 Then Câu lệnh 2 Else Câu lệnh 3;
Program Tim_x;
Uses crt;
Var a,b: Integer;
Begin
write(‘Nhap gia tri cho a=’); readln(a);
write(‘Nhap gia tri cho b=’); readln(b);
If a>b then write(‘a lớn hơn b’) else
If a Readln;
End.
Ví dụ 5/43