Tìm kiếm:

b2:
for i:= 1 to length(s1) do
s1[i]:=upcase(s1[i]);
s2:='';
for i:=1 to length(s1) do
if (pos(s1[i],s2)=0) and (s1[i]>='A')and(s1[i]<='Z')then
s2:=s2+s1[i];
for j:=1 to length(s2) do
while...

mình có 1 số bt mọi người giải thử !!!
b1.Viết chương trình nhập một xâu ký tự S chỉ gồm các chữ cái thường. Hãy lập xâu S1 nhận được từ xâu S bằng cách sắp xếp các ký tự theo vần a,b,c.
b2:
...

mình đưa ra đoạn ct nha:
s2:='';
for i:=1 to length(s1) do {s1 la xâu nhập vào ban đầu}
if pos(s1[i],s2)=0 then s2:=s2+s1[i];
socackitukhacnhau:=length(s2);

Bài 1: Viết chương trình nhập vào số nguyên dương N <=1000 và n số nguyên A[1], A[2],..,A[n]. Hãy thông báo ra màn hình các số sau:
Giá trị lớn nhất của dãy các chỉ số của các số hạng đạt giá trị...

__________________________--
while pos('anh',s)<>0 do {chừng nào con 'anh' trong xau s thi con thuc hiện}
begin
vt:=pos('anh',s);
delete(s,vt,3);
insert('em',s,vt);
end;
...

Bài tập chương trình con

Bài 1: Lớp 10A có 4 tổ (giả sử số người ở các tổ không bằng nhau). Trong đợt thi lập trình, mọi người đều tham gia và mỗi người đạt một điểm nào đó từ 0 đến 20. Lập chương...

cách ngắn nhất đây:
while s[1]=' ' then delete(s,1,1);
while s[length(s)]=' ' then delete(s,length(s)-1,1);
for i:=length(s) downto 2 do
if (s[i]=' ') and (s[i-1]=' ') then delete(s,i-1,1);

________________________
bạn ơi .........upcase(ch) là hàm chỉ sd cho 1 kí tự và ko thể sd upcase cho cả xâu như bạn đc
còn đề bài nói rất rõ là thay cụm kí tự 'anh' thành'em' ở đây có phân biệt...

___________________________
a, mình làm thử:

s:=' '+s;
for i:=2 to length(s) do
if s[i-1]=' ' then s[i]:=upcase(s[i]);