BÀI 1 nhập vào 1 sâu s nhỏ hơn 255 kí tự
a)viết ra số kí tự của s
b)viết ra kí tự k của s
c)chèn xâu s1,nhập từ bàn phím váo s tính từ vị trí thứ 3
bài 2
a)viết ra màn hình các kí tự trong mảng ASC11
b)viết ra vị trí từ 0 đến 9 trong mảng ASC11
c)viết ra vị trí từ a đến z trong mảng ASC11
d)viết ra vị trí từ A đến Z trong mảng ASC11
BÀI 3 nhập một xâu kí tự nhỏ hơn 225 kí tự
a)chuyển chữ thường sang chữ hoa
b)xóa hết các kí tự số
c)in ra xâu theo thứ tự ngược lại
bài 4 nhập xâu s nhỏ hơn 255 kí tự
kiểm tra xâu s có đối xứng không
bài 5 tách xâu s thành các xâu nhỏ hơn
Bài 1:
uses crt;
var s:string;
k:longint;
begin
clrscr;
write('Nhap xau S:');
readln(s);
writeln('--------');
writeln('Phan a:');
writeln('Do dai xau S: ',length(s));
writeln('--------');
writeln('Phan b:');
write('Nhap k:');
readln(k);
writeln('Ki tu thu K cua S la: ',s[k]);
writeln('--------');
writeln('Phan C minh dang nghien cuu, mong ban thong cam');
readln
end.
Bài 2: ( Phần a) thôi nhé :/ )
uses crt;
procedure ASCII;
var i: byte;
begin
for i := 0 to 255 do
begin
write(chr(i), ': ',i:3,' ');
delay(1);
if i mod 5 = 0 then writeln();
end;
readln
end;
begin
ASCII;
writeln('--------');
end.
Bài 3:
uses crt;
var st:string;
i:longint;
Function POSNUM(St:String):Byte;
Var OK:Boolean;
i:Byte;
Begin
writeln('Phan a)');
write('Nhap xau S:');
readln(st);
writeln(upcase(st));
writeln('Phan b:');
OK:=False;
i:=1;
While (i<=Length(St)) AND (Not OK) Do
If St[i] IN ['0'..'9'] Then OK:=True
Else i:=i+1;
If OK Then POSNUM:=i Else POSNUM:=0;
End;
Begin
Write('Nhap xau St: '); Readln(St);
While POSNUM(St)<>0 Do Delete(St,POSNUM(St),1);
Write('Xau sau khi xoa: ',St);
writeln('Phan c:');
writeln;
for i:=length(st) to 1 do
write(st[i]);
Readln;
End.
Bài 4, Bài 5: Tớ tịt rồi :/
Bài 1: Bạn có thể ghi rõ đề hơn không , bạn hỏi ở câu b viết ra kí tự k của s ?
Bài 2: Mảng ASC11 là sao ạ . Ý bạn nói là bảng mã ASCII ?
Nếu là bảng mã ASCII thì bạn chỉ cần sử dụng chr hoặc ord .
Bài 3:
Mình chỉ làm 1 đoạn sau đó bạn hoàn thành chương trình hoàn chỉnh nhé:
for i:=1 to length(s) do
s[i]:=upcase(s[i]);
Bài 4:
for i:=length(s) downto 1 do
st:=st+s[i];
if st=s then write('Phai') else write('Khong phai');
Bài 5: Ý bạn là tách ra từng kí tự ?
