tuaàn 23 tuaàn 23 tieát 4546 baøi 8 laëp vôùi soá laàn chöa bieát tröôùc a muïc tieâu hs bieát nhu caàu caàn coù caáu truùc laëp trong chöông trình hieåu ñöôïc caáu truùc laëp vaän duïng vaøo giaûi b

-Ñeå vieát chöông trình chæ daãn cho maùy tính thöïc hieän caùc hoaït ñoäng laëp ta coù theå söû duïng caâu leänh coù daïng laëp vôùi soá laàn chua bieát tröôùc?. Vd2: tính toång caùc [r]

(1)

Tuần 23

Tiết 45,46 BÀI :LẶP VỚI SỐ LẦN CHƯA BIẾT TRƯỚC A.Mục tiêu :

-Hs biết nhu cầu cần có cấu trúc lặp chương trình -hiểu cấu trúc lặp vận dụng vào giải tập

B.Tiến trình giảng : 1.Ổn định:

2.Kiểm tra cũ : 3.Dạy : * Nội dung : HOẠT ĐỘNG

CUÛA GV

HOẠT ĐỘNG CỦA HS

NỘI DUNG Giới thiệu câu

lệnh lặp với số lần chưa biết trước ,cho vd để hs hiểu lặp với số lần chưa biết trước Giải thích cho hs hiểu vd sgk Giải thích lưu đồ

Nêu vd gọi hs thực giải

Hs lắng nghe cho vd thêm

Hs ý lắng nghe

Hs ghi

Hs lên bảng giải bt

I.Các hoạt động lặp với số lầm chưa biết trước :

VD: tưng bóng khơng đến bóng roi xuống đất

số lần lập biết sau bóng roi xuống

VD2: SGK  Lưu đồ :

-Để viết chương trình dẫn cho máy tính thực hoạt động lặp ta sử dụng câu lệnh có dạng lặp với số lần chua biết trước

Vd2: tính tổng số tự nhiên dầu tiên cho tổng 100

(2)

Giới thiệu cấu trúc câu lệnh Giải thích câu lệnh

Gọi hs phát biểu cách thực từ lưu đồ

Hướng dẫn hs tìm hiểu vd SGK ,gọi hs trình bày lại

Khi sãy lặp vô tận

Hs ghi

Phát biểu cách thực

Hs lên bảng làm laïi VD

Hs trả lời

nhiêu số lần thực nên phải sử dụng lệnh lặp trước

II/ Ví dụ câu lệnh lặp với số lần chưa biết trước :

1,Dạng câu leänh :

While <điều kiện > DO < câu lệnh >; Trong :

-điều kiện thường phép so sánh

Câu lệnh đơn giản hay câu lệnh ghép 2.Cách thực câu lệnh lặp : -1.Ktra điều kiện

2.Nếu Đk sai câu lệnh bi bỏ qua kết thúc ,Nếu ĐK thực câu lệnh quay bước

* Hướng dẫn ví dụ SGK : VD3:

VD 4: Tính tổng N số để tổng > 1000 1034

Vd : vieát chương trình tính tổng 1+1/2+1/3 +1/100

III.Lặp vô hạn lần –Lỗi lặp trình cần tránh : Vd (SGK )

Khi thực vòng lặp ĐK câu lặp phải thay đổi để giá trị đk chuyển từ sang sai để tránh rơi vào vòng lặp vô tận

VD : var a:integer; Begin

A:=5;

While a< Writeln (‘A’); End

 Ở ct lỗi nhỏ nên lặp khơng kết thúc

4.Cũng cố

(3)

7.Nhận xét rút kinh nghiệm điểm danh

-

-Tuần 24

Tiết 47,48 BÀI TẬP

A.Mục tiêu :

2.Kiểm tra cũ : 3.Dạy : * Nội dung :

Hướng dẫn hs giải tập SGK :

Bt : cho vd hoạt động lặp với số lần chưa biết trước :

