Thư viện tài liệu học tập, tham khảo online lớn Nội dung viết Soạn SGK Tin Học lớp 11: Bài tập thực hành Mời em học sinh quý thầy cô giáo tham khảo hướng dẫn Soạn SGK Tin học lớp 11: Bài tập thực hành ngắn gọn đầy đủ nhất, biên soạn chia sẻ Soạn SGK Tin Học lớp 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ịn gchuwx 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); 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); CanGiua(s1); clrscr; stop:=keypressed; end; readln end Website: https://tailieu.com/ | Email: info@tailieu.com | https://www.facebook.com/KhoDeThiTaiLieuCom stop:=f Thư viện tài liệu học tập, tham khảo online lớn Thử chạy với dòng chữ '… Mung nghin nam Thang Long-Ha Noi! ' c) Hãy viết thủ tục ChuChay(s,dong) nhận đầu vào xâu s gồm không qus 79 kkis 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); clrscr; readln end Kết quả: Website: https://tailieu.com/ | Email: info@tailieu.com | https://www.facebook.com/KhoDeThiTaiLieuCom stop:=f Thư viện tài liệu học tập, tham khảo online lớn ►►CLICK NGAY vào nút TẢI VỀ để tải Giải tập Tin học lớp 11: Bài tập thực hành (Ngắn gọn) file PDF hồn tồn miễn phí Website: https://tailieu.com/ | Email: info@tailieu.com | https://www.facebook.com/KhoDeThiTaiLieuCom ... 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);... 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... Thư viện tài liệu học tập, tham khảo online lớn ►►CLICK NGAY vào nút TẢI VỀ để tải Giải tập Tin học lớp 11: Bài tập thực hành (Ngắn gọn) file PDF hồn tồn miễn phí Website: https://tailieu.com/ |