Giải bài tập Tin học 11 Bài tập và thực hành 6 VnDoc com Thư viện Đề thi Trắc nghiệm Tài liệu học tập miễn phí Trang chủ https //vndoc com/ | Email hỗ trợ hotro@vndoc com | Hotline 024 2242 6188 Giải[.]
Thư viện Đề thi - Trắc nghiệm - Tài liệu học tập miễn phí Giải tập Tin học 11: Bài tập thực hành Mục đích, yêu cầu + Rèn luyện thao tác xử lí xâu, kĩ tạo hiệu ứng cho chữ chạy hình + Nâng cao kĩ viết, sử dụng chương trình Nội dung + Thủ tục CatDan(s1,s2) nhận đầu vào xâu s1 gồm khơng q 79 kí tự, tạo xâu s2 thu từ xâu s1 việc chuyển kí tự xuống vị trị cuối Ví dụ s1='abcd' s2='bcda' Type str79=string[79];Procedure CatDan(s1:str79; var s2:=str79); Begin S2:=copy(s1,2,length(s1)-1)+s1[1]; End; + Thủ tục CanGiua(s) nhận đầu vào xâu s gồm không 79 kí tự, bổ sung vào đầu dịng s số dấu cách để đưa hình xâu kí tự s Procedure CanGiua(var s:str79) Var I,n:integer; Begin N:=length(s); N:=(80-n ) div 2; For i:=1 to n s:=' '+s;End; b) Theo dõi cách sử dụng hai thủ tục trên, ta viết chương trình sau để nhập xâu kí tự từ bàn phím đưa xâu hình có dạng dịng chạy mà có dạng dịng chữ chạy hình văn 25*80 uses 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); Trang chủ: https://vndoc.com/ | Email hỗ trợ: hotro@vndoc.com | Hotline: 024 2242 6188 Thư viện Đề thi - Trắc nghiệm - Tài liệu học tập miễn phí begin end var i,n:integer; begin n:=length(s); n:=(80-n) div 2; for i:=1 to n s:=' '+s; end; clrscr; write('Nhap xau s1:'); readln(s1); CanGiua(s1); clrscr; stop:=false; while not(stop) begin gotoxy(1,12); write(s1); delay(500); CatDan(s1,s2); s1:=s2; stop:=keypressed; end; Readln Thử chạy với dòng chữ '… Mung nghin nam Thang Long-Ha Noi! ' Trang chủ: https://vndoc.com/ | Email hỗ trợ: hotro@vndoc.com | Hotline: 024 2242 6188 Thư viện Đề thi - Trắc nghiệm - Tài liệu học tập miễn phí c) Hãy viết thủ tục ChuChay(s,dong) nhận đầu vào xâu s gồm khơng q 79 kí tự biến nguyên dong, đưa xâu s có dạng chữ chạy dịng dong Viết chương trình đưa xâu s có dạng chữ chạy dịng dong Viết chạy chương trình có sử dụng thủ tục uses crt; type str79=string[79]; var s1,s2:str79; stop:boolean; dong:integer; procedure ChuChay(s:string;dong:integer); begin gotoxy(1,dong); write(s);end; 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) div 2; for i:=1 to n s:=' '+s; end;begin clrscr; write('Nhap xau s1:'); readln(s1); write('Nhap vao dong '); readln(dong); CanGiua(s1); Trang chủ: https://vndoc.com/ | Email hỗ trợ: hotro@vndoc.com | Hotline: 024 2242 6188 Thư viện Đề thi - Trắc nghiệm - Tài liệu học tập miễn phí end clrscr; stop:=false; while not(stop) begin ChuChay(s1,dong); delay(500); CatDan(s1,s2); s1:=s2; stop:=keypressed; end; Readln Kết quả: Xem thêm tại: https://vndoc.com/tai-lieu-hoc-tap-lop-11 Trang chủ: https://vndoc.com/ | Email hỗ trợ: hotro@vndoc.com | Hotline: 024 2242 6188 ... 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) div 2; for i: =1 to n s:='' ''+s; end;begin clrscr; write(''Nhap xau s1:''); readln(s1); write(''Nhap... while not(stop) begin ChuChay(s1,dong); delay(500); CatDan(s1,s2); s1:=s2; stop:=keypressed; end; Readln Kết quả: Xem thêm tại: https://vndoc.com/tai-lieu -hoc -tap- lop -11 Trang chủ: https://vndoc.com/... end var i,n:integer; begin n:=length(s); n:=(80-n) div 2; for i: =1 to n s:='' ''+s; end; clrscr; write(''Nhap xau s1:''); readln(s1); CanGiua(s1); clrscr; stop:=false; while not(stop) begin gotoxy (1, 12);