Удаление слов из текста

[Gery]

Вводится произвольный текст до точки, слова разделяются пробелом. Удалить из него все слова, которые начинаются с гласных. Не использовать тип данных string, решить необходимо через char. Вводимый текст это массив, а гласные можно объединить во множество. Помогите решить

[Sazary]

Вариант с доп. массивом.
Проходите по тексту посимвольно и копируете символы в доп. массив. Если символ - гласная, то читаем до первого разделителя без копирования.

Если без доп. массива, то нужно завести пару указателей. Первый указывает на текущий символ, который читаем (ch1), второй - на символ, который перезаписываем (ch2). Идем по тексту и копируем *ch2++=*ch1. Если первый символ после разделителя - гласная, то, опять же, пропускаем без копирования.

Пробуйте. Что будет не получаться - спрашивайте.

[Stilet]

Gery

Во-первых на каком языке?
Во-вторых: Если занулять такие слова пробелами, это будет считаться правильным в рамках задания?

[Gery]

Паскаль...

В чем ошибка?

var text,m:array [1..50] of char;
glasnie:set of char;
i,j,k:integer;
begin
glasnie:=['A','a','O','o','E','e','U','u','I','i'];
writeln ('введите текст');
begin
i:=0;
repeat
i:=i+1;
read (text[i]);
until text[i]='.';
i:=1;
j:=0;
while (text[i]<>'.') do
begin
if (not(text[i] in glasnie)) then while (text[i]<>' ') do
begin
j:=j+1;
m[j]:=text[i];
end;
i:=i+1;
else while (text[i]<>' ') do i:=i+1;
end;
end.

[Sazary]

После сообщения "введите текст" бегин лишний..
В общем, вот:

var text,m:array [1..50] of char;
glasnie:set of char;
i,j,k:integer;

begin
glasnie:=['A','a','O','o','E','e','U','u','I' ,'i'];
writeln ('введите текст');

i:=0;
repeat
 i:=i+1;
 read (text[i]);
until text[i]='.';

i := 1;
j := 0;

while text[i]<>'.' do
 begin
 while (text[i]=' ') and (text[i]<>'.') do
  begin
  inc(j);
  m[j] := text[i];
  inc(i);
  end;
 if text[i] in glasnie then
  while (text[i]<>' ') and (text[i]<>'.') do
   inc(i)
  else
   while (text[i]<>' ') and (text[i]<>'.') and (j<50) do
    begin
    inc(j);
    m[j] := text[i];
    inc(i);
    end;
 end;

 writeln;
for i:=1 to j do
 write(m[i]);
readln;
end.

[Gery]

Что значит inc? Без него никак?

[Sazary]

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

Что значит inc? Без него никак?

Инкремент. Увеличивает аргумент на единицу. Можете заменить на

i := i + 1;

[Gery]

пишет "Error while linking"

Еще надо решить эту же задачу:
а) так же через char, только с процедурой удаления и процедурой нахождения слов, начинающейся с гласной;
б) Просто через string

Надеюсь на вашу помощь...

[Sazary]

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

пишет "Error while linking"

Проверьте, не запущена ли программа.

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

Еще надо решить эту же задачу:

Так что не получается?

[Gery]

эм... ну с процедурами вообще все плохо... я ненаю как делать.