Цитата:
Сообщение от Натуличка
но программа выводит мне не то слово......помогите пожалуйста
|
Ну, откровенно говоря, я бы на месте транслятора, увидев шедевры типа
if lenght (b[i]=6 and b[i,5,1]);
выдал бы та-акое слово, что сантехники, покраснев, как свёклы, попадали бы без чувств. И за ошибки, и за враньё. А враньё потому, что ни один транслятор подобного нагромождения ляпов и неряшливостей не пропустил бы и ничего, кроме перечня ошибок, не выдал, так что утверждения, что он якобы показывает какой-то (пусть и не тот) результат, есть полная и абсолютная ложь. Достаточно того, что НЕТУ такого служебного слова "Lenght", а есть "Length" - длина
(англ.). Ну и еще куча всего. Практически в каждой строке по "перлу".
Пытался проследить применяемый Вами алгоритм и, честно говоря, спасовал. Что-то, не пойми что, накручено-наверчено, а что - лишь автор ведает.
Ладно, вот Вам работающий код:
Код:
var
a,S:string;
i,N: integer;
begin
write('a= ');
readln(a);
N:=0;
i:=1;
Repeat
While (a[i]=' ') and (i<Length(a)) do Inc(i);
S:='';
While (a[i]<>' ') and (i<=Length(a)) do
begin
S:=S+a[i];
Inc(i);
end;
If (Length(S)=6) and (S[Length(S)-1]='и') then
begin
Write(S+' ');
Inc(N);
end;
Until i>=Length(a);
Writeln;
Writeln(N,' words');
Readln
End.