kiểu xâu

[thaoteen21]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

nhập vào 1 xâu khác rỗng mà mỗi phần tử trong xâu là 1 kí tự chữ.
a) in ra vị trí của những phần tử là chữ hoa trong xâu(mã ASCII của ~ kí tự chữ hoa từ 65--->90.
b) tạo ra 1 xâu mới bao gồm các kí tự chữ thường có trong xâu.
:-SS:-SS:-SS:-SS:-SS:-SS

 

[harry9xsakura]

program kieuxau;
uses crt;
var s,t:string;
i,n:longint;
begin clrscr;
writeln('nhap xau');
readln(s);
n:=length(s);
t:=s;
for i:=1 to n do
if s in ['A'..'Z'] then
begin
write(pos(s,s),' ');
delete(t,pos(s,t),1);
end;
writeln;
write(t);
readln;
end.

 

[lamnguyen.rs]

program kieuxau;
uses crt;
var s,t:string;
i,n:longint;
begin clrscr;
writeln('nhap xau');
readln(s);
n:=length(s);
t:=s;
for i:=1 to n do
if s in ['A'..'Z'] then
begin
write(pos(s,s),' ');
delete(t,pos(s,t),1);
end;
writeln;
write(t);
readln;
end.

1 từ thôi: SAI
Code đúng:

var
    s1, s2: string;
    N, i: integer;
begin
    write('Nhap Xau: '); readln(s1);
    N := length(s1);
    
    writeln('Vi Tri Cac Chu Hoa: ');
    s2 := '';
    for i := 1 to N do
    begin
        if (s1[i] in ['A'..'Z']) then write(i, ' ')
        else s2 := s2 + s1[i];
    end;
    
    writeln;
    if (s2 <> '') then write('Ket Qua Cau b: ', s2)
    else write('Khong Ton Tai Ket Qua b');
end.