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

Chia sẻ: Paradise4 Paradise4 | Ngày: | Loại File: PDF | Số trang:7

Thêm vào BST

Báo xấu

62
lượt xem 4
download

Download Vui lòng tải xuống để xem tài liệu đầy đủ

• Để 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 .

Chủ đề:

Bình luận(0) Đăng nhập để gửi bình luận!

Lưu

Nội dung Text: BÀI THỰC HÀNH SỐ 6

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. 1
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 . 2
Nội dung : Xây dựng hai thủ tục Catdan(S1,S2)và Thủ tục catdan Type Str79 cangiua(S). =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; 3
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; 4 for i:=1 to n do S:=’’+S;
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); 5
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ữ: 6 “.....mừng nghìn năm Thăng Long_Hà Nội!...
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. 7