+ Phần khai báo: thường gồm các câu lệnh dùng để khai báo :?. Tên chương trình.[r]
(1)BÀI GIẢNG TIN HỌC BÀI GIẢNG TIN HỌC
(lớp 8) (lớp 8)
TiTiết 15: Ôn ết 15: Ôn Tập
(2)1 Chương trình máy tính gì? Hãy cho biết lí do cần phải viết chương trình để điều khiển máy tính?
- Chương trình máy tính dãy lệnh mà
máy tính hiểu thực được
- Việc viết nhiều lệnh tập hợp lại chương trình, giúp người điều khiển máy tính cách đơn giản hiệu hơn
+ Ngôn ngữ lập trình gì?
+ Ngơn ngữ lập trình gì?
Ngơn ngữ dùng để viết chương trình
Ngơn ngữ dùng để viết chương trình
máy tính gọi ngơn ngữ lập trình.
máy tính gọi ngơn ngữ lập trình.
(3)2.Cấu trúc chung chương trình gồm phần?
2.Cấu trúc chung chương trình gồm phần?
Gồm phần
Gồm phần
+ Phần khai báo: thường gồm câu lệnh dùng để khai báo :
+ Phần khai báo: thường gồm câu lệnh dùng để khai báo :
Tên chương trình Tên chương trình
Các thư viện khai báo khác Các thư viện khai báo khác
+ Phần thân : gồm có câu lệnh cần thực nằm từ khóa Begin
+ Phần thân : gồm có câu lệnh cần thực nằm từ khóa Begin
end.
end.
* + Phần khai báo có khơng có CT
* + Phần khai báo có khơng có CT
(4)
3.Từ khóa gì? Tên gì? Cho ví dụ?
3.Từ khóa gì? Tên gì? Cho ví dụ?
- Từ khố từ mà ngơn ngữ lập trình quy
- Từ khố từ mà ngơn ngữ lập trình quy
định từ dành riêng không sử dụng vào mục
định từ dành riêng không sử dụng vào mục
đích khác.
đích khác.
VD: Program, begin, end, var…VD: Program, begin, end, var…
- Tên người lập trình tự đặt sử dụng
- Tên người lập trình tự đặt sử dụng
kí tự mà ngơn ngữ lập trình cho phép, tên khơng
kí tự mà ngơn ngữ lập trình cho phép, tên khơng
được trùng với từ khố, tên khơng bắt đầu số
được trùng với từ khố, tên khơng bắt đầu số
và không chứa dấu cách.
và không chứa dấu cách.
VD: Tamgiac, Ban_Kinh…VD: Tamgiac, Ban_Kinh… 4 Các kiểu liệu học?
4 Các kiểu liệu học?
4 kiểu liệu Pascal:4 kiểu liệu Pascal:
(5)Kí hiệu
Phép tốn Kiểu liệu
- Trừ Integer, real
* nhân Integer, real
/ chia Integer, real
+ Cộng Integer, real
div Chia lấy phần
nguyên Integer
mod Chia lấy phần dư Integer
(6)6 Các phép so sánh?
6 Các phép so sánh?
Các phép
so sánh ( tốn học)Kí hiêu Kí hiêu( Pascal) Ví dụ(tốn học)
Ví dụ ( Pascal)
Bằng = = 5=5 5=5
Khác ≠ <> 4≠3 4<>3 Nhỏ hơn < < 3<5 3<5 Lớn hơn > > 9>7 9>7
Lớn
bằng ≥ >= 8 ≥ 7 8 >= 7 Nhỏ hơn
(7)7 Biến gì? Cú pháp khai báo nào?
7 Biến gì? Cú pháp khai báo nào?
Cho ví
Cho ví dụ khai báo biến? VD khai báo biến?dụ khai báo biến? VD khai báo biến? - Cú pháp khai báo biến:
- Cú pháp khai báo biến:
Var Var
<Tên biến> : <kiểu liệu>;<Tên biến> : <kiểu liệu>;
VDVD::
Var tong : integer;Var tong : integer;
Var S, a : real;Var S, a : real;
(8)8 Hằng gì? Cách khai báo nào? 8 Hằng gì? Cách khai báo nào?
Cho ví dụ? Cho ví dụ? Khai báo:Khai báo:
Cú phápCú pháp: :
const const
<tên hằng>= <giá trị hằng>;<tên hằng>= <giá trị hằng>;
VD:VD:
const pi=3.14;const pi=3.14;
(9)Bài 4/33 (SGK): Trong Pascal, khai báo sau đúng?
a) var tb: real;
b) var 4hs: integer; c) const x: real;
d) var R= 30; ĐÁP ÁN
a) Hợp lệ
b) Khơng hợp lệ tên biến bắt đầu số
c) Không hợp lệ câu lệnh khai báo khơng chứa dấu (:) hằng phải gán giá trị cụ thể khai báo.
(10)Câu Viết biểu thức toán sau dạng biểu thức Pascal.
a 15(4 + 30 + 12) b xy y
5 18 3
) 10
( 2
(11)+ Để dịch chương trình : Alt+F9 + Chạy Ctrình nhấn : Ctrl +F9.
+ Lệnh Read (<danh sách biến>) hoăc Readln( <DS biến> ) dùng để nhập liệu từ bàn phím
+ Lệnh Writeln: in thơng tin hình đưa trỏ xuống đầu dịng Cịn lệnh Write khơng đưa trỏ xuống dịng.
+ Lệnh Writeln( giá trị thực : n : m) in số thực với n phần nguyên m phần thập phân Writeln(‘ dien tich la: ‘,S:3:0); + Lệnh Clrscr dùng để xoa hình sau khai báo thư viện Crt uses;
(12)Program Dientich.chunhat; Dientich.chunhat;
Var a : Integer; a : Integer; S: Real;
S: Real;
Const b=2; b=2;
Begin
Write(‘Nhap canh a: ’);Readln(a);
Write(‘Nhap canh a: ’);Readln(a);
S:=a*b;
S:=a*b;
Writeln(‘Dien tich hinh tam giac la: ’,S: 3: 0);
Writeln(‘Dien tich hinh tam giac la: ’,S: 3: 0);
Readln;
Readln;
End.
(13)Giải thích câu lệnh chương trình :
Program DT_hinh_vuong;{1}
Var a, S: Integer ;{2} Begin {3}
writeln(‘nhap gia tri cho canh a:’);{4}
readln(a); {5}
S:=a*a;{6}
writeln(‘dien tich hinh vuong la:’, S); {7}
(14)Giải thích câu lệnh chương trình :
Program DT_hinh_vuong;{1}
Var a, S: Integer ;{2} Begin {3}
writeln(‘nhap gia tri cho canh a:’);{4}
readln(a); {5}
S:=a*a;{6}
writeln(‘dien tich hinh vuong la:’, S);{7}
End {8}
1
1 Khai b¸o tên ch ơng trình DT_hinh_vuongKhai báo tên ch ơng trình DT_hinh_vuong
2
2 Khai báo biến a biến S thuộc kiểu số Khai báo biến a biến S thuộc kiểu số nguyên.
nguyên.
3
3 Bắt đầu thân ch ơng trình.Bắt đầu thân ch ơng trình.
4
4 Lệnh in dòng chữ nhap gia tri cho canh a Lệnh in dòng chữ nhap gia tri cho canh a lên hình.
lên hình.
5
5 Lệnh nhập giá trị cho biến a.Lệnh nhập giá trị cho biến a.
6
6 Lệnh tính giá trị a bình ph ơng gán kết Lệnh tính giá trị a bình ph ơng gán kết quả cho biến S.
quả cho biÕn S.
7
7 LƯnh in dßng chữ diện tích hình vuông : Lệnh in dòng chữ diện tích hình vuông : và in giá trị biến S.
và in giá trị biến S.
8
(15) Bài Bài
Tìm chỗ sai lệnh khai Tìm chỗ sai lệnh khai
báo sau gõ lại cho đúng:
báo sau gõ lại cho đúng:
a) var start, begin: real; a) var start, begin: real; →
→ var start, batdau: real; var start, batdau: real;
b) const x : =3.14; P:=1000; b) const x : =3.14; P:=1000; →
→ const x =3.14; y =1000;const x =3.14; y =1000;
c) var a:=5;c) var a:=5; →
→ const a=5;const a=5;
d)const ten lop = '8A 2';
d)const ten lop = '8A 2';
→
(16)Program Hinh_tron;
Program Hinh_tron;
var ban_kinh, chuvi, dien_tich: real;
var ban_kinh, chuvi, dien_tich: real;
const pi =3.14;
const pi =3.14;
Begin
Begin
write(' Cho biết bán kính:'); readln( ban_kinh);
write(' Cho biết bán kính:'); readln( ban_kinh);
Chu_vi:=2*Pi*ban_kinh; Chu_vi:=2*Pi*ban_kinh; dien_tich:= Pi*ban_kinh*ban_kinh; dien_tich:= Pi*ban_kinh*ban_kinh; writeln('C=',chu_vi,'S=',dien_tich) writeln('C=',chu_vi,'S=',dien_tich) readln readln end end
Hãy phân biệt biển chương trình bẳng cách đánh dấu váo bảng sau
Hãy phân biệt biển chương trình bẳng cách đánh dấu váo bảng sau
Hằng
Hằng BiếnBiến Không phải biếnKhông phải biến Pi
(17)Bài 2
Bài 2: Chương trình Pascal viết để tính chu vi diện tích hình trịn với bán kính : Chương trình Pascal viết để tính chu vi diện tích hình trịn với bán kính nhập từ bàn phím:
nhập từ bàn phím: Program Hinh_tron; Program Hinh_tron;
var ban_kinh, chuvi, dien_tich: real; var ban_kinh, chuvi, dien_tich: real; const pi =3.14;
const pi =3.14; Begin
Begin
write(' Cho biết bán kính:'); readln( ban_kinh); write(' Cho biết bán kính:'); readln( ban_kinh); Chu_vi:=2*Pi*ban_kinh; Chu_vi:=2*Pi*ban_kinh; dien_tich:= Pi*ban_kinh*ban_kinh; dien_tich:= Pi*ban_kinh*ban_kinh; writeln('C=',chu_vi,'S=',dien_tich) writeln('C=',chu_vi,'S=',dien_tich) readln readln end end Hằng
Hằng BiếnBiến Không phải biếnKhông phải biến Pi
Pi xx
(18)Bài 2
Bài 2: Chương trình Pascal viết để tính chu vi diện tích hình trịn với bán kính : Chương trình Pascal viết để tính chu vi diện tích hình trịn với bán kính nhập từ bàn phím:
nhập từ bàn phím: Program Hinh_tron; Program Hinh_tron;
var ban_kinh, chuvi, dien_tich: real; var ban_kinh, chuvi, dien_tich: real; const pi =3.14;
const pi =3.14; Begin
Begin
write(' Cho biết bán kính:'); readln( ban_kinh); write(' Cho biết bán kính:'); readln( ban_kinh); Chu_vi:=2*Pi*ban_kinh; Chu_vi:=2*Pi*ban_kinh; dien_tich:= Pi*ban_kinh*ban_kinh; dien_tich:= Pi*ban_kinh*ban_kinh; writeln('C=',chu_vi,'S=',dien_tich) writeln('C=',chu_vi,'S=',dien_tich) readln readln end end Hằng
Hằng BiếnBiến Không phải biếnKhông phải biến Pi
Pi xx
3.14
3.14 xx
(19)Bài 2
Bài 2: Chương trình Pascal viết để tính chu vi diện tích hình trịn với bán kính : Chương trình Pascal viết để tính chu vi diện tích hình trịn với bán kính nhập từ bàn phím:
nhập từ bàn phím: Program Hinh_tron; Program Hinh_tron;
var ban_kinh, chuvi, dien_tich: real; var ban_kinh, chuvi, dien_tich: real; const pi =3.14;
const pi =3.14; Begin
Begin
write(' Cho biết bán kính:'); readln( ban_kinh); write(' Cho biết bán kính:'); readln( ban_kinh); Chu_vi:=2*Pi*ban_kinh; Chu_vi:=2*Pi*ban_kinh; dien_tich:= Pi*ban_kinh*ban_kinh; dien_tich:= Pi*ban_kinh*ban_kinh; writeln('C=',chu_vi,'S=',dien_tich) writeln('C=',chu_vi,'S=',dien_tich) readln readln end end Hằng
Hằng BiếnBiến Không phải biếnKhông phải biến Pi
Pi xx
3.14
3.14 xx
ban_kinh
ban_kinh xx
(20)Bài 2
Bài 2: Chương trình Pascal viết để tính chu vi diện tích hình trịn với bán kính : Chương trình Pascal viết để tính chu vi diện tích hình trịn với bán kính nhập từ bàn phím:
nhập từ bàn phím: Program Hinh_tron; Program Hinh_tron;
var ban_kinh, chuvi, dien_tich: real; var ban_kinh, chuvi, dien_tich: real; const pi =3.14;
const pi =3.14; Begin
Begin
write(' Cho biết bán kính:'); readln( ban_kinh); write(' Cho biết bán kính:'); readln( ban_kinh); Chu_vi:=2*Pi*ban_kinh; Chu_vi:=2*Pi*ban_kinh; dien_tich:= Pi*ban_kinh*ban_kinh; dien_tich:= Pi*ban_kinh*ban_kinh; writeln('C=',chu_vi,'S=',dien_tich) writeln('C=',chu_vi,'S=',dien_tich) readln readln end end Hằng
Hằng BiếnBiến Không phải biếnKhông phải biến Pi
Pi xx
3.14
3.14 xx
ban_kinh
ban_kinh xx
chuvi
chuvi xx
dien_tich
dien_tich
2
(21)Bài 2
Bài 2: Chương trình Pascal viết để tính chu vi diện tích hình trịn với bán kính : Chương trình Pascal viết để tính chu vi diện tích hình trịn với bán kính nhập từ bàn phím:
nhập từ bàn phím: Program Hinh_tron; Program Hinh_tron;
var ban_kinh, chuvi, dien_tich: real; var ban_kinh, chuvi, dien_tich: real; const pi =3.14;
const pi =3.14; Begin
Begin
write(' Cho biết bán kính:'); readln( ban_kinh); write(' Cho biết bán kính:'); readln( ban_kinh); Chu_vi:=2*Pi*ban_kinh; Chu_vi:=2*Pi*ban_kinh; dien_tich:= Pi*ban_kinh*ban_kinh; dien_tich:= Pi*ban_kinh*ban_kinh; writeln('C=',chu_vi,'S=',dien_tich) writeln('C=',chu_vi,'S=',dien_tich) readln readln end end Hằng
Hằng BiếnBiến Không phải biếnKhông phải biến Pi
Pi xx
3.14
3.14 xx
ban_kinh
ban_kinh xx
chuvi
chuvi xx
dien_tich
dien_tich xx
2
(22)Bài 2
Bài 2: Chương trình Pascal viết để tính chu vi diện tích hình trịn với bán kính : Chương trình Pascal viết để tính chu vi diện tích hình trịn với bán kính nhập từ bàn phím:
nhập từ bàn phím: Program Hinh_tron; Program Hinh_tron;
var ban_kinh, chuvi, dien_tich: real; var ban_kinh, chuvi, dien_tich: real; const pi =3.14;
const pi =3.14; Begin
Begin
write(' Cho biết bán kính:'); readln( ban_kinh); write(' Cho biết bán kính:'); readln( ban_kinh); Chu_vi:=2*Pi*ban_kinh; Chu_vi:=2*Pi*ban_kinh; dien_tich:= Pi*ban_kinh*ban_kinh; dien_tich:= Pi*ban_kinh*ban_kinh; writeln('C=',chu_vi,'S=',dien_tich) writeln('C=',chu_vi,'S=',dien_tich) readln readln end end Hằng
Hằng BiếnBiến Không phải biếnKhông phải biến Pi
Pi xx
3.14
3.14 xx
ban_kinh
ban_kinh xx
chuvi
chuvi xx
dien_tich
dien_tich xx
2
(23)Bài 3: Hãy liệt kê lỗi chương trình
Bài 3: Hãy liệt kê lỗi chương trình
Pascal sửa lại cho đúng.
Pascal sửa lại cho đúng.
const Pi:=3.1416;
const Pi:=3.1416;
Var cv, dt: integer
Var cv, dt: integer
r:real;
r:real;
Begin
Begin
r=5.5;
r=5.5;
cv:=2*Pi*r;
cv:=2*Pi*r;
dt=pi*r*r;
dt=pi*r*r;
writeln('Chu vi là:=cv');
writeln('Chu vi là:=cv');
writeln(' dien tich la:=dt');
writeln(' dien tich la:=dt');
readln
readln
end.
(24)S
Sửa lại:ửa lại:
Program baitap;
Program baitap;
const Pi=3.1416;
const Pi=3.1416;
Var cv, dt, r : real;
Var cv, dt, r : real;
Begin
Begin
r=5.5;
r=5.5;
cv:=2*Pi*r;
cv:=2*Pi*r;
dt:=pi*r*r;
dt:=pi*r*r;
writeln('Chu vi là:= ', cv );
writeln('Chu vi là:= ', cv );
writeln( ' dien tich la:= ' , dt );
writeln( ' dien tich la:= ' , dt );
readln
readln
end.
(25)Bµi 4
Hãy viết ch ơng trình để giải tốn sau:
Tính diện tích S tam giác với độ dài cạnh
a vµ chiỊu cao t ơng ứng h ?(a h số tự
nhiên đ ợc nhập từ bàn phím )
ThuËt to¸n:
1 2
S ah h a
Hoạt động nhóm
Hoạt động nhóm
Thời gian phút
(26)Program: Dientich tamgiac Dientich tamgiac
Var a, h: Interger; a, h: Interger;
Const b:=2; b:=2;
Begin
Wrile(‘Nhap canh a: ’);
Wrile(‘Nhap canh a: ’);
Readln(a);
Readln(a);
Write(‘Nhap chieu cao h: ’);
Write(‘Nhap chieu cao h: ’);
Readln(h);
Readln(h);
S:=a.h/b;
S:=a.h/b;
Writeln(Dien tich hinh tam giac la: ’,S);
Writeln(Dien tich hinh tam giac la: ’,S);
Readln;
Readln;
End
(27)Program Dientichtamgiac; Dientichtamgiac;
Var a, h: Integer; a, h: Integer; S: Real;
S: Real;
Const b=2; b=2;
Begin
Write(‘Nhap canh a: ’);Readln(a);
Write(‘Nhap canh a: ’);Readln(a);
Write(‘Nhap chieu cao h: ’);Readln(h);
Write(‘Nhap chieu cao h: ’);Readln(h);
S:=a*h/b;
S:=a*h/b;
Writeln(‘Dien tich hinh tam giac la: ’,S);
Writeln(‘Dien tich hinh tam giac la: ’,S);
Readln;
Readln;
End.
(28)