Bài 1: Cho 1 chuỗi S có độ dài không quá 250 kí tự bao gồm các chữ cái từ “A” đến “z” và các chữ số từ ”0” đến “9”.
Yêu cầu: Viết chương trình kiểm xem trong chuỗi S kí tự kiểu số nào xuất hiện nhiều nhất. Trong tường hợp chuỗi có nhiều kí tự xuất hiện nhiều lần như nhau thì in ra kí tự đầu tiên tìm thấy. Nếu trong chuỗi không có kí tự kiểu số thì in ra -1
Ví dụ: Cho chuỗi S=”a2hgj4549AD” kí tự số xuất hiện nhiều nhất là số 4
S=”A1212cb12” kí tự kiểu số xuất hiện nhiều lần nhất là số 1
S=”ASDFGH” in ra -1
Input: Cho trong tệp BAI1.INP là một dòng duy nhất là chuỗi S có độ dài L ≤250
Output: Ghi ra tệp BAI1.OUT là một kí tự xuất hiện trong chuỗi S nhiều nhất
Viết trong pascal nha mn
Phần khai báo biến, tệp, đọc tệp, viết tệp thì bạn tự khai báo nhé.
//hàm kiểm tra ký tự đó có phải là số
function isNum(s: char):boolean;
var n,in: byte;
begin
val(s,n,in);
if in<>0 then isNum:=false else isNum:=true;
end;
// chương trình chính
begin
//đọc tệp…..
//sắp xếp chuỗi
for i:=1 to length(s) do
for j:=1 to length(s) do
if s[i]>s[j] then
begin
s[i]=tmp;
s[i]=s[j];
s[j]=tmp;
end;
//đếm ký tự:
for i:=1 to length(s) do
begin
if isNum(s[i])=true then
begin
result:=s[i];
if s[i] = s[i+1] then dem=dem+1;
if s[i] <> s[i+1] then
begin
t:=t+1;
n[t]=dem;
dem=0;
r[t]=s[i];
end;
end;
end;
end.
nếu có gì thắc mắc thì liên hệ [email protected] mình sẽ giải thích cụ thể cho nhé…