Bài tập và thực hành 6

a1. Thủ tục catdan(s1,s2):
Type str79 = string[79];
Procedure catdan(s1:str79; var s2:str79);
Begin
S2:=copy(s1,2,length(s1)-1) + s1[1];
End;
INPUT?
- OUTPUT?
a2. Thủ tục cangiua(s):
Procedure cangiua( var s:str79);
Var i,n:integer;
Begin
n:= length(s);
n:= (80 – n) div 2;
For i:=1 To n Do s:= ‘ ‘ +s;
End;
INPUT?

Program vi_du;
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 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);
Write(s1);
Delay(500);
Catdan(s1,s2);
S1:=s2;
Stop:=keypressed;
End;
Readln;
End.
Chương trình: