Viết chương trình nhập vào một xâu từ bàn phím. hãy xuất lên màn hình một xâu có viết hoa mỗi từ.
|
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.
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ự
Các câu hỏi tương tự
|
