Mạng máy tính và internet

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
helpme

Cho xâu chỉ gồm các chữ cái và dấu cách. Mỗi từ gồm các chữ cái viết liền nhau, hai từ cách nhau bởi ít nhất một dấu cách.

Yêu cầu: Tìm từ ngắn nhất và từ dài nhất trong xâu.

Dữ liệu vào: Đọc từ file CAU2.INP ghi xâu .

Kết quả: Ghi ra file CAU2.OUT lần lượt độ dài của từ ngắn nhất và độ dài của từ dài nhất cách nhau một dấu cách.

Theo tập tin pascal

Ví dụ:

CAU2.INP

CAU2.OUT

Tin hoc

2 2

Hoc sinh gioi

3 4

* Có 70% số test xâu có không quá 255 kí tự tương ứng 70% số điểm;

* Có 30% số test xâu có nhiều hơn 255 và không quá 1.000 kí tự tương ứng 30% số điểm .

Minh Lệ
22 tháng 2 2020 lúc 16:18

Program hotrotinhoc;

const fi='cau2.inp';

fo='cau2.out';

var f: text;

s: ansistring;

i,n,d,max,min: integer;

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

procedure ip;

begin

assign(f,fi);

reset(f);

read(f,s);

close(f);

end;

procedure out;

begin

assign(f,fo);

rewrite(f);

s:=s+' ';

while length(s)<>0 do

begin

inc(d);

min:=1001;

max:=0;

a[d]:=copy(s,1,pos(' ',s)-1);

delete(s,1, pos(' ',s));

end;

for i:=1 to d do

begin

if length(a[i])>max then max:=length(a[i]);

if length(a[i])<min then min:=length(a[i]);

end;

write(f,min,' ',max);

close(f);

end;

begin

ip;

out;

end.

Khách vãng lai đã xóa

Các câu hỏi tương tự
phan nguyễn tấn khởi
Xem chi tiết
helpme
Xem chi tiết
helpme
Xem chi tiết
Lục Hạ Vy
Xem chi tiết
helpme
Xem chi tiết
Doãn Hoài Trang
Xem chi tiết
hoàng đá thủ
Xem chi tiết
Nguyễn Hoàng Dũng
Xem chi tiết
Doãn Hoài Trang
Xem chi tiết