BÀI THỰC HÀNH SỐ 6 pptx
Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (294.54 KB, 7 trang )
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.
