Cho tệp XAUIN gồm nhiều dòng, mỗi dòng là 1 xâu ký tự ( độ dài không quá 255 ) Viết CT đọc XAU.IN rồi xác định độ dài từng dòng, sau chuyển tất cả các xâu thành in hoa. Ghi kết quả vào tệp xauout
Những câu hỏi liên quan
Mn giúp e với ạ
Cho tệp IN.INP chứ các xâu kia tự có dộ dài ko quá 255 kí tự. Tính và ghi kq ra tệp OUT.INP độ dài các xâu trong tệp IN.INP, mỗi kq ghi trên 1 dòng
Xem chi tiết
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.
Đúng 1
Bình luận (0)
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.
Đúng 0
Bình luận (0)
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)?
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)?
Help me!!! Mai mk thi ạ
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)?
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 hoab. 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
Đọc tiếp
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
Đọc từ tệp ‘xau.đặt’ ra 1 xâu ký tự s có độ dài tối đa 50 kí tự a, nếu trong xâu có 3 dấu cách thì xoá 2? b, chuyển các ký tự trong xâu thành in hoa? c, đếm các chữ số có trong xâu? Đưa các kết quả ra màn hình?
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.
Đúng 0
Bình luận (0)