Cho xâu S , viết chương trình đưa ra độ dài của xâu. Yêu cầu : Tệp xau.inp chứa 5 xâu S, mỗi xâu trên 1 dòng ; kết quả độ dài của xâu được lưu vào tệp Dodai.out , mỗi kết quả trên 1 dòng GIÚP MÌNH VỚI , TỐI NAY MÌNH NẠP RỒI Ạ !!
Cho tệp XAU.TXT chứa 1 xâu ký tự
Viết chương trình đọc dữ liệu từ tệp XAU.TXT ra xâu S
Kiểm tra xâu S có là xâu đối xứng ?
M.n ai bt chỉ giúp e với
uses crt;
const fi='xau.txt'
var f1:text;
s:string;
i,d,kt:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
readln(f1,s);
d:=length(s);
kt:=0;
for i:=1 to d do
if st[i]<>st[d-i+1] then kt:=1;
if kt=0 then writeln('Xau doi xung')
else writeln('Xau khong doi xung');
readln;
end.
Viết chương trình C++. Yêu cầu: Cho trước xâu S là xâu mà virus sẽ chèn vào nội dung văn bản. Xâu R là nội dung tệp văn bản đã bị nhiễm virus W. Hãy xóa hết các xâu virus để được tệp văn bản không bị nhiễm virus. Dữ liệu vào: Cho từ tệp văn bản VIRUS.INP có dạng: -Dòng thứ nhất ghi xâu S có độ dài không quá 10 kí tự, chỉ gồm các kí tự trong bảng chữ cái. -Dòng thứ hai ghi xâu R có độ dài không quá 255 kí tự, chỉ gồm các kí tự trong bảng chữ cái. Kết quả: Ghi vào tệp văn bản VIRUS.OUT có dạng: -Dòng thứ nhất ghi số lần virus chèn vào nội dung tệp văn bản. -Dòng thứ hai ghi nội dung tệp văn bản không bị nhiễm virus.
#include <bits/stdc++.h>
using namespace std;
int main() {
freopen("VIRUS.INP","r",stdin);
freopen("VIRUS.OUT","w",stdout);
string S, R;
cin >> S >> R;
while(S.find(R) >= 0) {
int p = S.find(R);
if (p >= 0) S.erase(p,R.length());
else break;
}
cout<<S;
return 0;
}
Câu1: viết chương trình nhập từ bàn phím bất kì kí tự(<=100) .tính và đưa ra màn hình
Xâu đó sau khi xoá số
Trong xâu có bao nhiêu dấu cách
Đưa ra màn hình độ dài xâu đó
Câu 2: Viết CT gồm 2 xâu bất kì. Hãy ghi vào trong tệp kq.out xâu có độ dài lớn hơn, TH 2 xâu bằng nhau thì ghi xâu nhập trước.
Câu 3: viết chương trình nhập vào từ bàn phím các số nguyên (<=100) . Tính và đưa ra màn hình trung bình cộng các số chẵn ?
Câu 1:
uses crt;
var st:string;
d,i,dem:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
write('Xau sau khi xoa so la: ');
for i:=1 to d do
if not(st[i] in ['0'..'9']) then write(st[i]);
writeln;
dem:=0;
for i:=1 to d do
if st[i]=#32 then inc(dem);
writeln('Xau co ',dem,' dau cach');
writeln('Do dai cua xau la: ',d);
readln;
end.
Câu 2:
uses crt;
const fi='kq.out'
var st1,st2:string;
f1:text;
begin
clrscr;
write('Nhap xau thu 1:'); readln(st1);
write('Nhap xau thu 2:'); readln(st2);
assign(f1,fi); rewrite(f1);
if length(st2)>length(st1) then writeln(f1,st2)
else writeln(f1,st1);
close(f1);
end.
Câu 3:
uses crt;
var a:array[1..100]of integer;
i,n,t,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
dem:=0;
for i:=1 to n do
if a[i] mod 2=0 then
begin
t:=t+a[i];
inc(dem);
end;
writeln('Trung binh cong cac so chan la: ',t/dem:4:2);
readln;
end.
Viết chương trình đọc dữ liệu từ tệp fi với tệp fi chứa dữ liệu là 1 xâu dữ liệu. Ghi kết quả vào tệp fo các kết quả sau khi xử lý xâu.
a. Xâu vừa đọc được từ tệp fi, xâu chuyển thành chữ in hoa
b. Xâu s1 được tạo gồm n kí tự liên tiếp của xâu s bắt đầu tại vt.
c. Xâu sau khi xóa a kí tự của xâu s bắt đầu tại vị trí vt
nhập vào 1 xâu .yêu cầu
a.viết xâu đó ra màn hình
b.viết xâu đó ra màn hình theo chiều ngược lại
c.viết xâu đó ra màn hình với mỗi kí tự trên một dòng
d.viết xâu đó ra màn hình với mỗi kí tự trên một dòng theo chiều ngược lại
e.kiểm tra xem độ dài của xâu là chẵn hay lẻ
f.chuyển ký tự đầu tiên và ký tự cuối cùng thành chữ in hoa
#include <bits/stdc++.h>
using namespace std;
string st;
int d,i;
int main()
{
cin>>st;
cout<<st<<endl;
d=st.length();
for (i=d-1; i>=0; i--) cout<<st[i];
cout<<endl;
for (i=0; i<d; i++) cout<<st[i]<<endl;
return 0;
}
Viết chương trình nhập vào từ bàn phím 1 xâu S. Xuất ra màn hình: -Xâu S vừa nhập -Cho biết xâu đó có độ dài là bao nhiêu -Trong xâu có bao nhiêu kí tự là khoảng trắng -Trong xâu có bao nhiêu từ
viết chương trình nhập vào 1 xâu bất kì tách xâu đó thành 2 xâu tương đương nhau về độ dài và đưa ra xâu có độ dài lớn hơn Thonny
Viết chương trình đọc dữ liệu từ tệp Input.txt chứa một xâu có độ dài không quá 125 ký tự .Cho biết số lần xuất hiện của mỗi chữ cái Tiếng Anh trong xâu đã đọc được ( không phân chữ hoa thường). Ghi kết quả ra tệp Output.txt
const fi='input.txt'
fo='output.txt'
var f1,f2:text;
st:string[125];
a:array[1..125]of string;
i,d,dem,kt,j:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,st);
d:=length(st);
dem:=1;
a[1]:=st[1];
for i:=1 to d do
begin
kt:=0;
for j:=1 to dem do
if a[j]=st[i] 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(f2,a[i],' xuat hien ',dem1,' lan');
end;
close(f1);
close(f2);
end.
Viết chương trình xóa ký tự Ch xuất hiện trong xâu S. In ra xâu S và độ dài xâu S sau khi xóa đi kí tự ch.
viết chương trình nhập vào một xâu S rồi thực hiện các yêu cầu sau: a) in ra màn hình xâu S sau khi đã thay thế tất cả các kí tự 'C' thành 'LOP11A' b) hãy cho biết trong xâu S có bao nhiu kí tự c) nhập thêm xâu s1 rồi kiểm tra xem kí tự đầu của hai xâu S và S1 có trùng nhau không, xuất kết quả ra màn hình
program bai1;
uses crt;
var i:integer;
s,s1:string;
begin
clrscr;
write('nhap S:');readln(s);
while pos('C',s)<>0 do
begin
insert('LOP11A',s,pos('C',s));
delete(s,pos('C',s),1);
end;
writeln('xau sau khi bien doi la: ',s);
writeln('do dai cua xau tren la: ',length(s));
write('nhap s1:');readln(s1);
if s1[1]=s[1] then writeln('ki tu dau cua hai xau trung nhau')
else writeln('ki tu dau cua hai xau khong trung nhau');
readln;
end.