giúp em với

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down

giúp em với

Bài gửi by tuan045610 on 24/3/2011, 9:02 pm

Bài 1: Viết chương trình cắt chuỗi nhập từ bàn phím thành từng từ.Bai 2: Viết chương trình nhập 1 chuỗi kí tự. Đếm số lần xuất hiện của các kí tự tạo nên chuỗi.Ai pro pascal giúp em với!!!!
avatar
tuan045610
Thành viên mới
Thành viên mới

Nam Ngày sinh : 18/08/1996
Tuổi : 21
Ngày đăng ký : 07/03/2011

Về Đầu Trang Go down

Re: giúp em với

Bài gửi by nbni on 25/3/2011, 12:10 pm

bài 2:
var s:string;
i:char; j,dem:integer;
begin
readln(s);
for j:=1 to length(s) do s[j]:=upcase(s[j]);
for i:='A' to 'Z' do
begin
for j:=1 to length(s) do
if s[j]=i then inc(dem);
if dem>0 then write(i,dem,' ');
dem:=0;
end;
end;
readln
end.
avatar
nbni
Thành viên mới
Thành viên mới

Nữ Ngày sinh : 12/08/1995
Tuổi : 22
Ngày đăng ký : 18/02/2011

Về Đầu Trang Go down

Re: giúp em với

Bài gửi by nbni on 25/3/2011, 12:11 pm

bạn có thể cho ví dụ ở bài 1 ko?
avatar
nbni
Thành viên mới
Thành viên mới

Nữ Ngày sinh : 12/08/1995
Tuổi : 22
Ngày đăng ký : 18/02/2011

Về Đầu Trang Go down

Re: giúp em với

Bài gửi by Sponsored content


Sponsored content


Về Đầu Trang Go down

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang


 
Permissions in this forum:
Bạn không có quyền trả lời bài viết