Diễn Đàn Pascal
Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.

giúp em với

2 posters

Go down

giúp em với Empty giúp em với

Bài gửi by tuan045610 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!!!!
tuan045610
tuan045610
Thành viên mới
Thành viên mới

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

Về Đầu Trang Go down

giúp em với Empty Re: giúp em với

Bài gửi by nbni 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.
nbni
nbni
Thành viên mới
Thành viên mới

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

Về Đầu Trang Go down

giúp em với Empty Re: giúp em với

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

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

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

Về Đầu Trang Go down

giúp em với Empty Re: giúp em với

Bài gửi by Sponsored content


Sponsored content


Về Đầu Trang Go down

Về Đầu Trang


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