III. CÁC HOẠT ĐỘNG DẠY VÀ HỌC: 1 Tổ chức(1ph)
1.Tổ chức tiết thựchành (5’)
- HS thực hiện, ngồi vào mỏy của nhúm mỡnh theo yờu cầu của GV
- HS chỳ ý
- HS thực hiện khởi động mỏy
2. Thực hành
- HS thực hành khởi động phần mềm và làm theo yờu cầu của GV
Bài tập 1
HS thực hiện túm tắt đề bài.
a, HS xem lại cỏc vớ dụ 2 và vớ du 3 ở bài 9 về cỏch sử dụng và khai bỏo biến mảng trong Pascal. (10’)
cõu lệnh trong chương trỡnh
GV: Ở chương trỡnh trờn, ta đĩ khai bỏo những biết gỡ? Kiểu dữ liệu từng loại biến?
- Biến mảng A gồm bao nhiờu phần tử ?
- GV: Yờu cầu HS dịch và chạy chương trỡnh với cỏc bộ dữ liệu tựy ý.
* Cỏc nhúm bỏo cỏo kết quả, GV nhận xột.
?GV: Để viết chương trỡnh của bài 1, em cần sử dụng những biến nào? Em hĩy thử khai bỏo cỏc biến đú. ? HS viết phần khai bỏo của chương trỡnh
GV: Đưa phần khai bỏo biến (SGK) cho HS tỡm hiểu và cho cỏc em nờu tỏc dụng của từng biến? HS trả lời.
? HS gừ phần khai bỏo và lưu tệp là “phan loai”. Tỡm hiểu và viết tiếp cỏc lệnh thõn chương trỡnh.
HS trả lời
HS thực hành dịch và chạy chương trỡnh. Bỏo cỏo kết quả.
b, Liệt kờ cỏc biến dự định trong chương trỡnh. (5’)
Program Phan_loai;
uses crt;
Var
i, n, G, Kh, TB, K: integer; A: array[1..100] of real;
c, Gừ phần khai bỏo và lưu tệp là “phanloai”. Tỡm hiểu và viết tiếp cỏc lệnh thõn chương trỡnh.(10’)
Begin clrscr;
write('nhap so HS trong lop, n= '); readln(n); writeln('Nhap diem :'); For i:=1 to n do Begin write(i,' . '); readln(a[i]); End; G:=0; Kh:= 0; TB:= 0; K:= 0; for i:=1 to n do Begin if a[i] >= 8.0 then G:= G + 1; if a[i] <5.0 then K:= K + 1;
if (a[i] <8.0 ) and (a[i] >=6.5) then Kh:= Kh + 1; if (a[i] >= 5 ) and (a[i] < 6.5) then TB:= TB + 1; end;
writeln(' Ket qua hoc tap: '); writeln(G, ' ban hoc gioi '); writeln(Kh, ' ban hoc kha ');
? Yờu cầu HS gừ tiếp nội dung thõn chương trỡnh vào phần khai bỏo. Dịch và chạy chương trỡnh.
GV: Nhận xột cỏc nhúm.
writeln(TB, ' ban hoc trung binh'); writeln(K, ' ban hoc kem '); (adsbygoogle = window.adsbygoogle || []).push({});
readln; End.
d, HS gừ phần thõn chương trỡnh vào mỏy; dịch, sửa lỗi (nếu cú) và chạy chương trỡnh với cỏc bộ dữ liệu tựy ý.
(5’)
Cỏc nhúm quan sỏt kết quả trờn màn hỡnh.
4. Củng cố: 6’
- Nhắc lại cỏch khia bỏo biến mảng… - Nhận xột tiết thực hành.
5. Hướng dẫn về nhà: 3’
- Chuẩn bị tiếp phần bài cũn lại.
- Về tập viết một số chương trỡnh đơn giản và xem thờm sỏch tham khảo
Bài thực hành 7
XỬ LÍ DÃY SỐ TRONG CHƯƠNG TRèNH (T2) I. MỤC TIấU:
1. Kiến thức:
- Thực hành khai bỏo sử dụng biến.
- ễn luyện kết hợp cỏc cõu lệnh If…..then, For…..do.
2. Kỹ năng:
- Củng cố cỏc kỹ năng đọc hiểu, chỉnh sửa chương trỡnh.
3. Thỏi độ:
- Nghiờm tỳc, tập chung vào bài thực hành.
II. CHUẨN BỊ:
1. Giỏo viờn: Phũng mỏy, mỏy tớnh cú cài sẵn chương trỡnh Pascal.
2. Học sinh: Xem lại lớ thuyết và chuẩn bị cỏc bài tập thực hành trong SGK.III. TIẾN TRèNH TRấN LỚP: III. TIẾN TRèNH TRấN LỚP:
1. Ổn định tổ chức: 1’ 2. Kiểm tra bài cũ: 5’
?1.Viết lại cõu lệnh lặp if…then, for…do?
?2.Viết cỳ phỏp khai bỏo biến mảng kiểu số nguyờn và kiểu số thực?
3. Bài mới.
HĐ CỦA THẦY + TRề NỘI DUNG
- GV yờu cầu HS ngồi đỳng vị trớ mỏy tớnh của mỡnh.
- Yờu cầu HS làm việc nghiờm tỳc theo sự hướng dẫn của GV.
- Yờu cầu HS chuẩn bị khởi động mỏy tớnh (GV đúng nguồn điện).
GV yờu cầu HS đọc yờu cầu của bài tập 2 SGK / 81. (adsbygoogle = window.adsbygoogle || []).push({});
GV: Nờu yờu cầu của bài 2 (nõng cao của bài 1).
GV: Tương tự bài 1, theo em phõn khai bỏo viết như thế nào?
HS viết ra giấy.
GV nhận xột và đưa ra phần khai bỏo như sgk, cho HS phõn tớch ý nghĩa cỏc cõu lệnh.
Yờu cầu HS mở bài tập 1 đĩ lưu trong mỏy và chỉnh sửa lại cỏch khai bỏo mới.
HS thực hành.
GV: Cho HS thảo luận nhúm để thực hiện cỏc yờu cầu sau:
+ Viết ra giấy cõu lệnh tớnh
1. Tổ chức tiết thực hành (5’)
- HS thực hiện, ngồi vào mỏy của nhúm mỡnh theo yờu cầu của GV
- HS chỳ ý
- HS thực hiện khởi động mỏy
2. Thực hành
- HS thực hành khởi động phần mềm và làm theo yờu cầu của GV Bài tập 2 (15’) a, Phần khai bỏo: Program Xep_loai; uses crt; Var i, n: integer;
TBToan, TBVan: real;
trung bỡnh điểm mụn Toỏn + Văn của mỗi bạn trong lớp.
+ Viết ra giấy cõu lệnh tớnh điểm trung bỡnh của cả lớp theo từng mụn Toỏn và Ngữ văn.
GV nhận xột bài làm của cỏc nhúm.
GV đưa bài viết thõn bài trong SGK cho HS nghiờn cứu.
Yờu cầu HS gừ nội dung phần thõn chương trỡnh chỉnh sửa vào bài tập 1 trong mỏy tớnh.
HS thực hành gừ bổ sung cỏc cõu lệnh trờn vào vị trớ thớch hợp trong chương trỡnh. Thờm cỏc lệnh cần thiết, cho dịch và chạy chương trỡnh với cỏc số liệu thử. GV hướng dẫn cỏc em thực hành, chỳ y đến những HS yếu kộm. GV: Nhận xột cỏc nhúm GV đưa ra một số bài tập thờm. HS túm tắt lại yờu cầu của đề bài. HS thảo luận nhúm và thực hiện viết chương trỡnh ra nhỏp.
GV hướng dẫn cỏc em viết cỏc phần thõn cõu lệnh của chương trỡnh. Phần thõn chương trỡnh: Begin clrscr; writeln('Diem TB : '); For i:=1 to n do
write(i,' . ',(diemT[i] + diemV[i])/2:3:1); TBtoan: =0; TBvan: =0;
For i:=1 to n do Begin
TBtoan: = TBtoan + diemT[i] ; TBvan: = TBvan + diemV[i] ; end;
TBtoan: = TBtoan /n; TBvan: = TBvan /n;
writeln('Diem TB mon Toan : ',TBtoan :3:2); writeln('Diem TB mon Van: ',TBvan :3:2);
readln;
End.
b, Bổ sung cỏc cõu lệnh trờn vào vị trớ thớch hợp trong chương trỡnh. Thờm cỏc lệnh cần thiết, cho dịch và chạy chương trỡnh với cỏc số liệu thử. (adsbygoogle = window.adsbygoogle || []).push({});
Bỏo cỏo kết quả.
Bài tập 3 (10’)
Hĩy viết chương trỡnh in ra màn hỡnh dĩy số nhập từ bàn phớm, tớnh tổng dĩy số đú.
Yờu cầu HS nờu ý tưởng bài toỏn, giới thiệu chương trỡnh. Program Tong_day_so; Var I, n, sum: integer; A: arrray[1..100] of integer; Begin
Write(‘Hay nhap do dai cua day so, N = ’); readln(n);
Writeln(’Nhap cac phan tu cua day so:’) For i:= 1 to N do Begin Write(’a[’,i,’] = ’); Readln(a[i]) ; End; Sum:=0 ;
HS thực hành mở một trang lập trỡnh mới vag gừ nội dung bài tập vừa viết. Lưu lai với tờn “Bai tap
3.pas”.
Yờu cầu HS dịch và chạy chương trỡnh
Write(’Day so vua nhap la:’);
For i:= 1 to N do write(a[i], ’ ’); Writeln;
Write(’Tong cua day so la: ’,sum); Readln;
End.
HS thực hành. HS bỏo cỏo kết quả.
4. Củng cố: 6’
- Nhắc lại cỏch khai bỏo biến mảng… - Nhận xột tiết thực hành.
5. Hướng dẫn về nhà: 3’
- Về nhà ụ lại một số cõu lệnh cú điều kiờn, cõu lệnh lặp, khai bỏo biến mảng… và nhắc HS sử dụng hợp lý trong khi viết chương trỡnh.
- Tập viết một số chương trỡnh đơn giản.
Tiết 61
I.Mục đớch 1. Kiến thức
Kiểm tra cỏc kiến thức đĩ học
Tổng hợp lại kiến thức và khắc sõu.
2.Kĩ năng
Viết được chương trỡnh.
3.Thỏi độ
Cú ý thức tư duy, cú thỏi độ ham học hỏi, tỏc phong làm việc nghiờm tỳc.