Tập thể lớp 8 kính chào quý Thầy Cô giáo đến dự giờ thăm lớp!TRƯỜNG THCS NGUYỄN DU GV Võ Đức Thanh Nhàn Trường THCS Nguyễn Du - Pleiku... Lệnh nhập giá trị cho biến Readln Hay read...
Trang 1Tập thể lớp 8 kính chào quý Thầy Cô giáo đến dự giờ thăm lớp!
TRƯỜNG THCS NGUYỄN DU
GV Võ Đức Thanh Nhàn Trường THCS Nguyễn Du - Pleiku
Trang 2Tiết 15
Trang 3
Bài 1: Chuyển biểu thức được viết trong pascal
(x*x +1)*(x*x +1)/b-a thành biểu thức toán:
KIỂM TRA BÀI CŨ
x2 12
a b
x2 12
b a
b a
a b
Trang 417/5 =3; 17 div 5 = 2;
17 mod 5 = 3
Bài 2 : Bốn bạn A, B, C, D đưa ra kết quả của phép chia,
phép chia lấy phần nguyên và lấy phần dư của hai số nguyên
17 và 5 Hãy chọn bạn làm đúng:
17/5 = 3; 17 div 5 = 2;
17 mod 5 = 3
17/5 = 4; 17 div 5 = 3;
17 mod 5 = 2
KIỂM TRA BÀI CŨ
17/5 = 3.4; 17 div 5 = 3;
17 mod 5 = 2
Trang 5Bài 3 Trong Pascal, khai báo nào sau đây đúng ( ) đúng ( ) Đ) Đ) ? khai báo nào sai (S)?
var begin: real;
A.
var diem: integer;
B.
const a = 30;
C.
const a: real;
D.
S Đ
Đ S
KIỂM TRA BÀI CŨ
Trang 6I Lí thuyết
1 Cú pháp khai báo biến và lệnh gán trong Pascal
Var <tên biến> : <kiểu dữ liệu>;
<tên biến> := <biểu thức> ;
2 Cú pháp khai báo hằng trong Pascal
Const <tên hằng> = <giá trị của hằng> ;
3 Lệnh nhập giá trị cho biến
Readln(<danh sách biến>)
Hay read(<danh sách biến>)
Trang 7II Bài tập
Bài 1. Viết các biểu thức toán học sau đây dưới dạng
biểu thức trong Pascal.
15 4 (30 12)
a
10
b
2
(10 2)
1 3
c
2
3 1
a
d
a 15*4 – (30 + 12)
b (10+x)/(3+x) – x/(5+x)
c (10+2)*(10+2)/3+1
d ((10+a)*(10+a)-24)/(3+1)
Các biểu thức toán học được viết dưới dạng biểu thức trong Pascal.
Trang 8Program dudoan;
Uses crt;
Begin
Clrscr;
Writeln(‘15 + 3)*2 = ’, 15 + (8/2-3)*2:4:2);
Writeln(‘(7+5)*2 – 8/2 = ’, (7+5)*2 – 8/2:4:2); Writeln(’15 mod 2 = ’,15 mod 2);
Writeln(15 div 2);
Readln;
End
Bài 2 Dự đoán kết quả xuất ra màn hình của chương
trình sau.
15 + (8/2-3)*2 = 17.00
(7+5)*2 – 8/2 = 20.00
15 mod 2 = 1 7
Trang 9Bài 3 Hãy liệt kê các lỗi (nếu có) trong chương trình
dưới đây và sửa lại cho đúng
Program DT_hinh vuong;
Var a, S: Integer ;
Begin
clrscr;
writeln(‘nhap do dai canh hinh vuong:)
realn(A);
S:=a x a;
writeln(‘dien tich hinh vuong:’ S);
readln
End
Trang 10Program DT_hinh vuong;
Var a, S: Integer ;
Begin
clrscr;
writeln(‘nhap do dai canh hinh vuong:)
realn(A);
S:=a x a;
writeln(‘dien tich hinh vuong:’ S);
readln
End
Program DT_hinh _ vuong;
Uses crt;
Var a, S: Integer ; Begin
clrscr;
writeln(‘nhap do dai canh hinh vuong: ’ ;
readln(A);
S:=a * a;
writeln(‘dien tich hinh vuong :’ , S);
readln End
Bài 3.
Trang 11Bài 4 Viết chương trình nhập hai số nguyên từ bàn
phím và hiển thị ra màn hình tổng và tích hai số đó
Program Tinh_tong;
Var a, b ,Tong, Tich : integer;
Begin
write (‘Nhap so thu nhat: ’); readln(a);
write (‘Nhap so thu hai: ’); readln(b);
Tong:= a+b; Tich:=a*b;
writeln (‘Tong cua hai so bang:’, Tong);
writeln (‘Tich cua hai so bang:’, Tich);
End.
Trang 12 Dặn dò
Học lí thuyết SGK
Xem lại các bài tập SGK
Chuẩn bị kiểm tra 1 tiết
Trang 13PROGRAM DUONG_TRON; {1} VAR Chuvi, Dientich, r : real; {2}
CONST pi = 3.14; {3}
BEGIN {4}
Write ('Nhap ban kinh duong tron = '); readln (r); {5}
Chuvi := 2*r*pi; {6}
Dientich := r*r*pi; {7}
Writeln ('Chu vi duong tron co ban kinh', r , 'la :', chuvi); {8}
{9} Readln {10}
Bài 5 Giải thích từng dòng lệnh trong chương trình