Giáo án điện tử tin học lớp 11
(Tiếp theo)
a) Thủ tục CATDAN(S1,S2) Nhận đầu vào là xâu S1 gồm 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ụ nếu S1=`abcd` thì 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 là xâu S gồm không quá 79 kí tự, bổ sung vào đầ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ự)
Procedure CANGIUA(S:Str79);
Var i,n:integer;
begin
n:=length(s);
n:=(80-n) div 2
for i:=1 to n do s:=‘ ‘+s;
end;
Use crt;
Type Str79=String[79];
Var s1,s2:Str79;
top:Boolean;
Procedure CATDAN(S1:Str79; Var s2:Str79);
begin
S2:=copy(S1,2,Length(S1)-1)+S1[1];
end;
Procedure CANGIUA(S:Str79);
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;
top:=false;
while not(Stop) do
begin
gotoxy(1,12);
write(S1);
delay(500);
Catdan(S1,S2);
S1:=S2;
stop:=Keypressed;
end;
readln;
END.
Hãy nhớ!
? Thủ tục Gotoxy(x,y).
? Hàm Keypressed.
? Thủ tục Delay(x).