-Tìm từ định sai lỗi tả văn sửa lại cho ,số từ cần sửa chưa biết trước

-Trong xưởng may Cn may chi tiết áo hết làm biết tạo sản phẩm

BT2: khác hai câu lệnh :

-Câu lệnh lặp với số lần chưa biết trước thị cho máy thực với số lần xác định ,cịn while số lần lặp chưa xác định

- ĐK for số nguyên while số thực

- for thực lần ktra điều kiện while ktra thực có khơng thực lần

BT3 : a Thuật toán thực lần lặp ,giá trị cuối 5.5 b Khơng vịng lặp thực đk khơng thỏa

BT4 :

a.Vòng lặp thực lần

b Vòng lặp thực vơ tận câu lệnh đk khơng thỏa n=n+1 thực tăngcịn s vần giữ ngun đk

BT5 : Lỗi vòng lặp : a.Thừa dấu : vòng lặp b.Thiếu dấu : câu lệnh gán

(4)

Bài tập : Viết chương trình tính tổng số tự nhiên đến tổng S>= 100 Program ct;

Var n, sum :integer; Begin

Sum:= 0; N:= 1;

While sum<= 100 Begin

Sum := sum + n; N:= n+1 ;

End;

Writeln (‘tong la’, sum ); Readln;

End

4.Cũng cố

5.Hướng dẫn học nhà

-

-Tuần 25

Tiết 49,50 SỬ DỤNG LỆNH LẶP WHILE DO A.Mục tiêu :

Hướng dẫn hs thực hành , cho hs gõ vào máy Cho tập cấu trúc while để hs làm

(5)

Program UCLN: Var M, N: integer; Begin

Write(‘M =’); Readln(M); Write(‘N =’); Readln(N); While M<>N do

If M>N then M:=M-N Else

N:=N-M; Writeln(‘UCLN=’,M);

Readln; 4.Cũng cố

-

-Tuần 26

Tiết 51 ÔN TẬP A.Mục tiêu :

HĐ CỦA GV HĐ CỦA HS NOÄI DUNG

Nhắc lại kiến thức cho hs hiểu cấu trúc

Trả lời câu hỏi GV BaØi Câu lệnh lặp

(6)

lặp tiến :

-For <biến đếm >:= <gtrị đầu > To <giá trị cuối > Do <câu lệnh> 4.Cũng cố

7.Nhaän xét rút kinh nghiệm điểm danh

-

-TIẾT 52 KIỂM TRA TIẾT

A.Mục tiêu :

B.Tiến trình giảng :

-

-Tuaàn 27

Tiết 53,54 PMHT : HỌC VẼ HÌNH VỚI PHẦN MỀM GEOGEBRA A.Mục tiêu :

B.Tiến trình giảng : 1.Ổn ñònh:

2.Kiểm tra cũ : 3.Dạy : * Nội dung : HOẠT ĐỘNG CỦA

GV HOẠT ĐỘNG CỦA HS NỘI DUNG

Giới thiệu phần mềm ,hướng dẫn hs khởi động

Quan sát thực theo hướng dẫn GV

1 Em biết phần mềm Geogebra ?

(7)

Hướng dẫn hs cách chuyển qua tiếng việt

Quan sát hình cho biết hình có ?

Các cơng cụ làm việc gồm ? Em kể tên công cụ liên quan đến đường thẳng ? Các công cụ liên quan đối tượng hình học ?

Bảng chọn , cơng cụ , khu vực vẽ hình

Di chuyển ,vẽ hình Đường thẳng qua điểm …

Đường trung trực, phân giác…

điểm đoạn thẳng ,đường thẳng có khả tự tạo gắn kết đối tượng hình học 2.Làm quen với phần mềm Geogebra tiếng việt :

a.Khởi động :

Nháy chuột vào biểu tượng chương trình

b.Giới thiệu hình Geogebra tiếng việt :

