Bài 3:
program oken;uses crt;var s: string;begin clrscr; write['Nhap xau: ']; readln[s]; writeln['Xau vua nhap: ',s]; writeln['Do dai cua xau: ',length[s]]; readln;
end.
Bài 4:
program oken;uses crt;var s: string; i: byte; kt: boolean;begin clrscr; write['Nhap xau: ']; readln[s]; kt:= false; for i:=1 to length[s] do if s[i] = ' ' then begin kt:=true; break; end; if kt=false then write['Trong xau khong co dau cach'] else write['Trong xau co dau cach']; readln;
end.
Bài 5:
program oken;uses crt;var s: string; i: byte;begin clrscr; write['Nhap xau: ']; readln[s]; for i:=1 to length[s] do s[i]:= upcase[s[i]]; writeln['Xau in hoa: ',s]; readln;
end.
Bài 6:
program oken;uses crt;var s:string; i:integer;begin clrscr; write['nhap xau: ']; readln[s]; if [s[1]=' '] then delete[s,1,1]; if [s[length[s]]=' '] then delete[s,length[s],1]; for i:=length[s] downto 1 do if [s[i]=' '] and [s[i-1]=' '] then delete[s,i,1]; for i:=1 to length[s] do begin if s[i]in['A'..'Z'] then s[i]:=chr[ord[s[i]]+32]; if [s[i]=' '] then s[i+1]:=upcase[s[i+1]]; end; s[1]:=upcase[s[1]]; writeln['xau sauu khi chuan hoa: ',s]; readln;
end.
- lý thuyết
- trắc nghiệm
- hỏi đáp
- bài tập sgk
Viết chương trình đưa ra xâu S với các ký tự chữ cái trong xâu đã được chuyển thành chữ cái 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
- lý thuyết
- trắc nghiệm
- hỏi đáp
- bài tập sgk
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