Những câu hỏi liên quan
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)?
Tìm số lớn nhất Cho xâu ký tự S chỉ gồm các số và các chữ. Lập trình tìm số lớn nhất trong xâu. - Tên file bài làm: TimMax.pas - Tên file Input : TimMax.inp o Gồm 1 dòng chứa xâu S - Tên file output : TimMax.out o Gồm 1 số là số lớn nhất trong xâu o Nếu không có số nào trong xâu ghi ra số -1
const fi='timmax.inp'
fo='timmax.out'
var f1,f2:text;
st,xauso:ansistring;
d,i,max,x:longint;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,st);
d:=length(st);
xauso:=''
max:=0;
for i:=1 to d do
if st[i] in ['0'..'9'] then xauso:=xauso+st[i]
else begin
val(xauso,x);
if max<=x then max:=x;
xauso:=''
end;
if max=0 then writeln(f2,'-1')
else writeln(f2,max);
close(f1);
close(f2);
end.
Đúng 0
Bình luận (0)
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
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ụInputCopy0000011111OutputCopyLưu ý:Dùng C++
Đọc tiếp
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.
Đúng 1
Bình luận (0)
Bài 5: Viết chương trình cho phép người dùng nhập vào từ bàn phím một xâu ký tự s gồm cả các kí tự chữ và các kí tự số. Hãy tách s thành 2 xâu con: s1 chỉ chứa các ký tự số, s2 chỉ chứa các ký tự chữ
uses crt;
var s,s1,s2:string;
i,d:integer;
begin
clrscr;
readln(s);
s1:=''
s2:=''
d:=length(s);
for i:=1 to d do
begin
if s[i] in ['0'..'9'] then s1:=s1+s[i];
if (s[i] in ['a'..'z']) or (s[i] in ['A'..'Z']) then s2:=s2+s[i];
end;
writeln('Xau chua cac ki tu so la: ',s1);
writeln('Xau chua cac ki tu chu la: ',s2);
readln;
end.
Đúng 0
Bình luận (0)
Cho xâu kí tự S được lấy từ tập a..z,A..Z và dấu cách. Từ trong xâu là dãy gồm tất cả các ký tự chữ cái liên tục. Xâu S được gọi là chuẩn hóa nếu thỏa mãn các điều kiện:-Giữa các từ chỉ có 1 dấu cách.-Đầu xâu và cuối xâu không có dấu cách.-Ký tự đầu là chữ in hoa, các ký tự còn lại in thường.Yêu cầu: Chuẩn hóa xâu S
Đọc tiếp
Cho xâu kí tự S được lấy từ tập 'a'..'z','A'..'Z' và dấu cách. Từ trong xâu là dãy gồm tất cả các ký tự chữ cái liên tục. Xâu S được gọi là chuẩn hóa nếu thỏa mãn các điều kiện:
-Giữa các từ chỉ có 1 dấu cách.
-Đầu xâu và cuối xâu không có dấu cách.
-Ký tự đầu là chữ in hoa, các ký tự còn lại in thường.
Yêu cầu: Chuẩn hóa xâu S
Cho một xâu kí tự S không quá 255 kí tự gồm kí tự chữ cái và kí tự chữ số. Hãy in ra xâu vửa nhập và tính tổng các kí tự chữ số có trong xâu. Ngược lại nếu xâu chỉ gồm kí tự chữ cái hoặc chỉ gồm kí tự chữ số thì in ra “Sai yeu cau! Khong thuc hien!”.- Dữ liệu vào: Cho trong file XAU.INP gồm 1 dòng duy nhất là xâu S.- Dữ liệu ra: Ghi vào file XAU.OUT theo cấu trúc: Gồm 2 dòng:+ Dòng thứ nhất: Ghi ra xâu vừa nhập.+ Dòng thứ hai ghi tổng các kí tự chữ số của xâu S.
Đọc tiếp
Cho một xâu kí tự S không quá 255 kí tự gồm kí tự chữ cái và kí tự chữ số. Hãy in ra xâu vửa nhập và tính tổng các kí tự chữ số có trong xâu. Ngược lại nếu xâu chỉ gồm kí tự chữ cái hoặc chỉ gồm kí tự chữ số thì in ra “Sai yeu cau! Khong thuc hien!”.
- Dữ liệu vào: Cho trong file XAU.INP gồm 1 dòng duy nhất là xâu S.
- Dữ liệu ra: Ghi vào file XAU.OUT theo cấu trúc: Gồm 2 dòng:
+ Dòng thứ nhất: Ghi ra xâu vừa nhập.
+ Dòng thứ hai ghi tổng các kí tự chữ số của xâu S.
uses crt;
var s:string;
i,tong,x,code:integer;
f,g:text;
k:boolean;
const fi='XAU.INP'
fo='XAU.OUT'
begin
k:=false;
assign(f,fi); reset(f);
assign(g,fo); rewrite(g);
readln(f,s);
tong:=0;
for i:=1 to length(s) do
begin
if s[i] in ['0'..'9'] then
begin
k:=true;
val(s[i],x,code);
tong:=tong+x;
x:=0;
cod:=0;
end;
end;
if k=false then writeln(g,'Sai yeu cau')
else
begin
writeln(g,s);
writeln(g,tong);
end;
close(f);
close(g);
end.
Đúng 0
Bình luận (0)