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. . 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. 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ủ. 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