Opition  LanguageH-Z 

Vietnamese : chọn tiếng việt cho phần mềm

* Màn hình :

-Bảng chọn :là hệ thống lệnh phần mềm

-thanh công cụ : Chứa công cụ làm việc ,dùng để vẽ chỉnh sửa làm việc với đối tượng -khu vực vẽ hình khu vực dùng để vẽ hình

c.Giới thiệu cơng cụ làm việc :

 Cơng cụ di chuyển dùng để di chuyển hình

 Cơng cụ liên quan đến đối tượng để tạo điểm  Công cụ liên quan đến đoạn

đường thẳng ,tia qua hai điểm cho trước

 Công cụ liên quan đến đối tượng hình học

(8)

Làm tập 1,2,3 SGK Bài tập :

1.Vẽ tam giác ABC có AB = cm ,Ac = cm ,xác định đường trung trực tam giác , vẽ đường song song với cạnh dáy tam giác ,vẽ đường vng góc với cạnh đáy tam giác

2.vẽ đường thẳng tia phân giác tam giác …

4.Cũng cố

-

-Tuaàn 28

(9)

3.Dạy : * Nội dung : HOẠT ĐỘNG CỦA GV

NỘI DUNG Hãy liệt kê đối

tượng tự phụ thuộc?

Muốn ẩn đối tượng ta ?

nêu thao tác đổi tên đối tượng ?

ẩn tên đối tượng?

Đặt hủy vết chuyển động ta ? Xóa đối tượng có cách xóa ?

Điểm thuộc đt phụ thuộc

Đườngthẳng qua điểm , điểm nằm tự

Hủy chọn hiển thị

Chọn đổi tên bảng chọn

Hủy chọn hiển thị

Mở dấu vết chuyển động Có cách xóa

3.Đối tượng hình học :

a.Khái niệm đối tượng hình học : bao gồm nhiều đối tượng : đường thẳng , đoạn thẳng …

b.Đối tượng tự đối tượng phụ thuộc:

 Điểm thuộc đường thẳng  Đường thẳng qua điểm  Giao đối tượng hình học c.Danh sách đối tượng hình

d.Thay đổi thuộc tính đối tượng : * Aån đối tượng :

1.Nháy nút phải lên đối tượng 2.Hủy chọn hiển thị đối tượng bảng chọn

* Thao tác đổi tên đối tượng :

1.Nháy nút phải chuột lên đối tượng 1.Chọn đổi tên bảng chọn * Aån tên đối tượng : 1.Nháy nút phải lên đối tượng 2.Hủy chọn hiển thị tên đối tượng bảng chọn

* Đặt hủy vết chuyển động đối tượng :

1.Nháy nút phải lên đối tượng 2.chọn Mở dấu vết di chuyển * Xóa đối tượng :

1.dùng công cụ mũi tên nhấn delete

(10)

rồi xóa

3.Chon cơng cụ tẩy xóa cơng cụ nháy chuột lên đối tượng

4.Cũng cố

-Tuần 29

Thực hành vẽ hình BT 4,5 (SGK)

(11)

4.Cũng cố

- -Tuần 30

Tiết 59,60

BAØI 9:LAØM VIỆC VỚI DÃY SỐ A.Mục tiêu :

-Biết khái niệm mảng chiều

- Biếát cách khai báo mảng ,nhập mảng ,in,truy cập phần tử mảng -Hểu thuật tốn tìm số lớn

B.Tiến trình giảng : 1 Ổn định

2 Kiểm tra cũ 3 Dạy Nội dung :

(12)

HS Giới thiệu học

,neâu ví dụ giải thích ví du

Gọi hs đứng lên nhận xét nêu kết luận

GV hướng dẫn cách khai báo ï

Nêu câu lệnh khai báo ?

Nêu ví dụ để hs nhận xét

Gọi hs đứng lên cho vd

Cách truy cập mảng ?

