anh nào giúp em với

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

anh nào giúp em với

Bài gửi by nguyentienthuan104 on 25/3/2011, 2:49 pm

bài tập:Nhập vào một câu tìm từ dài nhất của câu đó. Cho biết từ dài nhất có mấy chữ Very Happy sunny
avatar
nguyentienthuan104
Thành viên mới
Thành viên mới

Nam Ngày sinh : 20/09/1996
Tuổi : 21
Ngày đăng ký : 23/03/2011

Về Đầu Trang Go down

Re: anh nào giúp em với

Bài gửi by sieuhoatinh on 30/3/2011, 11:00 pm

nguyentienthuan104 đã viết:bài tập:Nhập vào một câu tìm từ dài nhất của câu đó. Cho biết từ dài nhất có mấy chữ Very Happy sunny

CUA BAC DAY


USES CRT;
VAR S,R:STRING;
A:ARRAY[1..100] OF INTEGER;
I,N,MAX,C,J:INTEGER;
BEGIN
CLRSCR;
READLN(S);
S:=S+' ';
N:=LENGTH(S);
C:=1;
FOR I:=1 TO N DO IF(S[I]=' ') THEN
BEGIN
A[C]:=I;
C:=C+1;
END;
FOR I:=1 TO C DO IF(A[I+1]-A[I]>MAX) THEN
BEGIN
R:=' ';
MAX:=A[I+1]-A[I];
FOR J:=A[I]+1 TO A[I+1]-1 DO R:=R+S[J];
END;
DELETE(R,1,1);
WRITELN('TU DAI NHAT: ',R);
WRITELN('SO CHU: ',MAX-1);
READLN;
END.
avatar
sieuhoatinh
Thành viên mới
Thành viên mới

Nam Ngày sinh : 19/04/1994
Tuổi : 23
Ngày đăng ký : 26/02/2011

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