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.

anh nào giúp em với

2 posters

Go down

anh nào giúp em với Empty anh nào giúp em với

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

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

Về Đầu Trang Go down

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

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

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

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