1. Trang chủ
  2. » Luận Văn - Báo Cáo

tiãút 1 giaïo aïn tin hoüc 11 tiet22giaoan doc ngaìy soaûn monday november 19th 2007 maíng 1 chiãöu baìi táûp i muûc tiãu 1 kiãún thæïc cuíng cäú kiãún thæïc vãö kiãøu biãún maíng 1 chiãöu âäöng thå

2 0 0

Đang tải... (xem toàn văn)

THÔNG TIN TÀI LIỆU

Thông tin cơ bản

Định dạng
Số trang 2
Dung lượng 10,81 KB

Các công cụ chuyển đổi và chỉnh sửa cho tài liệu này

Nội dung

Kiến thức :  Củng cố kiến thức về kiểu biến mảng 1 chiều  Đồng thời củng cố kiến thức về các đối tượng trong TP đã học 2.. Kỷ năng:  Học sinh có thể sử dụng cách tính biểu thức trong

Trang 1

Ngày soạn: Monday, November 19th 2007

MẢNG 1 CHIỀU

BÀI TẬP

I MỤC TIÊU :

1 Kiến thức :

 Củng cố kiến thức về kiểu biến mảng 1 chiều

 Đồng thời củng cố kiến thức về các đối tượng trong TP đã học

2 Kỷ năng:

 Học sinh có thể sử dụng cách tính biểu thức trong chương trinh

II TRỌNG TÂM KIẾN THỨC

 Cách sử dụng các câu lệnh về lập trình đặc biệt là câu lệnh For

III CHUẨN BỊ GIÁO CỤ:

Giáo viên : Chọn bài tập, các bài tập mở rộng nâng

cao

Học sinh: Làm các bài tập đã ra ở nhà.

IV TIẾN TRÌNH BÀI DẠY:

1 ỔN ĐỊNH LỚP-KIỂM TRA SĨ SỐ:

2 KIỂM TRA BÀI CŨ:

3 NỘI DUNG BÀI MỚI:

NỘI DUNG PHƯƠNG PHÁP GIẢNG DẠY Bài 1: Tính nhiệt độ trung bình

trong năm biết nđ TB của 12 tháng

VAR A: ARRAY[1 12] OF REAL;

Dem, I: integer; S,TB: Real;

FOR i:=0 TO 12 DO

Begin

Write('A[' ,i, ' ]='); Readln(A[i]);

end; Dem:=0; S:=0;

FOR i:=0 TO 12 DO

IF a[i]>0 then

Begin

Dem:=Dem+1;

S:=S+a[i];

End;

Writeln('So phan tu duong: ' , dem);

TB:=S/dem;

Writeln('TB phan tu duong: ' ,

TB:10:2);

 Học sinh lên bảng giải bài tập

 GV hoàn thiện , cho điểm Công việc:

 Xác định dữ liệu vào, ra

 Các bước giải thuật Kiến thức:

 Cú pháp khai báo

 Cú pháp lệnh

 Cách đ ût tên Biến, h òng ă ă Dem:=0; S:=0;

FOR i:=0 TO 12 DO

IF a[i]>0 then Dem:=Dem+1; Writeln('So phan tu duong: ' , dem); FOR i:=0 TO 12 DO

IF a[i]>0 then S:=S+a[i];

tb:=S/dem;

Writeln('TB phan tu duong: ' , TB:10:2);

TIẾT

22

Trang 2

Bài 2:

VAR F: ARRAY[1 10] OF INTEGER;

I: integer;

F[1]:=1;

F[2]:=1;

FOR i:=3 TO 10 DO f[i]:=f[i-1]+f[i-2];

FOR i:=1 TO 10 DO

Write(F[i]:5);

Bài 3:

VAR A: ARRAY[1 100] OF Integer;

I: integer; S1,s2,p3: real;

FOR i:=1 TO 100 DO a[i]:=i*i+2;

S1:=0; s2:=0; p3:=1;

FOR i:=1 TO 100 DO

IF a[i] MOD 3 = 0 then

S1:=S1+a[i];

FOR i:=1 TO 100 DO

IF a[i] MOD 7 = 4 then

S2:=S2+SQRT(a[i]);

FOR i:=20 TO 35 DO P3:=p3*a[i];

Writeln('Tổng pt chia het cho 3: ',S1:12:0);

Writeln('Tổng can bac 2 pt chia 7 du 4:

',S2:15:2);

Writeln('Tich pt tu 20 den 35: ',P3:12:0);

Bài 4: Cho mảng A có n phần tử số

thực tìm giá trị lớn nhất (bài tập làm

thêm)

 Học sinh lên bảng giải bài tập

 GV hoàn thiện , cho điểm

Công việc:

 Xác định dữ liệu vào, ra

 Các bước giải thuật Kiến thức:

 Cú pháp khai báo

 Cú pháp lệnh

 Cách đ ût tên Biến, ă

h òng ă

4 CỦNG CỐ:

5 DẶN DÒ:

 Về nhà làm các bài tập đã cho ở SGK và sách BT

Ngày đăng: 11/04/2021, 15:45

TÀI LIỆU CÙNG NGƯỜI DÙNG

TÀI LIỆU LIÊN QUAN

🧩 Sản phẩm bạn có thể quan tâm

w