Bai 9 Cau truc re nhanh

Chào mừng
quý thầy cô
về dự giờ
lớp 11a2


KHỞI ĐỘNG


KHỞI ĐỘNG

ƠNG LÀ AI ???

1

2

3

4

Biểukhóa
Từ
Cấu
trúc
thức
bắt
mà
được
3sư
>câu

đầu
5Niklaus
học
nhận
lệnh
thân
trong
giá
ifchương
–Wirth
trị
bài
then
là?
9?trình?
dạng
khơng
có?
Giáo
– tácthiếu
giả của
Pascal


THẢO LUẬN

Nhóm 1: Tìm giá trị lớn
nhất trong ba số a, b, c?

Nhóm 2: Kiểm tra xem x có

chia hết cho 5 và 7 khơng?

Nhóm 3: Kiểm tra xem n, m
có cùng tính chẵn lẻ khơng?


THẢO LUẬN
program bai1;
uses crt;
var
a,b,c,max:real;
begin
clrscr;
write('nhap vao ba so a, b, c: '); readln(a,b,c);
max:=a;
if maxif maxwriteln('gia tri lon nhat: ',max:6:1);
readln
end.


THẢO LUẬN
program bai2;
uses crt;
var
x:integer;
begin
clrscr;
write('nhap x= '); readln(x);

if (x mod 5 = 0) and (x mod 7= 0) then
writeln(x,' chia het cho 5 va 7')
else writeln(x,' khong chia het cho 5 va 7');
readln
end.


THẢO LUẬN
program bai3;
uses crt;
var
n,m:integer;
begin
clrscr;
write('nhap n, m: '); readln(n,m);
if (n+m) mod 2 = 0 then
writeln(n,' va ',m,' cung tinh chan le')
else writeln(n,' va ',m,' khong cung tinh chan le');
readln
end.


CHẠY THỬ


ĐÁNH GIÁ
Câu 1: Nếu a chia hết cho 2 thì thông báo a là số chẵn – thể hiện
trong pascal bằng câu lệnh:
A. If a mod 2 = 0 else write(a, ‘la so chan’);
B. If a mod 2 = 0 then write(a la so chan);

C. If a mod 2 = 0 then write(a, ‘la so chan’);
D. If (a mod 2 = 0) them write(a, ‘la so chan’);


ĐÁNH GIÁ
Câu 2: Bài toán
sử dụng mấy câu lệnh if – then:
A. 1
B. 2
C. 3
D. 4


ĐÁNH GIÁ
Câu 3: Biến c nhận giá trị bao nhiêu khi thực hiện câu lệnh
If a> b then c:=a+b else c:=b-a; khi a=5 và b=5:
A. 5
B. 10
C. 0
D. Đáp án khác


ĐÁNH GIÁ
Câu 4: Sau khi chạy chương trình dưới kết quả trên màn hình là:

A. yeu

B. trung binh

C. kha

D. gioi


ĐÁNH GIÁ
Câu 5: Nếu người thứ nhất là nam và người thứ hai là nữ vậy sau khi
chạy chương trình dưới kết quả trên màn hình là:

A. duoc ket hon
C. chuong trinh loi

B. khong duoc ket hon
D. dap an khac


Tiết học đến đây kết thúc
Chúc quý thầy cô sức khỏe
- công tác tốt