BÀI TẬP
I. MỤC TIÊU
1. Kiến thức
- Giải các bài tập trong SGK trang 35
II. ĐỒ DÙNG DẠY HỌC
1. Chuẩn bị của giáo viên
- Sách giáo khoa, giáo án
2. Chuẩn bị của học sinh
- Sách giáo khoa.
III. HOẠT ĐỘNG DẠY-HỌC
1. Ổn định tổ chức lớp
Lớp | Ngày dạy | Sĩ số | Họ tên học sinh vắng | Ghi chú |
| | | | |
| | | | |
| | | | |
| | | | |
| | | | |
| | | | |
| | | | |
| | | | |
| | | | |
- Câu hỏi 1: Một chương trình thường gồm mấy phần? Nêu các thành phần đó?
- Câu hỏi 2: Hãy viết cú pháp khai báo biến?
3. Dạy bài mới
Bài 1. Sự khác nhau giữa hằng có đặt tên và tên biến: Giá trị của hằng có đặt tên không thay đổi khi thực hiện chương trình còn giá trị của biến có thể thay đổi tại từng thời điểm thực hiện chương trình.
Bài 2. Khai báo biến nhằm những mục đích sau:
- Xác định kiểu của biến. Trình dịch sẽ biết cách tổ chức ô nhớ chứa giá trị của biến.
- Đưa tên biến vào danh sách các đối tượng được chương trình quản lí.
- Trình dịch biết cách truy cập giá trị của biến và áp dụng thao tác thích hợp cho biến.
Bài 3. integer, real, extended, longint.
Bài 4. D
Bài 5. C
Bài 6. (1+z)*(x+y/z)/(a-1/(1+x*x*x*x))
Bài 7. a) b) c) d)
Bài 8. a)
program bai8a;
uses cr crt;
var x,y:real;
kt:boolean;
begin
clrscr;
write('Nhap x:’);readln(x);
write('Nhap y:');readln
;kt:=false;
if ((y<1) or (y=1)) and ((y>abs(x)) or (y=abs(x)))
then kt:=true;
if kt then write('Diem vua nhap thuoc phan gach cheo')
else write('Khong thuoc');
readln
end.
b)
program bai8;
uses crt;
var x,y:real;
kt:boolean;
begin
clrscr;
write('Nhap x: ');readln(x);
write('Nhap y: ');readln
;kt:=false;
if (abs
<=1) and (abs(x)<=1) then kt:=true;if kt then write('Diem vua nhap thuoc phan gach cheo')
else write('Khong thuoc');
readln
end.
Bài 9.
Program bai9;
uses crt;
const pi= 3.1416;
var a,s:real;
begin
clrscr;
repeat
write('Nhap ban kinh duong tron: ');
readln(a);
if a<0 then writeln('Nhap lai!');
until a>0;
s:=(a*a*pi)/2;
write('Dien tich phan gach cheo: ',s:8
);readln
end.
Bài 10.
program bai10;
uses crt;
const g= 9.8;
var v, h:real;
begin
clrscr;
repeat
write('Nhap do cao: '); readln(h);
if h<0 then writeln('Nhap lai!');
until h>0;
v:=sqrt(2*g*h);
write('Van toc: ',v:8
);readln
end.
