Giáo án môn Tin học 11 - Bài tập và thực hành 5

B, Khai báo thêm biến nguyên Dem và bổ sung vào ctrinh những câu lệnh cần thiết để biến Dem tính số lần thực hiện tráo đổi trong thuật toán.. Đưa kq tìm được ra màn hình.[r]

Ngày soạn: 23/1

Ngày dạy: 27/1

Tiết : 30,31

BÀI TẬP VÀ THỰC HÀNH 5.

I.Mục đích:

-

-

trong LT

- Cung

- Góp

II Biện pháp: CD? và E h)5 tác trong nhóm F

III Phương tiện:

- GV: Phòng máy vi tính.

- HS: Sách bài 65

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 I hành.

Y/c hs "E và nghiên ! " bài

-Y/c hs

tìm 

Hs: làm theo

GV: Câu

Begin T:=A[i];

A[i]:=A[i+1];

A[i+1]:=t;

End;

HS: Trao doi A[i] và A[i+1]

Bài 1: Hãy tìm hiểu và chạy thử ctrinh thực hiện thuật toán sắp xếp dãy số nguyên bằng thuật toán tráo đổi với các giá trị khác nhau của n dưới đây.

Program sapxepdayso;

Uses crt;

Const nmax=250;

Type ArrInt=array[1 nmax] of integer;

Var A:ArrInt;

n,i,j,y: integer;

Begin Clrscr; randomize;

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;

For j:=n downto 2 do For i:=1 to j-1 do

If A[i] >A[i+1] then Begin

Lop11.com

GV: Nxét  7 gian D? ctrinh.

HS:

GV: Y/c hs nghiên ! và làm 5 5<

b

-

HS: C(2 25 làm bài

- 1 hs

- ;) ý cho E sinh dùng vòng 85

While do M.85 2  < (B 

#(2P

- HS: Nghiên ! và làm bài 65 trên

máy

T:=A[i];

A[i]:=A[i+1];

A[i+1]:=t;

End;

Writeln(‘Day so duoc sap xep la: ’);

For i:=1 to n do Write (A[i]:7);

Writeln;

Readln End

+ Qua đó nhận xét về thời gian chạy ctrinh.

B, Khai báo thêm  nguyên Dem và n sung vào ctrinh

tính  < I 1 tráo "n trong 6 toán o(B kq tìm "() ra màn hình

3

xâu thành t0 ký I em

KQ  cùng thu "()

Program bai3;

Var vt: Byte;

St: string;

Begin Write (‘ Moi ban nhap vao mot xau: ’);

Readln (st);

While pos (‘anh’, st) <> 0 do Begin

Vt:= pos (‘anh’, st);

Delete(st, vt, 3);

Insert (‘em’, st, vt);

End;

4 Củng cố:

- Yêu < w D cú pháp B các hàm sao chép, di ?A chèn xoá d trong xâu

5.Dặn dò:

- Nghiên ! và bài 65 trong SGK trang 72.

Lop11.com

GV: Nxét  7 gian D? ctrinh.

HS:

GV: Y/c hs nghiên ! làm  5 5<

b

-

HS: C(2 25 làm

- hs

- ;) ý... Củng cố:

- Yêu < w D cú pháp B hàm chép, di ?A chèn xố d xâu

5. Dặn dị:

- Nghiên !  65 SGK trang 72.

Lop11.com

For i:=1 to n write(A[i] :5) ;

Writeln;

For j:=n downto For i:=1 to j-1

If A[i] >A[i+1] then Begin

Lop11.com