Lắng nghe nhận xét

-lắng nghe ghi

Hs phát bieåu

Hs trả lời

1.Dãy số biến mảng: VD1(sgk)

-kết luận :

-một biến khai báo kiểu mảng biến gọi biến mảng

-Dữ liệu kiểu mảng tập hợp hữu hạn p tử có thứ tự p tử điều có kiểu liệu

2.Ví dụ biến mảng : a.Khai báo biến mảng : có hai cách khai báo :

+ Khai báo Trực tiếp biến mảng chiều:

VAR <tên biến mảng> : ARRAY [kiểu số] OF [kiểu p tử];

+Khai báo gián tiếp biến mảng chiều:

TYPE <tên kiểu mảng> = ARRAY [kiểu số] OF [kiểu p tử];

VAR <tên biến mảng> : <tên kiểu mảng>;

Trong :

-Kiểu số dãy số nguyên liên tục n1 n2, với n1,n2 bt cho kết là số nguyên.xác định số số cuối -Kiểu p tử kiểu pt mảng VD: var ccao: array [1 50] of real; Type mang= array [1 10] of integer; Var a:mang;

b.Truy cập mảng :

(13)

Cách nhập giá trị cho biến mảng ?

-Gv hướng dẫn hs giải bt tìm hiểu thuật tốn

Hs quan sát nhận xét

c.Nhập giá trị cho biến mảng :

Nhập gt cho pt mảng ,giống việc gán gtri cho biến đơn

VD: a[1]:=2; a[2]:=4;

-gán g trị lệnh READLN

-Có thể kết hợp lệnh for giúp việc gán hiệu :

Vd : for i:=1 to 10 Readln(a[i]);

3.Tìm giá trị lớn nhỏ dãy n p tư:û

VD3 (sgk ) Cũng cố

6 Hướng dẫn học nhà : 7 Rút kinh

nghiệm Tuần 31

Tiết 61

Bài : BÀI TẬP A.Mục tiêu :

- HS biết vận dụng khai báo dãy số c trình.nhận biết câu lệnh sai -sửa lỗi câu lệnh có

B.Tiến trình giảng : Ổn định

2.Kiểm tra cũ 3.Dạy : * Nội dung : BT2:

a.Var X :array [10,13] of integer; (sai daáu phẩy dấu hai chấm)  Var X : array [10 13] of integer;

b.Var X :array [5 10.5] of real; (sai giá trị kiểu số số nguyên) Var X :array [5 10] of real;

(14)

 Var X : array [3 5] of integer;

d.Var X :array[10 1] of integer; (sai giá trị đầu nhỏ giá trị cuối) Var X :array [4 10] of real ;(đúng )

BT3: Phát biểu BT4: Var N:integer;

A: array [1 N] of real;

 câu lệnh khai báo sau máy khơng thực câu lệnh giá trị sau phải số, không biến

Bt5:Chương trình Program ct;

Var I,n:integer;

A: array [1 50] of integer; Begin

Writeln (‘nhap n’); readln(n); For i:=1 to n

Begin

Writeln(‘nhap ptu a[‘,I,’]’); Readln(a[i]);

End; Readln; End 4.Cũng cố

-

-Tuần 31 Tiết 62

Bài TH7: XỬ LÝ DÃY SỐ TRONG CHƯƠNG TRÌNH A.Mục tiêu :

(15)

2.Kiểm tra cũ 3.Dạy : * Nội dung :

Hướng dẫn hs giải tập SGK

Viết chương trình nhập vào mảng n số in mảng nhập hình

Program ct; Var I,n:integer;

A: array [1 50] of integer; Begin

Writeln (‘nhap n’); readln(n); For i:=1 to n

Begin

Writeln(‘nhap ptu a[‘,I,’]’); Readln(a[i]);

End;

For i:=1 to n

Writeln(‘phan tu a[‘,I,’]’,a[i]); Readln;

End 4.Cũng cố

-

(16)

- HS biết vận dụng khai báo dãy số thực giải tập thực hành Một số dạng tập đơn giản

2.Kiểm tra cũ 3.Dạy : * Nội dung :

BT :1Viết chương trình nhập vào dãy n số ,in hình giá trị nhỏ dãy n số:

Type mang=array[1 20] of integer; Var a:mang; n,I,j,min:integer; Begin

Writeln(‘Nhap n’); Readln(n);

For i:=1 to n Begin

Writeln(‘nhap phan tu thu I’,I,’ ‘); Readln(a[i]);

End; Min:=a[1]; For i:=2 to n

If a[i]<min then min:=a[i]; Writeln(‘so lon nhat ‘,min); Readln;

End

2.Nhập vào dãy số nguyên từ bàn phím.Xác định giá trị lớn dãy:

Type mang=array[1 20] of integer; Var a:mang; n,I,j,max:integer; Begin

(17)

End; Max:=a[1]; For i:=2 to n

If a[i]>max then max:=a[i]; Writeln(‘so lon nhat ‘,max); Readln;

End 4.Cũng cố

-

-TUẦN 32

TIẾT 64 ÔN TẬP

A.Mục tiêu :

-Hs nhớ lại kiến thức học ,hệ thống lại tập B.Tiến trình giảng :

Ổn định

2.Kiểm tra cũ 3.Dạy : * Nội dung : HOẠT ĐỘNG

CUÛA GV

NOÄI DUNG 1.Hãy nêu cách khai

báo biến mảng :trực tiếp gián tiếp?

Hs leân bảng viết

lại cách khai báo Cách khai báo mảng:1.Cách khai báo trực tiếp : Var <tên biến mảng> :array

[kiểu số] of [kiểu phần tử];

Cách khai báo gián tiếp:

Type <tên biến mảng> =

(18)

2.khi khai báo mảng cần khai báo (chỉ rõ) gì?

3.Nêu lợi ích việc sử dụng biến mảng chương trình ?

4.Việc gán giá trị ,nhập giá trị tính tốn với giá trị phần tử biến mảng thực thông qua ?

Hs trả lời

tử];

Var <tên biến mảng> :<tên kiểu mảng>;

2.Khi khai báo mảng cần : Cần rõ :tên biến mảng,số lượng phần tử,kiểu liệu chung phần tử 3.Lợi ích việc sd biến trong ct

Sử dụng biến mảng câu lệnh lặp giúp cho việc viết chương trình ngắn gọn dễ dàng

4.việc gán nhập giá trị được thực :

Việc gán giá trị ,nhập giá trị tính tốn với giá trị phần tử biến mảng thực thơng qua số tương ứng phần tử * Bài Tập :

3.viết chương trình nhập vào dãy số Xác định in số âm dãy số dương dãy(5 điểm)

Type mang=array[1 20] of integer; Var a:mang; n,I:integer;

Begin

For i:=1 to n Begin

End;

begin

For i:=1 to n

(19)

For i:=1 to n

If a[i]<0 then write(a[i],’ ‘); Writeln;

End; Readln;

End 4.Cũng cố

-

-TUẦN 33 TIẾT 65

KIỂM TRA THỰC HÀNH (1 TIẾT )

1 Viết chương trình in tất vị trí xuất X dãy N phần tử.với x nhập từ bàn phím (5 điểm)

Type mang= array [1 20] of integer; Var a:mang;n,i:integer;

Begin

Writeln(‘nhap n’);readln(n); For i:=1 to n

Begin

Writeln(‘nhap ptu thu ‘,I); Readln(a[i]);

End;

Writeln(‘nhap x’);readln(x);

While (a[i] <> x) and (i<=n) i:=i+1; If i<=n then writeln(‘cac vi tri la’,I,’ ‘); Readln;

(20)

TIẾT 66

