Програмка по стрингам

[Hrustik]

Нужно сделать програмку по стрингам, чтобы програмка искала слова которые начинаються на 'a' и заканчиваются на 'z' которые мы ввели с клавиатуры.+ еще чтобы ети слова выводило в перевернутом виде.

Делал многими способами вот 1 из них который не работает...
я знаю что надо сделать 1 или более дополнительных стрингов но не знаб как ето сделать правильно...


program z4;
uses crt;
var
i:integer;
s:string;
begin
clrscr;
write('vvedite slova');
read(s);
if (s[i]='a') and (s[length(s)]='z')
then write('slova-',s)
else write('nemtu takuh slov');
readkey;
end.

[Stilet]

искала слова которые начинаються на 'a' и заканчиваются на 'z'

Подсказываю:
q:=pos(' a',s);
w:=pos('z ',s);
if q<w then найдено первое слово, начинающееся с номера q и заканчивающееся номером w+1.

[s-andriano]

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

Подсказываю:
q:=pos(' a',s);
w:=pos('z ',s);
if q<w then найдено первое слово, начинающееся с номера q и заканчивающееся номером w+1.

слово, начинающееся с номера q+1 и заканчивающееся номером w.

PS. Виталий, что-то Вы сегодня не в духе. Одно $F=16 в закрытой теме чего стоит...

[Алексей_2012]

Может не в тему сказано, но название темы улыбнуло))

[Poma][a]

слово, начинающееся с номера q+1 и заканчивающееся номером w.

Ни разу не соглашусь! В честь чего?
q - первая буква слова.
w - последняя буква слова.

UPD 21 : 47

Poma][a, все же q + 1, так как Stilet ищет строку ' a' (на q-ой позиции пробел).

Да.. Прошу простить.. Пробел-то я и не заметил..

UPD 21 : 49
Как вариант :

var
	s, wrd : string;
	i : Integer;
	
begin
	ReadLn (s);
	s := s + ' ';
	
	wrd := '';
	for i := 1 to Length(s) do
		if s[i] <> ' ' then
			wrd := s[i] + wrd
		else begin
			if (wrd[Length(wrd)] = 'a') and (wrd[1] = 'z') then
				WriteLn (wrd);
			wrd := ''
		end
end.

[Hrustik]

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

Подсказываю:
q:=pos(' a',s);
w:=pos('z ',s);
if q<w then найдено первое слово, начинающееся с номера q и заканчивающееся номером w+1.

вот я отредактировал
program z4;
uses crt;
var
i,q,w:integer;
s:string;
begin
clrscr;
writeLn('vvedite slova');
read(s);
q:=pos('a',s);
w:=pos('z ',s);
if q<w then
write('slova-',s)
else writeLn('nema takuh sliv');
readkey;
end.

но почемуто оно выводит все слова и мне кажеться что ето еще не вся программа (может еще надо добавить процедуру удаления пробелов или чтото в етом роде?)

[BDA]

Poma][a, все же q + 1, так как Stilet ищет строку ' a' (на q-ой позиции пробел).

но почемуто оно выводит все слова

Собственно, как написали, то и выводит

if q+1<w then
  writeln(copy(s,q+1,w-q))

Выведет 1 слово.

[Hrustik]

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

Poma][a, все же q + 1, так как Stilet ищет строку ' a' (на q-ой позиции пробел).

Собственно, как написали, то и выводит

if q+1<w then
  writeln(copy(s,q+1,w-q))

Выведет 1 слово.

заменил код:
program z4;
uses crt;
var
i,q,w:integer;
s:string;
begin
clrscr;
writeLn('vvedite slova');
read(s);
q:=pos('a',s);
w:=pos('z ',s);
if q+1<w then
writeln(copy(s,q+1,w-q))
else
writeLn('nema takuh sliv');
readkey;
end.

но чето оно неправильно выводит
вот я ввожу:
asfdgz agfgd sdgfdfasda adgdz вывело вообще : sfdgz
+ еще если вводиш только 1 слово (то что должно вывести тоисть нач на a и кончалося на z)
то выводит что слов нету..

[Poma][a]

Лечится так :

s := ' ' + s;

Кстати, возможно, стоит добавить развилочку на сщет случая, когда q = 0

[BDA]

но чето оно неправильно выводит

Так Вы выбросили пробел из pos(' a',s), а это очень важно.
Обратите внимание на вариант решения, приведенный Poma][ой в 5 посте.