Viết chương trình đọc xâu dữ liệu từ tệp vào vào. Xóa các kí tự ‘a’ trong xâu và in xâu sau khi đã xóa ra tệp kết quả
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 từ bàn phím một xâu kí tự S. Viết chương trình thực hiện xóa các kí tự 'a' có trong xâu S. Sau đó hiển thị kết quả xâu S sau khi đã xóa kí tự 'a' ra màn hình
Program HOC24;
var s: string;
i: byte;
begin
write('Nhap xau :'); readln(s);
for i:=1 to length(s) do if s[i]<>'a' then write(s[i]);
readln
end.
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]='a' then delete(st,i,1);
writeln(st);
readln;
end.
Viết chương trình đọc dữ liệu từ tệp Input.Txt 2 xâu. Viết kết quả vào tệp output.Txt xâu nào ngắn hơn. Nếu 2 xâu bằng nhau thì viết thông báo: “2 xâu bằng nhau”
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;
}
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ình đọc 1 xâu từ tệp Xau.mp. Kiểm tra trong xâu có bao nhiêu kí tự ‘a’. Kết quả ghi vào tệp KQ.Out
Program HOC24;
var s: string;
i,d: byte;
f1,f2: text;
fi='Xau.mp'
fo='KQ.Out'
begin
assign(f1,fi);
assign(f2,fo);
reset(f1);
rewrite(f2);
readln(f1,s);
d:=0;
for i:=1 to length(s) do if s[i]='a' then d:=d+1;
write(f2,d);
close(f1); close(f2);
end.
Gải sử có tệp văn bản KT.TXT chứa xâu kí tự không quá 255. Viết chương trình đọc dữ liệu trong tệp KT.TXT vào biến S. Thay thế tất cả các cụm kí tự "anh" bằng cụm kí tự "em". Ghi xâu sau khi được thay thế vào tệp KQ.OUT
giúp em với mai em thi rồi ạ
const fi='kt.txt'
fo='kq.out'
var f1,f2:text;
s:string;
i,dem,d:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,s);
vt:=pos('anh',s);
while vt<>0 do
begin
delete(s,vt,3);
insert(s,vt,'em');
vt:=pos('anh',s);
end;
writeln(f2,s);
close(f1);
close(f2);
end.
Cho tệp văn bản có tên DATA2.TXT chứa một xâu bất kì không quá 255 kí tự gồm các chữ và số. Viết chương trình đọc xâu kí tự S từ từ tệp DATA2.TXT sau đó ghi dữ liệu là các thông tin sau vào tệp KQ2.TXT:
- Dòng 1: Số lần xuất hiện của kí tự "k" trong xâu?
- Dòng 2: Số lượng kí tự là số xuất hiện trong S (giữ nguyên thứ tự xuất hiện)?
Cho tệp văn bản có tên DATA2.TXT chứa một xâu bất kì không quá 255 kí tự gồm các chữ và số. Viết chương trình đọc xâu kí tự S từ từ tệp DATA2.TXT sau đó ghi dữ liệu là các thông tin sau vào tệp KQ2.TXT:
- Dòng 1: Số lần xuất hiện của kí tự "k" trong xâu?
- Dòng 2: Số lượng kí tự là số xuất hiện trong S (giữ nguyên thứ tự xuất hiện)?