Viết chương trình nhập vào một xâu tuỳ ý (có chữ hoa và chữ thường). Xuất ra xâu hoàn toàn chữ thường.
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 và chữ thường) có trong xâu.
uses crt;
var st:string;
i,d,dem:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
dem:=0;
for i:=1 to d do
if (st[i] in ['a'..'z']) or (st[i] in ['A'..'Z']) then inc(dem);
writeln(dem);
readln;
end.
Em hãy viết chương trình nhập vào một xâu ký tự bất kỳ từ bàn phím (tối đa 250 kí tự) bao gồm cả chữ hoa, chữ thường và số. Hãy chuyển hoá xâu vừa nhập thành chữ thường và in ra màn hình.
program ChuyenXauSangChuThuong;
var
str: string;
i: integer;
begin
write('Nhap mot xau ky tu: ');
readln(str);
for i := 1 to Length(str) do
str[i] := LowerCase(str[i]);
writeln('Xau ky tu chuyen thanh chu thuong la: ', str);
end.
Em hãy viết chương trình nhập vào một xâu ký tự bất kỳ từ bàn phím (tối đa 250 kí tự) bao gồm cả chữ hoa, chữ thường và số. Hãy đếm và in ra màn hình:
a, Số các chữ số trong xâu đã cho
b, Số các kí tự in hoa trong xâu đã cho
c, Chuyển hóa toàn bộ xâu thành ký tự hoa và in ra màn hình
Em hãy viết chương trình nhập vào một xâu ký tự bất kỳ từ bàn phím (tối đa 250 kí tự) bao gồm cả chữ hoa, chữ thường và số. Hãy đếm và in ra màn hình:
a, Số các chữ số trong xâu đã cho
b, Số các kí tự in hoa trong xâu đã cho
c, Chuyển hóa toàn bộ xâu thành ký tự hoa và in ra màn hình
giúp em vs ạ em cần gấp
uses crt;
var st,s:string;
i,d,dem,kt,j,dem1:integer;
begin
clrscr;
write('Nhap xau:'); readln(s);
writeln('Xau vua nhap la: ',s);
d:=length(s);
for i:=1 to d do
if s[i]=#32 then delete(s,i,1);
dem:=1;
st[1]:=s[1];
for i:=1 to d do
begin
kt:=0;
for j:=1 to dem do
if s[i]=st[j] then kt:=1;
if kt=0 then
begin
inc(dem);
st[dem]:=s[i];
end;
end;
for i:=1 to dem do
begin
dem1:=0;
for j:=1 to d do
if st[i]=s[j] then inc(dem1);
writeln(st[i],' xuat hien ',dem1,' lan');
end;
readln;
end.
1. Viết chương trình nhập vào 1 xâu họ tên sau đó đưa ra màn hình xâu chứa tên 2. Viết chương trình nhập vào 1 xâu in ra màn hình xâu đó sau khi đã đổi tất cả chữ in thường thành in hoa
Câu 1:
ho_ten = input("Nhập họ tên: ")
tach_ho_ten = ho_ten.split()
if len(tach_ho_ten) > 1:
ten = tach_ho_ten[-1]
print("Tên của bạn là:", ten)
else:
print("Nhập sai định dạng họ tên")
Câu 2:
s = input("Nhập xâu: ")
hoa = s.upper()
print(hoa)
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.
Var a: string;
i, Dem: integer;
Begin
writeln(‘nhap xau:’);
Readln(a);
Dem:=0;
For i:=1 to length(a) do
If (‘a’<=a[i]) and (a[i]<=’z’)
Dem:= Dem+1;
Writeln(Dem);
Readln
End.
Viết chương trình nhập một xâu từ bàn phím (xâu nhập vào có kí tự chứ cái in, chữ cái thường và kí tự số) Yêu cầu:lọc và in các chữ cái thường có trong xâu
Program HOC24;
var s: string;
begin
write('Nhap xau: '); readln(s);
write('Xau sau khi loc: ');
for i:=1 to length(s) do
if s[i] in ['A'..'z'] then write(s[i]);
readln
end.
Viết chương trình nhập vào một xâu gồm các ký tự là mẫu tự thường, hoa và các chữ số từ bàn phím. Chương trình thực hiện các công việc sau:
a. Xuất ra dãy chỉ chứa các ký tự là mẫu tự thường và chuyển sang chữ hoa.
b. Xuất ra dãy số chỉ chứa các chữ số đã được đảo ngược.
c. Tìm chữ số lớn nhất trong xâu.
Program HOC24;
var s: string;
tg,d,max,i: byte;
code: integer;
begin
write('Nhap xau : '); readln(s);
// cau a
for i:=1 to length(s) do if s[i] in ['a'..'z'] then write(upcase(s[i]));
//------
writeln;
//-cau b
for i:=length(s) downto 1 do if s[i] in ['0'..'9'] then write(s[i]);
//------
writeln;
//---cau c
d:=0;
for i:= 1 to length(s) do
if s[i] in ['0'..'9'] then
begin
val(s[i],tg,code);
if tg>max then max:=tg;
d:=d+1;
end;
if d=0 then write('Khong co chu so trong day') else write('Chu so lon nhat la : ',max);
readln
end.
uses crt;
var st,st1:string;
d,i,d1,max,x,y:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
writeln('Day cac ki tu thuong doi sang chu hoa la: ');
for i:=1 to d do
if st[i] in ['a'..'z'] then write(upcase(st[i]):4);
st1:=''
for i:=1 to d do
if st[i] in ['0'..'9'] then st1:=st1+st[i];
d1:=length(st1);
for i:=d1 downto 1 do
write(st1[i]:4);
writeln;
max:=0;
for i:=1 to d1 do
begin
val(st1[i],x,y);
if max<x then max:=x;
end;
writeln('Chu so lon nhat trong xau la: ',max);
readln;
end.