II- CHUẨN BỊ PHƯƠG TIỆN DẠY HỌC
BÀI TẬP VÀ THỰC HÀNH
I. MỤC ĐÍCH.
1. Kiến thức:
- Củng cố khái niệm về chương trình con: Thủ tục, hàm, tham số giá trị, tham số biến, tham số thực sự, biến toàn cục, biến cục bộ.
2. Kỹ năng:
- Rèn luyện cho HS kỹ năng lập trình giải quyết một số bài toán đơn giản. - Nâng cao kĩ năng viết chương trình, rèn luyện tác phong, tư duy lập trình. II - ĐỒ DÙNG DẠY HỌC:
1. Chuẩn bị của giáo viên.
- Bài soạn.
- Sách giáo khoa, sách giáo viên, phòng máy.
2. Chuẩn bị của học sinh
- Vở ghi bài.
- Sách giáo khoa, đọc trước bài thực hành. III - HOẠT ĐỘNG DAY-HỌC:
1. Ổn định lớp:
2. Kiểm tra bài cũ: Không 3. Nội dung: Câu a: Uses crt; type str79 = string[79]; var s1, s2: str79; stop: boolean; dong:byte;
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;
Procedure ChuChay(s1:str79; dong:byte); Var s2:str79 ; stop: boolean; Begin Clrscr; CanGiua(s1); Clrscr; stop:=false; While not(stop) do Begin Gotoxy(1,dong); Write(s1); Delay(100); CatDan(s1,s2); Giáo án Tin học 11 75
s1:=s2; stop:= keypressed; end; end; Begin {Main} Clrscr;
Write('Nhap xau chu:'); readln(s1);
Write('Nhap dong xuat hien:');readln(dong); ChuChay(s1,dong); Readln End. Câu b: Program Chu_chay; Uses crt; 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 ®en dau dong 12*} Write(s1);
Delay(500); {* Dung 500 miligiay*} CatDan(s1,s2);
s1:=s2; stop:=keypressed;{Nhan mot phim bat ky de ket thuc} end;
readln End.
4- CỦNG CỐ:
- Chương trình con: thủ tục, hàm, tham trị, tham biến. 5- BÀI TẬP VỀ NHÀ: