Найти все слова максимальной длины

@CountVtaly · Регистрация: 25.04.2013

Author24 — интернет-сервис помощи студентам

ребят, есть прога.. "Задан текстовый файл. Нужно посчитать количество слов в нем и найти все слова максимальной длины". Проблема в том, что когда после слова стоит запятая, ! знак или другой знак пунктуации, прога считает его вместе со словом и длина слова становится уже не верной. Как сделать так, чтобы знаки пунктуации не учитывались в длине слова?

Pascal

program zad9_1;
uses
my_unit5; 
type t=record s,l: word; end; 
var 
s,eee1: string; 
f: text; 
a: array[1..255] of t; 
i,n,max: word; 
begin 
for i:=1 to 255 do a[i].l:=0; 
 
writeln('Введите имя файла: '); 
readln(eee1); 
assign(f,'eee1.txt'); 
reset(f);
if fileexists ('eee1.txt') then
try
read(f,s); 
close(f); 
finally 
writeln('Исходная строка:'); 
writeln(s); 
writeln(''); 
 
s:=my_unit5.func2(s); 
n:=1; 
a[1].s:=1; 
for i:=1 to length(s) do 
if s[i]<>' ' then inc(a[n].l) else 
begin 
inc(n); 
a[n].s:=i+1; 
end; 
max:=0; 
for i:=1 to 255 do if a[i].l>max then max:=a[i].l; 
if max>0 then 
writeln ('Слова максимальной длины: ');
for i:=1 to 255 do 
if a[i].l=max then
writeln(copy(s,a[i].s,a[i].l)); 
writeln;
writeln('Количесто слов: ',n);
readln; 
end;
end.

@capricornus CF · 27.01.2016, 22:09

в 30 строке проверяйте не только

Сообщение от CountVtaly

if s[i]<>' ' then inc(a[n].l) else

, но еще и на те символы которые не нужно считать( а лучше только те символы которые нужно считать) . Это можно сделать интервальной константой. Еще нужно понимать, как считать например дефис в слове "что-то".

@capricornus CF 318 / 208 / 162 Регистрация: 08.12.2015 Сообщений: 863
	27.01.2016, 22:09	2
	в 30 строке проверяйте не только Сообщение от CountVtaly if s[i]<>' ' then inc(a[n].l) else , но еще и на те символы которые не нужно считать( а лучше только те символы которые нужно считать) . Это можно сделать интервальной константой. Еще нужно понимать, как считать например дефис в слове "что-то". 0

Опции темы