Cho 1 xâu ( có chứa kí tự cách). In ra màn hình vị trí đầu tiên xuất hiện kí tự dấu cách trong xâu.
Cho 1 xâu ( có chứa kí tự cách). In ra màn hình vị trí đầu tiên xuất hiện kí tự dấu cách trong xâu.
uses crt;
var st:string;
i,d:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
for i:=1 to d do
if st[i]=#32 then
begin
writeln(i);
break;
end;
readln;
end.
Cho một xâu kí tự S chỉ toàn kí tự số 0 và 1. Biết rằng các kí tự số 0 đứng trước các ký tự số : 00....0011.....11.
Yêu cầu: Hãy cho biết vị trí của ký tự số 0 cuối cùng trong dãy.
Dữ liệu vào:
Chứa xâu kí tự S (Độ dài của xâu S≤107 và luôn có ký tự số 0 và ký tự số 1)
Kết quả:
Một số nguyên dương là vị trí của ký tự số 0 cuối cùng trong dãy.
Ví dụ
Input
Copy
0000011111
Output
Copy
Lưu ý:Dùng C++
var s:string;
i:integer;
begin
write('Nhap xau ki tu S = ');readln(s);
for i:=1 to length(s) do
begin
if s[i] <> '0' then write('Vi tri cua so 0 cuoi cung la ',i-1);
i:=length(s);
end;
readln;
end.
Program HOC24;
var s: string;
x: char;
d: byte;
begin
write('Nhap xau: '); readln(s);
write('Nhap ki tu: '); readln(x);
d:=0;
for i:=1 to length(s) do if s[i]=x then d:=d+1;
if d=0 then write('Ki tu do khong xuat hien trong xau') else write('Ki tu do xuat hien trong xau');
readln
end.
+ Nhập và hiển thị một xâu ký tự;
+ Hiển thị độ dài của xâu
+ Đếm và liệt kê số chữ cái hoa có trong xâu
+ Xóa tất cả các kí tự trống (space) kề nhau và chỉ để lại một; in lại xâu
+ Nhập kí tự c bất kì từ bàn phím, xóa tất cả các kí tự c có trong xâu
+ Hàm main() gọi các hàm trên cho xâu kí tự Str
Dùng ngôn ngữ C
Viết chương trình nhập vào xâu và một ký tự ch. Trả về vị trí xuất hiện đầu tiên của kí tự ch trong xâu
Cho tệp cau2.txt chứa một xâu kí tự bất kì,viết chương trình chuyển các kí tự trong xâu thành kí tự in hoa,kết quả ghi ra tệp KQ.txt
code pascal
var f,g:text;
var s:string;
begin
assign(f,'cau2.txt'); reset(f);
read(f,s);
assign(g,'KQ.txt'); rewrite(g);
write(g,upcase(s));
close(f);
close(g);
end.
Nhậo vào bàn phím xâu C
a, tính độ dài xâu
b, thực hiện tạo xâu mới gồm 4 kí tự bắt đầu từ vị trí thứ 5 trong xâu
c, đếm xem xâu có bao nhiêu kí tự b
d, in các kết quả ra màn hình
uses crt;
var st:string;
i,dem:integer;
begin
clrscr;
readln(st);
writeln(length(st));
for i:=5 to 8 do write(st[i]);
writeln;
dem:=0;
for i:=1 to length(st) do
if st[i]='b' then dem:=dem+1;
writeln(dem);
readln;
end.
viết chương trình đọc 1 xâu lí tự bất kì từ tệp dl.inp . hãy xoá kí tự đầu tiên và kí tự cuối cùng của xâu đó và ghi kết quả sau khi xoá vào tệp dl.out
const fi='dl.inp'
fo='dl.out'
var f1,f2:text;
st:string;
i,d:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,st);
d:=length(st);
for i:=2 to d-1 do
write(f2,st[i]);
close(f1);
close(f2);
end.
viết chương trìnhnhập vào 2 xâu a,b.kiểm tra xem kí tự cuối cùng của xâu a có trùng với kí tự đầu tiên xâu b hay không .đếm số lần xuiaats hiện của xâu b trong xâu
giúp em với ạ.mai em thi r ạ
uses crt;
var a,b:string;
i,n,d,d1:integer;
begin
clrscr;
write('Nhap xau a:'); readln(a);
write('Nhap xau b:'); readln(b);
if a[length(a)]=b[1] then writeln('Ki tu cuoi cua xau a trung voi ki tu dau cua xau b')
else writeln('Ki tu cuoi cua xau a khong trung voi ki tu dau cua xau b');
dem:=0;
while pos(b,a)>0 do
begin
inc(dem);
delete(a,pos(b,a),length(b));
end;
writeln('Xau b xuat hien ',dem,' lan trong xau a');
readln;
end.
Viết chương trình kiểu xâu bất kì,và thực hiện các uêu cầu sau :
a, Cho biết trong sâu đo scó bao nhiêu kí tự là chữ số trong xâu
b, Cho biết xâu đó có bao nhiêu từ
c, In ra màn hiình từ có độ dài lớn nhất trong xâu
d, Xóa bỏ các kí tự là số có trong xâu và in xâu mới ra màn hình