Cho một xâu a trích ra một xâu con của xâu a gồm n ký tự bắt đầu từ vị trí m (n,m nhập từ bàn phím). Nhớ là không dùng hàm copy() nhá !!!
Cho một xâu a trích ra một xâu con của xâu a gồm n ký tự bắt đầu từ vị trí m (n,m nhập từ bàn phím). Nhớ là không dùng hàm copy() nhá !!!
By Bella
program trich_xau;
uses crt;
var a,s:string;
n,m,i:integer;
begin
clrscr;
write(‘Nhap xau a: ‘); readln(a);
write(‘Nhap n: ‘); readln(n);
write(‘Nhap m: ‘); readln(m);
s:=”;
for i:=m to m+n-1 do
s:=s+a[i];
write(‘Xau duoc trich la: ‘,s);
readln;
end.
Không copy thì delete nhá.
uses crt;
var a:string; n,m:longint;
begin
clrscr;
write(‘Nhap mot xau a: ‘);readln(a);
write(‘Nhap n,m: ‘);readln(n,m);
delete(a,1,m-1);
delete(a,n+m-1,length(a)-(n+m-1)+1);
writeln(a);
readln
end.
Dùng for:
uses crt;
var a,s:string; n,m,i:longint;
begin
clrscr;
write(‘Nhap mot xau a: ‘);readln(a);
write(‘Nhap n,m: ‘);readln(n,m);
for i:=m to m+n do
s:=s+a[i];
writeln(s);
readln
end.