Làm sao để có câu trả lời hay nhất?
13/01/2025
13/01/2025
Giải bài toán đếm kí tự số trong Pascal
Hiểu bài toán
Input: Một chuỗi ký tự S.
Output:
Số lượng ký tự số trong S.
Số lượng loại ký tự số khác nhau trong S.
Giải thuật
Đọc dữ liệu: Đọc chuỗi S từ file BAI1.INP.
Khởi tạo biến đếm:
demSo: Đếm số lượng ký tự số.
demLoaiSo: Đếm số lượng loại ký tự số khác nhau.
check: Mảng boolean để đánh dấu các chữ số đã xuất hiện (0-9).
Duyệt chuỗi:
Duyệt từng ký tự trong chuỗi.
Kiểm tra xem ký tự đó có phải là chữ số không (sử dụng hàm ord để chuyển ký tự thành mã ASCII).
Nếu là chữ số:
Tăng demSo.
Nếu chưa đánh dấu chữ số đó trong mảng check, tăng demLoaiSo và đánh dấu chữ số đó.
In kết quả: Ghi kết quả vào file BAI1.OUT.
Code Pascal
Delphi
program Bai1;
var
S: string;
i, demSo, demLoaiSo: integer;
check: array[0..9] of boolean;
f1, f2: text;
begin
assign(f1, 'BAI1.INP'); reset(f1);
assign(f2, 'BAI1.OUT'); rewrite(f2);
readln(f1, S);
close(f1);
demSo := 0;
demLoaiSo := 0;
for i := 1 to length(S) do
if (S[i] >= '0') and (S[i] <= '9') then
begin
inc(demSo);
if not check[ord(S[i]) - ord('0')] then
begin
inc(demLoaiSo);
check[ord(S[i]) - ord('0')] := true;
end;
end;
writeln(f2, demSo);
writeln(f2, demLoaiSo);
close(f2);
end.
13/01/2025
trong hình nhé b
Nếu bạn muốn hỏi bài tập
Các câu hỏi của bạn luôn được giải đáp dưới 10 phút
CÂU HỎI LIÊN QUAN
Top thành viên trả lời