Программирование с символьными массивами и строками

@Maksimm · Регистрация: 06.03.2010

Есть еще одна проблемная задача. От оказанной помощи не откажусь.
Заранее благодарен.

В тексте найти и напечатать слово наибольшей длины.

@Puporev · 06.03.2010, 12:05

Попробуйте разобраться с алгоритмом, а то халява хорошему не научит.

Pascal

uses crt;
var s:string;
    i,k,n,mx,nmx,kmx:byte;
begin
clrscr;
write('Строка:  ');
readln(s);
s:=s+' ';
mx:=0;nmx:=1;
i:=1;
while i<=length(s)do
if s[i]<>' ' then
 begin
  n:=i;k:=1;
  while s[n+k]<>' 'do
  k:=k+1;
  if k>mx then
    begin
     mx:=k;
     nmx:=n;
    end;
  i:=i+k+1;
 end
else i:=i+1;
writeln('Самое длинное слово ',copy(s,nmx,mx));
readln
end.

@Maksimm · 06.03.2010, 12:47 **[ТС]**

1000 СПАСИБО!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

@Maksimm 0 / 0 / 0 Регистрация: 06.03.2010 Сообщений: 18
		1
	Программирование с символьными массивами и строками 06.03.2010, 11:58. Показов 1374. Ответов 2 Метки нет (Все метки) Есть еще одна проблемная задача. От оказанной помощи не откажусь. Заранее благодарен. В тексте найти и напечатать слово наибольшей длины. 0

@Maksimm 0 / 0 / 0 Регистрация: 06.03.2010 Сообщений: 18
	06.03.2010, 12:47 [ТС]	3
	1000 СПАСИБО!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 0

Опции темы

Программирование с символьными массивами и строками

Решение