Bài tập và thực hành 6

30/11/2006
1
BÀI THỰC HÀNH 6
NỘI DUNG
Tóm tắt lý thuyết.
Giới thiệu về thủ tục CatDan(S1, S2).
Tìm hiểu thủ tục CatGiua(S).
Thực hiện.
Rèn luyện kỹ năng.
30/11/2006
Tóm tắt Lý thuyết
2
Tóm tắt lý thuyết
Khái niệm chương trình con.
Lợi ích của việc sử dụng chương trình con.
Khái niệm và cách sử dụng thủ tục.
Khái niệm và cách sử dụng hàm.
Biến toàn cục, biến cục bộ.
Hãy phân biệt: tham trị, tham biến, tham số hình thức, tham số thực.
30/11/2006
Khái niệm CTC
3
Khái niệm CTC
Tổ chức chương trình thành các khối, mỗi khối giải quyết một bài toán con cụ thể.
Lợi ích:
+ Dễ đọc, dễ hiểu, dễ kiểm tra, phát hiện lỗi.
+ Làm việc theo nhóm.
+ Tránh việc lặp lại các đoạn lệnh.
+ Thuận tiện phát triển, nâng cấp.

30/11/2006
Thủ tục - hàm
4
Thủ tục - hàm
Thủ tục
Proceduce
[()];

Begin
{dãy các lệnh}
End;

Hàm
Function
([]):
Begin
{dãy các lệnh}
End;

30/11/2006
Biển thoàn cục - Biến cục bộ
5
Biến toàn cục – cục bộ.
Biến toàn cục
Khai báo ở chương trình chính.
Các chương trình con được sử dụng.
Biến cục bộ
Khai báo ở chương trình con.
Chỉ có tác dụng trong chương trình con mà nó được khai báo.
30/11/2006
Tham trị - Tham biến
6
Tham trị - Tham biến.
Tham trị
Không có từ khóa.
Tham số thực là các giá trị.
Tham biến
Sử dụng từ khóa VAR.
Tham số thực là các biến.
30/11/2006
Thủ tục CatDan(S1, S2)
7
Thủ tục CatDan(S1, S2).
Input là xâu S1 và Output xâu S2.
Ví dụ:
Nếu S1 = “abcd” thì S2 = “bcda”.
Thủ tục :
Procedure CatDan(S1 : Str79; Var S2 : Str79);
Begin
S2 := Copy(S1,2,Length(S1) – 1) + S1[1];
End;
Chuỗi S1,S2 không quá 79 kí tự
Type Str79 = String[79];
Chiều dài xâu S
Copy
Lấy các ký tự thừ thứ 2 đến chiều dài của chuỗi S1 gán cho S2.
S2 phải là tham biến vì S2 nhận giá trị mới sau lời gọi thủ tục được thực hiện.
30/11/2006
Thủ tục CanGiua(S)
8
Thủ tục CanGiua(S).
Input: Xâu S không quá 79 ký tự.
Output: In ra màn hình xau S được canh giữa màn hình.
abcd
abcd
30/11/2006
Thủ tục CanGiua
9
Thủ tục CanGiua(S).
Procedure CanGiua(Var S : Str79);
Var i, n : Integer;
Begin
n := (80 – Length(S)) DIV 2;
For i := 1 To n Do S := ‘ ‘ + S;
End;
30/11/2006
10
Thực hiện.
Begin
Clrscr;
Write(‘Nhap xau S1 : ’);
Readln(S1);
CanGiua(S) ;
Clrscr;
Stop = false;
While not(Stop) do
begin
Gotoxy( 1, 12);
Write(S1);
Delay (500);
Catdan( S1, S2);
S1 := S2;
Stop = keypressed ;
End ;
End.
30/11/2006
Rèn luyện kỹ năng
11
Rèn luyện kỹ năng
Hãy viết thủ tục ChuChay(S,dong).
Input là xâu S không qua 79 kí tự và biến nguyên dong, cho xâu S chạy giữa màn hình ở dòng dong
Viết và chạy thử chương trình có sử dụng thủ tục này?