Bài PMHT : QUAN SÁT HÌNH KHƠNG GIAN VỚI PHẦN MỀM YENKA

A.Mục tiêu :

-Hs làm quen với phần mềm

-Biết cách sử dụng tạo hình từ phần mềm B.Tiến trình giảng :

Ổn định

CỦA GV HOẠT ĐỘNG CỦA HS NỘI DUNG

-Gv giới thiệu phần mềm

-GV hướng dẫn khởi động

-cho biết hình làm việc gồm ?

Nêu công dụng hộp công cụ ?

Nêu công dụng

-hs quan saùt

-hs khởi động

-Hs quan sát trả lời

1.Giới thiệu phần mềm:

-Là phần mềm đơn giản hữu ích giúp làm quen với hình khơng gian hình nón, hình chóp,có thể sáng tạo mơ hình hồn chỉnh theo ý

2.Giới thiệu hình làm việc phần mềm :

a.Khởi động phần mềm :

Nháy vào biểu tượng yenka để khởi động

b.Màn hình :

Hộp cơng cụ :dùng để tạo hình khơng gian

Thanh cơng cụ :Chứa nút lệnh dùng điều khiển làm việc

(21)

thanh công cu

Nêu cách tạo mô hình ï

nháy nút Close công cụ

3 Tạo hình không gian : a.Tạo mô hình:

vào hộp cơng cụ objects  có cơng cụ để tạo hình

 Xoay mô hình :  Phóng to thu nhỏ 4.Cũng cố

-

-Tuần 34 Tiết 67,68

A.Mục tiêu :

Ổn ñònh

-em cho biết lệnh tạo ,lưu, mở

Cách xóa đối tượng

-hs trả lời :new Open, save -Delete

b.Các lệnh tạo lưu, mở tệp mơ hình:

(22)

Em cho biết cách rhay đổi kích thướt đối tượng ?

Cách thay đổi màu ?

Thay đổi tính chất ?

 Save :löu

 Save as :lưu với tên khác c.Xóa đối tượng :

nhấn Delete

4.Khám phá điều khiển hình không gian :

a.thay đổi ,di chuyển : Kéo thả đối tượng b.Thay đổi kích thướt :

chọn đối tượng ,clik nút nhỏ đối tượng thay đổi

c.Thay đổi màu :

công cụ Paints chọn màu -kéo thả chuột màu ô hình xuất chấm đen

d.Thay đổi tính chất hình : nháy đúp lên đối tượng  xuất hộp thoại  tiến hành thay đổi

4.Cũng cố

-

-Tuần 35 Tiết 69,70

A.Mục tiêu :

(23)

B.Tiến trình giảng : Ổn ñònh

-nêu cách gấp giấy thành hình không gian ?

Cách mở hình khơng gian thành hình phẳng ?

Flatten có chức ?

Store angles :có chưc ?

Convert to shape có chức ?

-hs phát biểu

Chọn cylindẻ triangular

Trong hộp thoại tính chất nháy nút open

Tự động làm phẳng hình khơng gian Cố định vị trí lệnh gấp

Chuyển sang trạng thái D

e.Gấp giấy thành hình không gian:

-Gấp hình phẳng để tạo hình khơng gian:

1.Chọn cylinder Triangular prism net hộp công cụ kéo thả đối tượng vào nàm hình 2.Kéo thả chuột để thực thao tác gấp hình phẳng

gấp tự động cách nháy đúp chuột lên đối tượng mở hộp thoại tính chất.chọn lệnh font

 Mở hình khơng gian thành hình phẳng :

Trong hộp thoại tính chất nháy nút open

+ Flatten :tự động làm phẳng hình mơ hình

+ Fold :tự động gấp trạng thái trước lệnh Store +Store angles: cố định vị trí lệnh gấp.chỉ có tác dụng thực lệnh Fold

+Convert to Shape:chuyển trạng thái phẳng thành 3D 4.Cũng coá

(24)

-

A.Mục tiêu :

