Этот код на Паскале отвечает за нахождение самого длинного слова в одной! строчке. Нужно сделать так, чтобы можно было записать сколько угодно строчек и он нашёл в них самое длинное слово (цикл добавить, по-моему).
var
s,st,smax: string;
i:byte;
BEGIN
readln(s);
if s[length(s)]<>' ' then
s:=s+' ';
st:=''; smax:='';
for i:=1 to length(s) do
if s[i]<>' ' then
st:=st+s[i]
else begin
if length(smax)
smax:=st;
st:='';
end;
writeln('Самое длинное слово: ',smax);
writeln('Кол-во букв: ',length(smax));
END.
Ответы
Ответ дал:
0
var
s,st,smax: string;
i:byte;
BEGIN
writeln('Вводите строки. Конец ввода: <Enter> в начале строки.');
readln(s);
st:=''; smax:='';
while s<>'' do begin
if s[length(s)]<>' ' then s:=s+' ';
for i:=1 to length(s) do
if s[i]<>' ' then st:=st+s[i]
else begin
if length(st)>length(smax) then smax:=st;
st:='';
end;
readln(s);
end;
writeln('Самое длинное слово: ',smax);
writeln('Кол-во букв: ',length(smax));
END.
Пример (начало стихотворения “The Road Not Taken”, Роберт Ли Фрост):
Вводите строки. Конец ввода: <Enter> в начале строки.
Two roads diverged in a yellow wood,
And sorry I could not travel both
And be one traveler, long I stood
And looked down one as far as I could
To where it bent in the undergrowth.
Самое длинное слово: undergrowth.
Кол-во букв: 12
s,st,smax: string;
i:byte;
BEGIN
writeln('Вводите строки. Конец ввода: <Enter> в начале строки.');
readln(s);
st:=''; smax:='';
while s<>'' do begin
if s[length(s)]<>' ' then s:=s+' ';
for i:=1 to length(s) do
if s[i]<>' ' then st:=st+s[i]
else begin
if length(st)>length(smax) then smax:=st;
st:='';
end;
readln(s);
end;
writeln('Самое длинное слово: ',smax);
writeln('Кол-во букв: ',length(smax));
END.
Пример (начало стихотворения “The Road Not Taken”, Роберт Ли Фрост):
Вводите строки. Конец ввода: <Enter> в начале строки.
Two roads diverged in a yellow wood,
And sorry I could not travel both
And be one traveler, long I stood
And looked down one as far as I could
To where it bent in the undergrowth.
Самое длинное слово: undergrowth.
Кол-во букв: 12
Ответ дал:
0
Великолепно! Спасибо огромное! А не подскажете, как вычислить строчку, в которой самое длинное слово является самым маленьким среди других самых длинных слов?
Ответ дал:
0
Как это "самое длинное слово является самым маленьким"? Не понимаю.
Вас заинтересует
1 год назад
1 год назад
2 года назад
8 лет назад
8 лет назад