mọi người giải giúp em bài này với ạ :
Cho tệp VANBAN.TXT mỗi dòng ghi không quá 255 kí tự
a) Hãy đếm xem trong tệp có bao nhiêu chữ số và đưa kết quả ra màn hình
b) Tạo tệp KQ.TXT chứa tất cả các kí tự là số xuất hiện trong tệp VANBAN.TXT
tệp xau.inp gồm các dòng kí tự, mỗi dòng không vượt quá 255 kí tự. viết chương trình đọc dữ liệu từ tệp xau.inp. đếm số kí tự là chữ'a'. ghi kết quả ra tệp xau.out chứa số nguyên duy nhất là số lượng kí tự'a' có trong tệp xau.inp
#include <bits/stdc++.h>
using namespace std;
string st;
int d,i,dem;
int main()
{
freopen("xau.inp","r",stdin);
freopen("xau.out","w",stdout);
cin>>st;
d=st.length();
dem=0;
for (i=0; i<=d-1; i++)
if (st[i]=='a') dem++;
cout<<dem;
return 0;
}
Cho tệp vanban.inp gồm nhiều dòng hãy đọc dữ liệu từ tệp vanban.inp và đếm xem trong tệp có tất cả bao nhiêu dòng rồi ghi kết quả vào tệp vanban.out
const fi='vanban.inp'
fo='vanban.out'
var f1,f2:text;
dem,i:integer;
a:array[1..1000]of string;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
dem:=0;
while not eof(f1) do
begin
inc(dem);
readln(f1,a[dem]);
end;
writeln(f2,dem);
close(f1);
close(f2);
end.
const fi='inp.inp'
fo='out.inp'
var f1,f2:text;
st:array[1..100]of string;
i,n:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
n:=0;
while not eof(f1) do
begin
n:=n+1;
readln(f1,st[n]);
end;
for i:=1 to n do
writeln(f2,length(st[i]));
close(f1);
close(f2);
end.
cho tệp songuyen.inp chứa dãy các số nguyên ( mỗi số cách nhau một dấu cách). Đọc dữ liệu từ tệp đã cho và
a) Tính tổng các số lẻ trong tệp và đưa kết quả lên màn hình.
b) tính tổng các số lẻ trong tệp và ghi kết quả vào tệp songuyen2
c) đưa ra màn hình các số lẻ trong tệp
uses crt;
const fi='songuyen.inp'
fo='songuyen2.out'
var a:array[1..100]of integer;
i,n,t1:integer;
f1,f2:text;
begin
clrscr;
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,n);
for i:=1 to n do readln(f1,a[i]);
t1:=0;
for i:=1 to n do if a[i] mod 2<>0 then t1:=t1+a[i];
writeln(t1);
writeln(f2,t1);
for i:=1 to n do
if a[i] mod 2<>0 then write(a[i]:4);
close(f1);
close(f2);
readln;
end.
Cho tệp VB.inp là các chữ cái ko quá 255 kí tự. Đọc tệp VB.inp và đếm số dòng rồi ghi vào tệp VB.out
Cho tệp BAIKT.INP chứa các số nguyên bất kì. Viết chương trình đếm xem trong tệp có bao nhiêu số lẻ rồi ghi kết quả vào tệp KETQUA.OUT giúp mình với mình đang gấp ạ. Mình cảm ơn nhiềuu
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 DEMXAU.INP chứa một xâu kí tự bất kì ,viết CHương trình đếm xem xâu đã cho có bao nhiêu từ .kết quả ghi ra tệp DEMXAU.OUT
giúp mình với mình cần rất gấp. híc híc
const fi='demxau.inp',
fo='demxau.out'
var f1,f2:text;
st:string;
d,i,dem:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,st);
d:=length(st);
dem:=0;
for i:=1 to d do
if st[i]=' ' then dem:=dem+1;
writeln(f2,dem+1);
close(f1);
close(f2);
end.
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.