Viết Chương Trình Nhập Vào Một Xâu Và Một Ký Tự(ch) đếm Xem Ký Tự ...

Tất cả Toán học Vật Lý Hóa học Văn học Lịch sử Địa lý Sinh học Giáo dục công dân Tin học Tiếng anh Công nghệ Khoa học Tự nhiên Lịch sử và Địa lý Nguyễn Nhật Hạ Hỏi từ APP VIETJACK đã hỏi trong Lớp 11 Tin học · 15:13 07/03/2022 Theo dõi Báo cáo viết chương trình nhập vào một xâu và một ký tự(ch) đếm xem ký tự (ch) đó xuất hiện trong xâu bao nhiêu lần Trả Lời (+5 điểm) Hỏi câu khác Hỏi chi tiết ...Xem thêm

Quảng cáo

1 câu trả lời 2785

N Namedsolabs99 3 năm trước

uses crt;

var st:string;

a:array[1..255]of string;

i,d,dem,kt,j,dem1:integer;

begin

clrscr;

write('Nhap xau:'); readln(st);

d:=length(st);

a[1]:=st[1];

dem:=1;

for i:=1 to d do 

  begin

kt:=0;

for j:=1 to dem do 

  if st[i]=a[j] 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(a[i],' xuat hien ',dem1,' lan');

end;

readln;

end.

0 bình luận Đăng nhập để hỏi chi tiết

Quảng cáo

Bạn muốn hỏi bài tập?

Đặt câu hỏi

Câu hỏi hot cùng chủ đề

• Hàm cho giá trị bằng bình phương của x là :

  A. Sqrt(x);

  B. Sqr(x);            

  C. Abs(x);

  D. Exp(x);