Напечатать слова, в которых гласные буквы (a, e, i, o, u) чередуются с согласными

@Herbit · Регистрация: 26.11.2019

Author24 — интернет-сервис помощи студентам

Напечатать слова, в которых гласные буквы (a, e, i, o, u) чередуются с согласными.

Прогу скиньте плиз

@ZX Spectrum-128 · 16.12.2019, 09:42

Напечатать слова, у которых гласные (а.е.и.о.у) чередуются с согласными

@bormant · 16.12.2019, 11:29

Если вариант от CodeR из той темы переписать сохраняя алгоритм, получится:

Pascal

const
  vov=['a','e','i','o','u']; cons=['a'..'z']-vov;
var
  s, w: String;
  i, t: Integer;
begin
  Write('Введите строку: '); ReadLn(s); s:=s+' ';
  repeat
    t:=Pos(' ',s); if t=0 then Break;
    w:=Copy(s,1,t-1); Delete(s,1,t);
    i:=2; while (i<=Length(w)) and (w[i-1] in vov) and (w[i] in cons) do Inc(i,2);
    if i>Length(w) then Write(' ',w);
  until False;
end.

Но это чуть менее половины решения:
1) учитываются только слова, начинающиеся с гласной,
2) для слов нечетной длины не учитывается последний символ, а он может дать неправильный ответ, например, abb.

Обоих зайцев легко убить одним маленьким исправлением:

Pascal

const
  vov=['a','e','i','o','u'];
var
  s, w: String;
  i, t: Integer;
begin
  Write('Введите строку: '); ReadLn(s); s:=s+' ';
  repeat
    t:=Pos(' ',s); if t=0 then Break;
    w:=Copy(s,1,t-1); Delete(s,1,t);
    i:=1; while (i<Length(w)) and ((w[i] in vov) xor (w[i+1] in vov)) do Inc(i);
    if i=Length(w) then Write(' ',w);
  until False;
end.

@Herbit 0 / 0 / 0 Регистрация: 26.11.2019 Сообщений: 18
		1
	Напечатать слова, в которых гласные буквы (a, e, i, o, u) чередуются с согласными 15.12.2019, 19:12. Показов 1305. Ответов 2 Метки нет (Все метки) Напечатать слова, в которых гласные буквы (a, e, i, o, u) чередуются с согласными. Прогу скиньте плиз 0

@ZX Spectrum-128 6810 / 4567 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	16.12.2019, 09:42	2
	Напечатать слова, у которых гласные (а.е.и.о.у) чередуются с согласными 0

	16.12.2019, 11:29

Опции темы