BÀI THỰC HÀNH SỐ 6 pptx

1 BÀI THỰC HÀNH SỐ 6 Giáo viên hướng dẫn: Thầy Trần Doãn Vinh.. Sinh viên thực hiện: Trần Thị Hoàng yến... 2 Mục đích • Để giúp các em thành thạo hơn về thao tác xử lý xâu , kỹ năng t

1

BÀI THỰC HÀNH SỐ 6

Giáo viên hướng dẫn: Thầy Trần Doãn Vinh

Sinh viên thực hiện: Trần Thị Hoàng yến

Lớp K56A: Công nghệ thông tin – ĐHSP Hà Nội

2

Mục đích

• Để giúp các em thành thạo hơn về thao tác xử lý xâu , kỹ năng tạo hiệu ứng chữ chạy và nâng cao kỹ năng tạo chữ viết chúng

ta sẽ thực hành với máy vi tính

3

Xây dựng hai thủ tục Catdan(S1,S2)và

cangiua(S)

Nội dung :

Thủ tục catdan

Type Str79 =String[79]

Procedure catdan(S1:str79;varS2:str79);

Begin

S2 :=copy(S1,2,length(S1)-1)+S1[1];

End;

Thủ tục cangiua

procedure cangiua(var String:str79);

var i,n :Integer;

Begin

n:=length(S);

n:=(80-n)div2;

for i:=1 to n do S:=’’ +S;

End;

4

Nhập xâu kí tự từ bàn phím

Users 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) div2;

for i:=1 to n do S:=’’+S;

5

Nhập xâu kí tự từ bàn phím(tiếp)

End;

Beginclrscr;

write(‘Nhap xau S1:’);readln(S1);

cangiua(S1);

clrscr;

Stop :=false;

while not (stop) do

Begin

gotoxy(1,12);(*Chuyển con trỏ đến đầu dòng 12*)

write(S1);

6

Nhập xâu kí tự từ bàn phím(tiếp)

Begin

gotoxy(1,12);(*Chuyển con trỏ đến đầu dòng 12*)

write(S1);

delay(500);(*Dừng 500 miligiây*)

catdan(S1,S2);

S1 :=S2;

Stop :=keypressed;

(*Nhấn một phím bất kỳ để kết thúc*)

End;

Readln;

End;

-chạy chương trình với dòng chữ:

“ mừng nghìn năm Thăng Long_Hà Nội!

7

Viết thủ tục ChuChay(s,dong)

• Viết thủ tục chạy chữ ( S , Dong ) nhận trị số là xâu S gồm không quá 79 ký tự và 1 biến nguyên Dong In ra màn hình dòng chữ xác định bởi S chạy ở dòng Dong Viết chương trình và thực hiện có sử dụng thủ tục này