Chào mừng
quý thầy cô
về dự giờ
lớp 11a2
KHỞI ĐỘNG
KHỞI ĐỘNG
1
2
3
4
Giáo sư Niklaus Wirth – tác giả của Pascal
ÔNG LÀ AI ???
Từ khóa bắt đầu thân chương trình?
Biểu thức 3 > 5 nhận giá trị là?
Từ khóa mà câu lệnh if – then dạng thiếu không có?
Cấu trúc được học trong bài 9?
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 max if max writeln(`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Á
ĐÁ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 B. khong duoc ket hon
C. chuong trinh loi 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
nguon VI OLET
