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

GV: Kiểm tra hướng dẫn và gợi ý cho Begin N:=length s; hs hoàn thành bài tập thực hành.. Viết ctrinh nhập hai xâu bất kỳ từ bàn phím và đưa ra màn hình có dạng dòng chữ chạy giữa màn hìn[r]

Ngày soạn: 20/3

Ngày dạy: 26/3

Tiết : 44, 45

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

I.Mục đích:

- Cho hs tìm  các thao tác  lí xâu,cách    ! " # trên màn hình

-

*4 5 ! 67 trong +  và sd ctrình con trong LT

II.Biện pháp: :# và ; 30 tác trong nhóm <'

III Phương tiện:

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

- HS: Sách bài @0'

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: Ôn  *D  E cho ; sinh

HS: G !  H $7 I câu <'

GV: Chia nhóm cho ; sinh !J theo

máy

HS: !J 2 em L máy

GV: Yêu N 2  +D ( O catdan, 2

 +D ( O cangiua

HS: -P hành theo yêu N ( gv

GV: Q tra 2R ! 8S và !3 ý cho

hs hoàn thành bài @0 P hành

A./ Lý #D

? VW  cách +D ( O và hàm

? VW  các thao tác  lý xâu

B: Bài @0

a Xây 8P ! hai ( O sau:

* -( O CATDAN(s1, s2):

type str79=string[79];

procedure catdan(s1:str79; var s2:str79);

begin s2:=copy(s1,2, length (s1)-1) +s1[1];

end;

* -( O CANGIUA(s):

=$K8(K CanGiua (var s:str 79);

Var i, n: integer;

Begin N:=length (s);

N: = (80-n) div 2;

For i:=1 to n do s:= ‘ ‘+s;

End;

b BD ctrinh @0 hai xâu 6i *j k bàn phím và /2 ra màn hình có 8 ! dòng " # !" màn hình

program btth6;

uses crt;

Lop11.com

GV: Yêu N hs W0 ghép và hoàn 

) yêu N ( bài

HS: -P hành theo yêu N ( gv

GV: Q tra 2R ! 8S và !3 ý cho

hs hoàn thành bài @0 P hành

type str79=string[79];

var s1, s2:str79;

stop:boolean;

procedure catdan(s1:str79; var s2:str79);

begin s2:=copy(s1,2, length (s1)-1) +s1[1];

end;

procedure cangiua (var s:str79); var i,n:integer;

begin n:=length (s);

n:=(80-n) div 2;

for i:=1 to n do s:= ' '+s;

end;

begin clrscr;

write ('nhap xau s1: ');

readln(s1);

cangiua(s1);

clrscr;

stop:=false;

while not (stop) do begin

gotoxy (1,12);(*chuyen con tro den dau dong 12*)

write(s1);

delay(500); (*dung 500miligiay

*) catdan(s1, s2);

s1:=s2;

stop:=keypressed; (*nhan mot phim bat ky de ket thuc *) end;

readln end

4

Lop11.com

GV: Yêu N hs W0 ghép hoàn 

) yêu N (

HS: - P hành theo yêu N ( gv

GV: Q tra 2R ! 8S !3 ý cho

hs hoàn thành @0 P hành

type... catdan,

 +D ( O cangiua

HS: - P hành theo yêu N ( gv

GV: Q tra 2R ! 8S !3 ý cho

hs hoàn thành @0 P hành

A./ Lý #D

? VW  cách...

-

*4 ! 67 +  sd ctrình LT

II.Biện pháp: :# ; 30 tác nhóm <''

III Phương tiện:

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

- HS: Sách