Найти самое длинное слово в предложении

@an12 · Регистрация: 02.11.2011

Задача: найти самое длинное слово в предложении
помогите пожалуйста найти ошибку в программе

@Puporev · 02.11.2011, 19:17

А просто код в текстовом виде нельзя показать, или что, нам списывать буковки с картинки?

@an12 · 02.11.2011, 19:28 **[ТС]**

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

А просто код в текстовом виде нельзя показать, или что, нам списывать буковки с картинки?

Pascal

Program p12;
uses crt;
var s:string;
i, n, max, m: byte;
begin
clrscr;
writeln('n='); readln(n);
n:=length(s);
m:=1;
for i:=1 to n do
if s[i] =' ' then if max<i-m then begin
max:=i-m;
m:=i+1;
end
else m:=i+1;
if s[n]<> ' ' then if max<i-m then begin
max:=i-m;
end;
writeln('max=',max);
readkey;
end.

@Puporev · 02.11.2011, 19:39

Ну так эта глупость вообще не понятно что делает, какие там ошибки, там бы хоть что-то правильное найти...

Добавлено через 7 минут

Pascal

Program p12;
uses crt;
var s,s1,smx:string;
    i, n, j, m, max: byte;
begin
clrscr;
writeln('Введите предложение, слова разделены пробелами:');
readln(s);
n:=length(s);
max:=0;
i:=1;
while i<=n do
if(s[i]<>' ')and((i=1)or(s[i-1]=' ')) then
 begin
  s1:='';
  j:=i;
  while(j<=n)and(s[j]<>' ') do
   begin
    s1:=s1+s[j];
    j:=j+1;
   end;
  m:=length(s1);
  i:=i+m;
  if m>max then
   begin
    max:=m;
    smx:=s1;
   end;
 end
else i:=i+1;
write('Самое длинное слово ',smx);
readkey;
end.

@an12 0 / 0 / 0 Регистрация: 02.11.2011 Сообщений: 9
		1
	Найти самое длинное слово в предложении 02.11.2011, 17:31. Показов 1648. Ответов 3 Метки нет (Все метки) Задача: найти самое длинное слово в предложении помогите пожалуйста найти ошибку в программе Миниатюры 0

@Puporev Почетный модератор 64276 / 47575 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	02.11.2011, 19:17	2
	А просто код в текстовом виде нельзя показать, или что, нам списывать буковки с картинки? 0

Опции темы

Найти самое длинное слово в предложении

Решение