Viết chương trình nhập vào một kí tự chữ HOA rồi đổi thành chữ thường
Giúp mình với ạ:3
add fb:Hiền Hấpp lwen ạ:33 😀
Viết chương trình nhập vào một kí tự chữ HOA rồi đổi thành chữ thường
Giúp mình với ạ:3
add fb:Hiền Hấpp lwen ạ:33 😀
* đổi kí tự
program doi_kitu;
uses crt;
var c:char;
begin
clrscr;
write(‘Nhap ki tu hoa: ‘); readln(c);
c:=chr(ord(c)+32);
write(‘Ki tu thuong la: ‘,c);
readln;
end.
*đổi chuỗi;
program doi_chuoi;
uses crt;
var s:string;
i:byte;
begin
clrscr;
write(‘Nhap chuoi: ‘); readln(s);
for i:=1 to length(s) do
if s[i] in [‘A’..’Z’] then s[i]:=chr(ord(s[i])+32);
write(‘Chuoi sau khi doi la: ‘,s);
readln;
end.
*đổi kí tự thường sang hoa
program doi_kitu;
uses crt;
var c:char;
begin
clrscr;
write(‘Nhap ki tu thuong: ‘); readln(c);
c:=upcase(c);
write(‘Ki tu hoa la: ‘,c);
readln;
end.
*đổi chuỗi thường thành hoa
program doi_chuoi;
uses crt;
var s:string;
i:byte;
begin
clrscr;
write(‘Nhap chuoi: ‘); readln(s);
for i:=1 to length(s) do
if s[i] in [‘a’..’z’] then s[i]:=upcase(s[i]);
write(‘Chuoi thuong la: ‘,s);
readln;
end.
*Chuẩn hóa họ tên
program chuanhoa;
uses crt;
var s:string;
i:byte;
begin
clrscr;
write(‘Nhap ho va ten: ‘); readln(S);
for i:=1 to length(s) do
if s[i] in [‘A’..’Z’] then s[i]:=chr(ord(s[i])+32);
s[1]:=upcase(s[1]);
for i:=2 to length(s) do
if s[i]=’ ‘ then s[i+1]:=upcase(s[i+1]);
write(‘Ho va ten la: ‘,s);
readln;
end.
Program DOI_CHUOI_CHU_HOA;
Uses Crt;
Var i:integer;st:string;
Begin
Clrscr;
Writeln(‘DOI CHUOI SANG CHUOI HOA’);
Writeln(‘————————————–‘);
Write(‘Nhap ho ten:’);readln(st);
st[1]:=upcase(st[1]);
For i:=1 to length(St) do
If st[i]=’ ‘ then st[i+1]:=upcase(st[i+1]);
Writeln(‘Ho ten sau khi doi lan 1 la: ‘,st);
For i:=1 to length(St) do
st[i]:=upcase(st[i]);
Writeln(‘Ho ten sau khi doi lan 2 la: ‘,st);
Readln;
End.
Viết chương trình nhập vào một chuỗi ký tự . Sau đó in chuỗi ra màn hình với các ký tự đầu đổi thành chữ thường, các ký tự cuối của từ trong chuỗi sang chữ hoa.
Program CHUOI_CHU_THUONG;
Uses Crt;
Var i,l:integer;
st:string[50];
Begin
Clrscr;
Writeln(‘DOI CHUOI SANG CHUOI CHU THUONG’);
Writeln(‘——————————————————‘);
Write(‘Nhap chuoi ky tu: ‘); Readln(st);
For i:=1 to length(st) do
If (st[i]>=’A’) and (st[i]<=’Z’) then
st[i]:= chr(ord(st[i])+32);
Writeln;
Writeln(‘Chuoi doi thanh chu thuong la : ‘);
Writeln(st);
Writeln; l:=length(st);
st[l]:=upcase(st[l]);
For i:=l downto 2 do
If st[i]=’ ‘ then st[i-1]:=upcase(st[i-1]);
Writeln(‘Chuoi cac ky tu cuoi cua tu la ky tu hoa: ‘);
Writeln(st);
Readln;
End.