нужно решить задачуЖ для слов заданной строки, которые содержат заданное ключевое слово,найти самое длинное слово. между словами, а так же в конце и начале строки может быть любое кол-во пробелов.
вот как я делала:
Program Zplata;
uses wincrt;
var w,f:array [1..10] of string;
str,kl:string;
i,p,k,j,m,nom,b,h:integer; s:array [1..98] of integer;
begin
writeln('ââåäè str=');
readln(str);
write('ki=');
readln(kl);
str:=str+' ';
k:=0;
while str<>'' do begin
p:=pos(' ',str);
if p>1 then begin
k:=k+1;
w[k]:=copy(str,1,p-1);
end;
delete(str,1,p);
end; b:=length(kl);
for i:=1 to k do begin
for j:=1 to b do
if (w[i][j]=kl[j]) and
( w[i][j+1]=kl[j+1]) then begin f[i]:=w[i];
s[i]:=length(f[i]);
if m<s[i] then begin m:=s[i]; nom:=i;end; end; end;
writeln(f[nom]);
end.
да так но у меня при вводе слов:
помирить мирный миры
самое длинное слово выдает:
мирный
vjtr, не забывай, что
while str<>'' do begin
while (str <> '') and (str[1] = ' ') do delete(str, 1, 1); { <--- Добавляем }
p:=pos(' ',str);
if p>1 then begin
k:=k+1;
w[k]:=copy(str,1,p-1);
end;
delete(str,1,p);
end;
спасибо большое у меня получилось