Nội dung của Bài tập và thực hành 6 dưới đây, các em sẽ được củng cố lại các kiến thức về xâu kí tự, chương trình con; rèn luyện thêm kĩ năng xử lí xâu bằng việc tạo hiệu ứng chữ chạy trên màn hình và nâng cao kĩ năng viết và sử dụng chương trình con. Mời các em cùng theo dõi nội dung chi tiết của bài thực hành.
Hình 1. Nội dung trọng tâm về kiểu xâu
Hình 2. Nội dung trọng tâm về hàm và thủ tục
Câu 1: Viết thủ tục CatDan(S1, S2) nhận đầu vào là xâu S1 không quá 79 kí tự, tạo xâu S2 thu được từ xâu S1 bằng việc chuyển kí tự đầu tiên của nó xuống vị trí cuối cùng. Ví dụ: S1='ABCD'; S2='BCDA'
Gợi ý làm bài:
Type Str79 = string[79];
Procedure CatDan(S1: str79; var S2 : str79);
Begin
S2:=copy(S1,2,length(S1)-1) + S1[1];
End;
Câu 2: Viết thủ tục CanGiua(s) nhận đầu vào là xâu s gồm không quá 79 kí tự, bổ xung vào xâu s một số dấu cách để khi đưa ra màn hình xâu kí tự s ban đầu được căn giữa dòng (80 kí tự).
Gợi ý làm bài:
Thủ tục CanGiua(s):
Procedure CanGiua(Var S: xau);
Var i,n:integer;
Begin
n:=(80-length(S)) div 2;
For i:=1 to n do
S:= ' ' + S;
End;
Câu 3: Sử dụng hai thủ tục trên, viết chương trình nhập một xâu kí tự từ bàn phím và đưa xâu đó ra màn hình có dạng dòng chữ chạy giữa màn hình văn bản 25x80.
Gợi ý làm bài:
Program ThucHanh6;
Uses crt;
Type xau=string[79];
Var S1, S2: xau;
Stop:boolean;
Procedure catdan(S1:Xau; var S2:Xau);
Begin
S2:=copy(s1,2,length(S1)-1)+S1[1];
End;
Procedure CanGiua(Var S: xau);
Var i,n:integer ;
Begin
n:=length(S);
n:=(80-n) div 2;
For i:=1 to n do
S:= ' ' +S;
End;
Begin
clrscr;
write(‘nhap xau S1:’);readln(S1);
cangiua(S1);
clrscr;
stop:=false;
while not (stop) do
Begin
gotoxy(1,12); {chuyen con tro den dau dong 12}
write(s1);
delay(500); {dung 500 miligiay}
catdan(S1, S2);
S1:= S2;
Stop:=keypressed; {nhan phim bat ki de ket thuc}
End;
Readln;
End.
Các em có thể hệ thống lại nội dung kiến thức đã học được thông qua bài kiểm tra Trắc nghiệm Tin học 11 Bài tập và thực hành 6 cực hay có đáp án và lời giải chi tiết.
Trong các chương trình chuẩn sau đây, chương trình chuẩn nào là thủ tục chuẩn?
Giả sử có hai biến xâu x và y (y đã có giá trị) câu lệnh nào sau đây là không hợp lệ?
Muốn khai báo x là tham số giá trị và y, z là tham số biến (x, y, z thuộc kiểu Byte) trong thủ tục "ViduTT" thì khai báo nào sau đây là sai?
Câu 4-10: Mời các em đăng nhập xem tiếp nội dung và thi thử Online để củng cố kiến thức về bài học này nhé!
Trong quá trình học tập nếu có thắc mắc hay cần trợ giúp gì thì các em hãy comment ở mục Hỏi đáp, Cộng đồng Tin học DapAnHay sẽ hỗ trợ cho các em một cách nhanh chóng!
Chúc các em học tập tốt và luôn đạt thành tích cao trong học tập!
-- Mod Tin Học 11 DapAnHay
Trong các chương trình chuẩn sau đây, chương trình chuẩn nào là thủ tục chuẩn?
Giả sử có hai biến xâu x và y (y đã có giá trị) câu lệnh nào sau đây là không hợp lệ?
Muốn khai báo x là tham số giá trị và y, z là tham số biến (x, y, z thuộc kiểu Byte) trong thủ tục "ViduTT" thì khai báo nào sau đây là sai?
Cho chương trình sau :
Program Thi_du ;
Var Mess : string ;
Procedure StopHere;
Var Mess : string ;
Begin
Mess := ‘StopHere’ ;
Write(Mess) ;
End ;
Begin
Mess := ‘StartHere’ ;
StopHere ;
Write(Mess) ;
End.
Phương án nào dưới đây là kết quả thực hiện chương trình trên?
Đoạn chương trình sau có lỗi gì?
Procedure End ( key : char ) ;
Begin
If key = ‘ q ’ then writeln( ‘ Ket thuc ’ )
End;
Hàm chuẩn nào dưới đây biến giá trị thực 6.6 thành 7 ?
Với x, y là 2 số nguyên, để tính tổng của chúng ta chọn hàm kiểu tham trị. Vậy phần tựa đề nào được xây dựng sau là đúng?
Với a, b là 2 số thực, để tính tích của chúng ta chọn thủ tục kiểu tham trị. Vậy phần tựa đề nào được xây dựng sau là đúng?
Cho chương trình sau:
Program Vi_du ;
Var x, y : integer ;
Procedure godoit( x, y : integer ) ;
Begin
x := y ;
y := 0 ;
Write( x, y ) ;
End ;
Begin
x := 1 ;
y := 2 ;
godoit( x, y ) ;
writeln( x, y ) ;
End.
Chương trình trên in ra dãy số nào?
Chương trình sau sẽ in ra kết quả nào?
Program ViDu ;
Var x, y : integer ;
Procedure thaydoi(x, y : integer) ;
Begin
x := y ;
y := 0 ;
writeln( x, y ) ;
End ;
Begin
x := 1 ;
y := 2 ;
writeln( x, y ) ;
thaydoi( x, y ) ;
writeln( x, y)
End.
Hãy chọn câu trả lời đúng.
Họ và tên
Tiêu đề câu hỏi
Nội dung câu hỏi
- Nhập vào dãy A có n phần tử;
- Xuất dãy A ra màn hình;
- Tính tổng các phần tử của dãy
Câu trả lời của bạn
Câu trả lời của bạn
Câu trả lời của bạn
Câu trả lời của bạn
0 Bình luận
Để lại bình luận
Địa chỉ email của hạn sẽ không được công bố. Các trường bắt buộc được đánh dấu *