Bài 2: Viết ctrinh tìm ptử có gtri lớn nhất của mảng và đưa ra màn hình chỉ số và gtri của GV: Y/c hs đọc và nghiên cứu đề ptu tìm được.. Nếu có nhiều ptu có cùng gtri lớn nhất thì đưa r[r]
Trang 1Ngày soạn: 2/01/2010
Ngày dạy: 6/01/2010
Tiết : 24,25
BÀI TẬP VÀ THỰC HÀNH 3.
I.Mục đớch:
+
! trong pm ! hs cú !%& cỏc ( ) cban + ,
1 trong LT
- Khai bỏo
- 78+ qua : cỏc #6 * ! ;6 lớ = #6
+ Cung :# cho hs 3 1 toỏn và !? %@ A# , dl
Tớnh B và ! cỏc #6 C* món ! nào !$
Tỡm #6 max (min) * cựng , 5 trớ * nú trong H
II.Biện phỏp: 7I8 và J &# tỏc trong nhúm C
III Phương tiện:
- GV: Phòng máy vi tính.
- HS: Sách bài tập.
IV Nội dung tiết dạy
1 ổn định tổ chức:
2 Kiểm tra bài cũ:
3 Tiến trình bài học:
GV: Chia nhúm cho hs N hành
Y/c hs !J và nghiờn ! bài
-Y/c hs I8 %? trỡnh SGK(63)
và tỡm
Hs: I8 ctrinh theo y/c * gv
- M : Ctrl+F9 "W 1# n=5
- Y/c !I + 5 nhúm ! 18 !J
kq
HS: ! 18 !J 9 theo y/c
! I sao cựng 1 ctrinh và 1# n=5
thỡ I ra 3 9 khỏc nhau
=> - Hàm \ random(n) cho gtri
là
vi = 0 ! n-1
Bài1: Tạo mảng A gồm (n<=100) số nguyờn, mỗi số cú trị tuyệt đối khụng vượt quỏ 300 Tớnh tổng cỏc phần tử của mảng
là bội số của 1 số nguyờn dương k cho trước.
A, Tỡm hiểu và chạy ctrỡnh.
Program Sum1;
Uses crt;
Const nmax=100;
Type Myarray=array[1 nmax] of integer; Var A:Myarray;
S,n,I,k:integer;
Begin Clrscr; randomize;
Trang 2- Còn k Randomize dùng !
? Câu +
A[i]:=random(300)-random(300); có ý (* gì
Hs: Cho giá "5 ] nhiên trong
# I vi = 299 ! -299
? Câu + write(A[i]:5); có ý (*
gì
Hs: f 9 * A[i] cách
nhau 5 kí N
GV: Y/c hs !J và nghiên !
bài
-Y/c hs I8 %? trình SGK(64)
và tìm
? = MyArray có # là 1 hàm
\ ko? Có thay t 1 =
khác !%& không
v$ là tên dl do %@ 1# trình
N !A Vì nó không # là 1 hàm
\ và có thay t :
= gì do %@ 1# trình N !A
Hs: I8 ctrinh theo y/c * gv
Write (‘Nhap n=’);
Readln(n);
For i:=1 to n do A[i]:=random(300)-random(300);
For i:=1 to n do write(A[i]:5);
Writeln;
Write (‘Nhap k=’’);
Readln(k);
S:=0;
For i:=1 to n do
If A[i] mod k=0 then s:=s+A[i];
Writeln(‘Tong can tinh la: ’,s);
Readln End
Bài 2: f ctrinh tìm #6 có gtri , : *
ptu tìm !%& M có ptu có cùng gtri
A, Tìm ctrinh
Program MaxElement;
Const nmax=100;
Type Myarray=array[1 nmax] of integer; Var A:Myarray;
n,i,j:integer;
Begin Write (‘Nhap so luong ptu cua day so, N=’); Readln(N);
For i:=1 to n do Begin
Write (‘phan tu thu ’, I,’=’);
Readln(A[i]);
End;
J:=1;
For i:=2 to n do if A[i]>A[j] then j:=I;
Write (‘chi so : ’, j,’Gia tri: ‘, A[j]:4);
Readln End
Trang 3Hs:
B, ptu có cùng gtri , :
4 Cñng cè:
Gọi 1 hs lên máy chủ chạy lại chương trình
5 DÆn dß:
Về nhà viết chương trình tìm phần tử nhỏ nhất của mảng