Viết chương trình đếm số lần xuất hiện của các kí tự thuộc bảng chữ cái trong 50 lần gõ kí tự bằng bàn phím (không phân biệt a với A, b với B ..., dùng hàm Upcase để chuyển đổi chữ thường với chữ hoa).
Những câu hỏi liên quan
viết chương trình nhập từ bàn phím 1 xâu kí tự S đếm số lượng kí tự B trong xâu S ( không phân biệt chữ hoa và chữ thường)
Program HOC24;
var s: string;
i,d: byte;
begin
write('Nhap xau: '); readln(s);
d:=0;
for i:=1 to length(s) do if (s[i]='b') or (s[i]='B') then d:=d+1;
write('Co ',d,' ki tu B trong xau');
readln
end.
Đúng 1
Bình luận (1)
Viết chương trình nhập từ bàn phím một xâu ký tự S. Xuất xâu đã nhập. Thông báo ra màn hình số lần xuất hiện của mỗi chữ cái tiếng Anh trong S (không phân biệt chữ hoa chữ thường )
Xem chi tiết
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.
Đúng 2
Bình luận (0)
Viết chương trình nhập vào xâu S.a, Xoá hết kí tự là chữ trong xâu.b, đếm xem xâu có bao nhiêu nguyên âm. c, đếm số lần xuất hiện của kí tự k đc nhập bào từ bàn phím
uses crt;
var s:string;
i,d:integer;
begin
clrscr;
write('Nhap xau S:'); readln(s);
d:=length(s);
for i:=1 to d do
if (s[i] in ['a'..'z']) or (s[i] in ['A'..'Z']) then delete(s,i,1);
writeln('Xau sau khi xoa het ki tu chu la: ',s);
readln;
end.
Đúng 1
Bình luận (0)
Viết chương trình: - Nhập một xâu A (không quá 50 kí tự) bàn phím; - Tạo một xâu B chỉ chứa các kí tự là các chữ cái in hoa có trong xâu A và in xâu B ra màn hình;
uses crt;
var a,b:string;
i,d:integer;
begin
clrscr;
write('Nhap xau a:'); readln(a);
d:=length(a);
b:=''
for i:=1 to d do
if a[i] in ['A'..'Z'] then b:=b+a[i];
writeln(b);
readln;
end.
Đúng 1
Bình luận (0)
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 đã chob, Số các kí tự in hoa trong xâu đã choc, Chuyển hóa toàn bộ xâu thành ký tự hoa và in ra màn hìnhgiúp em vs ạ em cần gấp
Đọc tiếp
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
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 đã chob, Số các kí tự in hoa trong xâu đã choc, Chuyển hóa toàn bộ xâu thành ký tự hoa và in ra màn hình
Đọc tiếp
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
Viết chương trình nhập một xâu từ bàn phím .Đếm số lần xuất hiện của các kí tự trong xâu và in ra màn hình
uses crt;
var st:string;
a:array[1..255]of string;
i,d,dem,kt,j,dem1:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
a[1]:=st[1];
dem:=1;
for i:=1 to d do
begin
kt:=0;
for j:=1 to dem do
if st[i]=a[j] then kt:=1;
if kt=0 then
begin
inc(dem);
a[dem]:=st[i];
end;
end;
for i:=1 to dem do
begin
dem1:=0;
for j:=1 to d do
if a[i]=st[j] then inc(dem1);
writeln(a[i],' xuat hien ',dem1,' lan');
end;
readln;
end.
Đúng 0
Bình luận (0)
uses crt;
var a:string;
c:char;
i,dem:integer;
begin
clrscr;
readln(a);
readln(c);
dem:=0;
for i:=1 to length(a) do
if a[i]=c then dem:=dem+1;
writeln(dem);
readln;
end.
Đúng 0
Bình luận (0)
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.
Đúng 0
Bình luận (0)
Viết chương trình nhập từ bàn phím một xâu bất kỳ có độ dài không quá 50 kí tự. Hãy in ra các ký tự trong xâu là chữ thường (a, b, c,...)
uses crt;
var st:string[50];
d,i:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
for i:=1 to d do
if st[i] in ['a'..'z'] then write(st[i]:4);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình theo 2 cách có sử dụng chương trình con và không sử dụng chương trình con thực hiện nhập 1 xâu kí tự từ bàn phím , thực hiện chuyển đổi toàn bộ xâu sang chữ hoa . Hiển thị kết quả ra màn hình Giúp em với em cảm ơn ạ
Xem chi tiết
Cách 1: Có sử dụng chương trình con
uses crt;
var st:string;
{------------chuong-trinh-con-------------------}
function doi(st1:string):string;
var i,d:integer;
begin
d:=length(st1);
for i:=1 to d do
st1[i]:=upcase(st1[i]);
doi:=st1;
end;
{-------------------chuong-trinh-chinh--------------------}
begin
clrscr;
write('Nhap xau:'); readln(st);
writeln(doi(st));
readln;
end.
Cách 2: Không sử dụng chương trình con
uses crt;
var st:string;
i,d:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
for i:=1 to d do
st[i]:=upcase(st[i]);
writeln(st);
readln;
end.
Đúng 1
Bình luận (0)