Tiết 3 6 tin 11 ôn tập (có thực hành)

Tiết 35: ÔN TẬP
I. Ôn tập các kiến thức về "Mảng 1 chiều".
Giáo án điện tử tin học lớp 11
Đỗ Quang Trung – THPT Hồng Quang
Bài tập: Cho mảng 1 chiều gồm n phần tử (1Hướng dẫn
1. Ôn tập các kiến thức cơ bản về mảng 1 chiều
Tên chương trình,
thư viện, biến mảng,
biến nguyên, biến thực
Program Ontap1a2; Ues crt; Var A,B:array[1..100] of integer; n,i,j,k,s,demk,tongk,min,csmin: integer;tb:real;
1.Bắt đầu Nhập n,k
BEGIN clrscr; Repeat Write(‘ MOI BAN NHAP SO NGUYEN n = ‘); readln(n) Write(‘ MOI BAN NHAP SO NGUYEN k = ‘); readln(k) if (n<0) or (n>100) then Writeln(‘Moi ban nhap lai ‘); until (n>0) and (n<100);
For i: = 1 to n do Begin Write(‘ Moi ban nhap phan tu thu A[‘,I,’]= ‘); readln(A[i]); end; Writeln;
Write(‘ Mang vua nhap la : ‘ ); For i: = 1 to n do Write (A[I]:5); Writeln;
2.Nhập các pt.
3.In mảng vừa nhập
6.Tính, in ra tổng các pt chia kết cho k
5.Tính, in ra GTTB ..
s:=0; For i:= 1 to n do begin s:=s+A[i]; tb:=s/n; end;
Write(` Gia tri TB cac phan tu cua mang la :`,tb:8:3); writeln;
tongk:=0; for i:=1 to n do
begin if a[i] mod k = 0 then tongk:=tongk+A[i];end;
Write(` Tong cac phan tu chia het cho `, k,` la: `,tongk:5);Writeln;
4.Đếm số pt không chia hết cho k
demk:=0; for i:= 1 to n do
If A[i] mod k <> 0 then demk:=demk+1;
Write(‘Mang co `,demk,` phan tu khong chia het cho `,k); writeln;
Bài tập: Cho mảng 1 chiều gồm n phần tử (1Hướng dẫn
1. Ôn tập các kiến thức cơ bản về mảng 1 chiều
1.Tên chương trình,
thư viện, biến mảng,
biến nguyên, biến thực
2.Bắt đầu Nhập n,k
3.Nhập các pt của mảng.
4.In ra mảng vừa nhập
6.Tính, in ra tong các pt chia kết cho k
5.Tính, in ra GTTB ..
s:=0; For i:= 1 to n do begin s:=s+A[i]; tb:=s/n; end;
Write(` Gia tri TB cac phan tu cua mang la :`,tb:8:3); writeln;
tongk:=0; for i:=1 to n do
begin if a[i] mod k = 0 then tongk:=tongk+A[i];end;
Write(` Tong cac phan tu chia het cho `, k,` la: `,tongk:5);Writeln;
min:=A[1];csmin:=1; for i:=2 to n do
if a[i]writeln(` Phan tu A[min]= `,min:3);
writeln(` Chi so cua A[min] la `,csmin); writeln;
7.Tìm pt min và chỉ số của pt min
8.Hoán đổi vị trí
begin for i:= 1 to n do begin
B[i]:=a[n-i+1];end; Writeln(` Day sau khi doi cho la: `);
for i:= 1 to n do write(B[i]:5); end; writeln;
9.Sắp xếp
begin for j:=n downto 2 do for i:= 1 to j-1 do if a[i]Writeln(` Day so duoc sap xep la `);
for i:= 1 to n do Write(A[i]:5); end;
10.Kết thúc
readln
END.
? Cỏc thao tỏc hay g?p v?i m?ng 1 chi?u:
Nhập mảng

In mảng

Đếm số phần tử thoản mãn đk nào đó

Tính tổng các phần tử thoả mãn đk nào đó

Tính giá trị trung bình thoả mãn đk nào đó

Sắp xếp mảng theo đk nào đó

Tráo đổi vị trí các pt của mảng theo đk nào đó
……….
ĐỂ LÀM NGƯỜI TỐT
ĐỂ CHUNG SỐNG TỐT
ĐỂ NGÀY MAI LẬP NGHIỆP
HỌC TẬP!
CHÌA KHOÁ CỦA THÀNH CÔNG LÀ GÌ?
CÔNG NGHỆ TÔNG TIN!
BẠN TỐT NHẤT LÀ AI?:
GOOOOOOGLE!
ĐỂ LÀM NGƯỜI TỐT
ĐỂ CHUNG SỐNG TỐT
ĐỂ NGÀY MAI LẬP NGHIỆP
HỌC TẬP!
CHÌA KHOÁ CỦA THÀNH CÔNG LÀ GÌ?
CÔNG NGHỆ TÔNG TIN!
BẠN TỐT NHẤT LÀ AI?:
GOOOOOOGLE!
ĐỂ LÀM NGƯỜI TỐT
ĐỂ CHUNG SỐNG TỐT
ĐỂ NGÀY MAI LẬP NGHIỆP LÀM GÌ?
HỌC TẬP!
CHÌA KHOÁ CỦA THÀNH CÔNG LÀ GÌ?
CÔNG NGHỆ TÔNG TIN!
BẠN TỐT NHẤT LÀ AI?:
GOOOOOOGLE!
Bài tập: Nhập 2 xâu : s1 = Hoc sinh truong THPT Hong Quang hoc tap vi ngay mai lap nghiep; s2 = “lop 11a2” a.Đếm số ký tự của xâu s1, có bao nhiêu ký tự “n”; b. Dùng lện copy để được xâu “học tập” c. Chèn xâu s2 vào s1 để được xâu “Hoc sinh lop 11a2 truong THPT Hong Quang hoc tap vi ngay mai lap nghiep; d. Đưa ra các chữ số có trong xâu trên. e. Xoá xâu trên để được xâu “Hoc sinh lop 11a2 hoc tap vi ngay mai lap nghiep”;
Hướng dẫn
2. Ôn tập các kiến thức cơ bản về kiểu xâu
Tên chương trình,
thư viện, biến xâu,
biến nguyên,
program bai2a2; uses crt;
var s1,s2,s3,s4:string; n,i,k,demn:integer;
1.Bắt đầu Nhập S1,S2
BEGIN clrscr;
Write(`Moi ban nhap xau s1 = `); readln(s1);
Write(`Moi ban nhap xau s2 = `); readln(s2);
k:=length(s1); Write(` Xau s1 co `, k :3 ,` ky tu`); writeln;
demn:=0; for i:= 1 to k do if S1[i] = `n` then demn := demn +1;
write(` co `,demn,` ky tu n trong xau S1`);writeln;
2.Độ dài xâu
3.Đếm ký tự “n”
6.In ra các số trong xâu
5. Chèn xâu
insert(s2,s1,10);writeln(` Xau sau khi chen la:`,s1);
s4:=``; for i:=1 to length(s1) do
if (`0`<= s1[i]) and (s1[i]<=`9`) then s4:=s4+s1[i];
Writeln(` Cac chu so co trong xau la:`,s4);
4. Lệnh copy
s3:=copy(s1,32,8); write(` Xau copy la: `,s3); writeln;
delete(s1,18,22); Writeln(` Xau sau khi xoa la: `,s1);
7.Xoá xâu
8. Kết thúc
Readln END.
ĐỂ LÀM NGƯỜI TỐT
ĐỂ CHUNG SỐNG TỐT
ĐỂ NGÀY MAI LẬP NGHIỆP
HỌC TẬP!
CHÌA KHOÁ CỦA THÀNH CÔNG LÀ GÌ?
CÔNG NGHỆ TÔNG TIN!
BẠN TỐT NHẤT LÀ AI?:
GOOOOOOGLE!
ĐỂ LÀM NGƯỜI TỐT
ĐỂ CHUNG SỐNG TỐT
ĐỂ NGÀY MAI LẬP NGHIỆP
HỌC TẬP!
CHÌA KHOÁ CỦA THÀNH CÔNG LÀ GÌ?
CÔNG NGHỆ TÔNG TIN!
BẠN TỐT NHẤT LÀ AI?:
GOOOOOOGLE!
ĐỂ LÀM NGƯỜI TỐT
ĐỂ CHUNG SỐNG TỐT
ĐỂ NGÀY MAI LẬP NGHIỆP
HỌC TẬP!
CHÌA KHOÁ CỦA THÀNH CÔNG LÀ GÌ?
CÔNG NGHỆ TÔNG TIN!
BẠN TỐT NHẤT LÀ AI?:
GOOOOOOGLE!
Nhập xâu

Copy xâu

Xoá xâu

Chèn xâu

Đếm ký tự thoả mãn đk nào đó

Tráo đổi ký tự theo đk nào đó

Tìm ký tự thoả mãn điều kiện nào đó
………..

Các thao tác hay gặp với DL kiểu xâu:
Ghi nhớ!
? Cỏc thao tỏc hay g?p v?i m?ng 1 chi?u:
Nhập mảng
In mảng
Đếm số phần tử thoản mãn đk nào đó
Tính tổng các phần tử thoả mãn đk nào đó
Tính giá trị trung bình thoả mãn đk nào đó
Sắp xếp mảng theo đk nào đó
Tráo đổi vị trí các pt của mảng theo đk nào đó
Các thao tác hay gặp với DL kiểu xâu:
nhập xâu
Copy xâu
Xoá xâu
Chèn xâu
Đếm ký tự thoả mãn đk nào đó
Tráo đổi ký tự theo đk nào đó
Tìm ký tự thoả mãn điều kiện nào đó

ĐỂ LÀM NGƯỜI TỐT
ĐỂ CHUNG SỐNG TỐT
ĐỂ NGÀY MAI LẬP NGHIỆP
HỌC TẬP!
CHÌA KHOÁ CỦA THÀNH CÔNG LÀ GÌ?
CÔNG NGHỆ TÔNG TIN!
BẠN TỐT NHẤT LÀ AI?:
GOOOOOOGLE!
ĐỂ LÀM NGƯỜI TỐT
ĐỂ CHUNG SỐNG TỐT
ĐỂ NGÀY MAI LẬP NGHIỆP
HỌC TẬP!
CHÌA KHOÁ CỦA THÀNH CÔNG LÀ GÌ?
CÔNG NGHỆ TÔNG TIN!
BẠN TỐT NHẤT LÀ AI?:
GOOOOOOGLE!
ĐỂ LÀM NGƯỜI TỐT
ĐỂ CHUNG SỐNG TỐT
ĐỂ NGÀY MAI LẬP NGHIỆP
HỌC TẬP!
CHÌA KHOÁ CỦA THÀNH CÔNG LÀ GÌ?
CÔNG NGHỆ TÔNG TIN!
BẠN TỐT NHẤT LÀ AI?:
GOOOOOOGLE!