Ổn ñònh

-liệt kê số chức nâng cao ?

-HS quan sát thực hành lại

5.Một số chức nâng cao a.Thay đổi mẫu thể hình: 1.nháy đúp chuột để mở hộp thoại tính chất hình

2.Chọn lệnh thay đổi kiểu bề mặt 3.Chọn Use material  chọn mẫu material

b.Quay hình không gian : hộp tính chất khung Rotation có lệnh quay 4.Cũng cố

(25)

-

-Tuaàn 36-37 Tiết 72,73

ÔN TẬP A.Mục tiêu :

-Hs nhớ lại kiến thức học ,hệ thống lại tập B.Tiến trình giảng :

Ổn định

CỦA GV HOẠT ĐỘNGCỦA HS NỘI DUNG 2.Dạng câu lệnh

lặp? Dạng tiến ,dạng lùi?

3.Số lần lặp xác định trước công thức nào?

1.Dạng câu lệnh lặp với số lần lặp chưa biết trước ?

HS leân bảng ghi dạng

Hs lên bảng

Bài 7: CÂU LỆNH LẶP 1.dạng câu lệnh lặp :

Dạng câu lệnh lặp : * Dạng tiến :

FOR <biến đếm> := <giá trị đầu> TO <giá trị cuối> DO <câu lệnh>;

* Dạng lùi :

FOR <biến đếm> :=<giá trị cuối >

DOWNTO <giá trị đầu > DO <câu lệnh>; Số lần lặp :

Giá trị cuối – Giá trị đầu +1 BàI 8:LẶP VỚI SỐ LẦN CHƯA BIẾT TRƯỚC :

1.Dạng câu lệnh :

WHILE <điều kiện> DO <câu lệnh>;

2.

(26)

2.Lưu đồ câu lệnh lặp?

3.Cách thực câu lệnh lặp ?

Hs lên vẽ lưu đồ

Nêu cách thực

3.Cách thực câu lệnh lặp ?(các bước thực )

* Các bước thực hiện: 1.Kiểm tra điều kiện

2.Nếu điều kiện Sai,câu lệnh bỏ qua việc thực lệnh lặp kết thúc.Nếu điều kiện đúng,thực câu lệnh quay lại bước

Bài tập :

1.Viết ct nhập vào số N.tính in hình tổng N số lẻ? (5 điểm)

Program ct; Var n,i:integer; Sum: integer; Begin

Writeln (‘nhap n’); Readln(n);

Sum:=0; i:=1; While i<=n Begin

If ( i mod <> ) then sum:=sum+I; I:=i+1;

End;

(27)

Readln; End

2.Nhập vào số N.tính tổng số lẻ từ đến N Program ct;

Var n,i:integer; Sum: integer; Begin

Writeln (‘nhap n’); Readln(n);

Sum:=0; For i:=1 to n

If ( i mod <> ) then sum:=sum+I; Writeln(‘ tong la’,sum);

Readln; End 4.Cũng cố

-

-Tuần 37 : Tiết 74

KIỂM TRA HỌC KÌ II (THỰC HÀNH )

1.Viết ct tính tổng số tự nhiên đến tổng S>= 100 (5 điểm) Program ct;

(28)

Sum:=0; n:=1; While sum<=100 Begin

sum:=sum+n; n:=n+1; End;

Writeln(‘ so n nho nhat de tong >=100 la’,n); Writeln(‘ tong la’,sum);

Readln; End

2 Nhập vào dãy số nguyên từ bàn phím.Xác định giá trị nhỏ dãy.(5 điểm)

Type mang=array[1 20] of integer; Var a:mang; n,I,j,min:integer; Begin

For i:=1 to n Begin

End; Min:=a[1]; For i:=2 to n

If a[i]<min then min:=a[i]; Writeln(‘so lon nhat ‘,min); Readln;

Định dạng
Số trang	28
Dung lượng	312,3 KB