Tiet 18 Bai tập (pro)

Tiết 24
tin học lớp 9
Phòng Giáo Dục Phú Vang
Trường THCS Phú An
Kiểm tra bài cũ
1. Viết cú pháp khai báo biến và lệnh gán trong Pascal
2. Trong Pascal, khai báo nào sau đây là đúng?

a. Var tb: real;
b. Var 4hs: integer;
c. const x: real;
d. Var R = 30
Var : ;
:= ;
3. Viết cú pháp khai báo hằng trong Pascal
Const tên hằng = giá trị của hằng ;
Kiểm tra bài cũ
4. Lệnh Readln(X) ; có tác dụng ?
Gặp lệnh này máy tính sẽ dừng lại cho ta nhập dữ liệu vào cho biến X.
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.
b.
15*4 – 30 + 12
(10+5)/(3+1) – 18/(5+1)
(10+2)*(10+2)/(3+1)
((10+2)*(10+2)-24)/(3+1)
Bài 2. 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 gia tri cho canh a:)
realn(A);
S:=a x a;
writeln(‘dien tich hinh vuong :’ S);
readln
End.
Program DT_hinh vuong;

Var a, S: Integer ;
Begin
clrscr;
writeln(‘nhap gia tri cho canh a:)
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 gia tri cho canh a:’);
readln(A);
S:=a * a;
writeln(‘dien tich hinh vuong :’, S);
readln
End.
Bài 2.
Program dudoan;
Uses crt;
Begin
Clrscr;
Writeln(‘15 + (8/2-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 3. Dự đoán kết quả xuất ra màn hình của chương
trình sau.
PROGRAM DUONG_TRON; {1} b VAR Chuvi, Dientich, r : real; {2}
g 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}
Writeln (`Dien tich duong tron ban kinh`, r, ` la:`, dientich); {9} v Readln {10} v END. {11}
Bài 4. Giải thích từng dòng lệnh trong chương trình.
Bài 5. 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 ; integer; Tong, Tich : Real;
Begin
write (‘ban hay nhap gia tri a: ’); readln(a);
write (‘Ban hay nhap gia tri b: ’); readln(b);
Tong:= a+b; Tich:=a*b;
writeln (‘Tong a + b =’, Tong);
writeln (‘Tich a * b =’, Tich);
End.
Dặn dò
Học lí thuyết SGK
Xem lại các bài tập SGK
Bài tập về nhà:
Viết chương trình tính tiền công lao động như sau
Đơn giá mỗi giờ là 15.000 đồng. Nếu làm ngoài giờ được tính gấp đôi.
Dữ liệu nhập vào : Số giờ bình thường
Số giờ làm ngoài giờ.