Program hotrotinhoc;
var st,s: string;
i,n: integer;
begin
write['Nhap xau : ']; readln[st];
writeln['Xau vua nhap la : ',st];
s:=st;
writeln['Do dai cua xau la : ',length[st]];
while st[1]=#32 do delete[st,1,1];
while st[length[st]]=#32 do delete[st,length[st],1];
while pos[#32#32,st]0 do delete[st,pos[#32#32,st],1];
writeln['Xau sau khi xoa cac ky tu trang : ',st];
s:=upcase[s];
writeln['Xau sau khi bien doi thanh xau in hoa : ',s];
s:=lowercase[s];
write['Xau sau khi bien doi thanh xau in thuong : ',s];
readln
end.
Drupal Developer having 9+ year experience, implementation and having strong knowledge of technical specifications, workflow development. Ability to perform effectively and efficiently in team and individually. Always enthusiastic and interseted to study new technologies
Uses Crt;
Var St:String;
i:Byte;
Begin
Write[‘Nhap xau St: ‘]; Readln[St];
For i:=1 to length[St] do St[i]:=Upcase[St[i]];
Write[‘Xau ket qua: ‘, St];
Readln;
End.
program bt2;
uses crt;
var s,st:string;
i:integer;
begin
clrscr;
read[S];
for i:=1 to length[S] do st:=st+upcase[S[i]];
writeln[st];
readln;
readln;
end.
Viết chương trình nhập vào xâu S sau đó chuyển các kí tự trong xâu thành chữ in hoa
Các câu hỏi tương tự
Viết chương trình:
Nhập vào một xâu kí tự.
Đếm và in ra màn hình số kí tự là chữ cái [chữ hoa] có trong xâu.
Viết chương trình:
Nhập vào một xâu kí tự.
Đếm và in ra màn hình số kí tự là chữ cái [chữ thường] có trong xâu.
Viết chương trình:
Nhập vào một xâu kí tự.
Đếm và in ra màn hình số kí tự là dấu cách có trong xâu.
- Toán lớp 11
- Ngữ văn lớp 11
- Tiếng Anh lớp 11
- lý thuyết
- trắc nghiệm
- hỏi đáp
- bài tập sgk
viết phương trình nhập vào 1 xâu S từ bàn phím và đưa xâu sau khi đổi kí tự đầu sang in hoa
Các câu hỏi tương tự
- Toán lớp 11
- Ngữ văn lớp 11
- Tiếng Anh lớp 11