процедура, которая выводит все слова, начинающиеся с согласных букв латинского алфавита.

[sergeyfsd]

Никак не получаеться решить
Задача:
Описать процедуру, которая выводит все слова, начинающиеся с согласных букв латинского алфавита.

[Stilet]

Ниче сложного, вот примерно так:

var s:string;
procedure ok(a:string);
var i:integer;b:boolean;
begin
 i:=2;
 a:=' '+a;
 while i<=length(a) do begin
  if (a[i] in ['a','e'])and(a[i-1]=' ') then
   while (a[i]<>' ')and(i<=length(a)) do begin
    write(a[i]);
    inc(i);
   end;
   writeln; inc(i);
 end;
end;
begin
 readln(s);
 ok(s);
 readln;
end.

Твоя задача доставить в проверку оставшиеся согласные, и решить баг с немного некоректным выводом на экран (хотя если так устроит, то ради бога)

[puporev]

Немного поправлю код от Stileta.
1. Не нужна переменная b:boolean;
2. а,е - гласные буквы.
3.Поскольку гласных меньше, чем согласных, до с ними код будет короче, только тогда надо писать if (not a[i] in []). А чтобы не перечислять их в коде, лучше определить это множество константой.
4.Заодно исправил баг при выводе.
Короче можно написать так.

uses crt;
const gl=['a','A','e','E','i','I','j','J','o','O','u','U','y','Y'];
var s:string;
procedure ok(a:string);
var i:integer;
begin
i:=2; a:=' '+a;
while i<=length(a)do
   begin
     if(not (a[i] in gl))and(a[i-1]=' ')then
        begin
           while(a[i]<>' ')and(i<=length(a)) do
              begin
                write(a[i]);
                inc(i);
              end;
           writeln;
        end;
     inc(i);
   end;
end;
begin
clrscr;
readln(s);
ok(s);
readln
end.

[Stilet]

1. Не нужна переменная b:boolean;

Я не виноват, ОНИ сами написали, ОНИ уже улетели на Альфа Центавру...

4.Заодно исправил баг при выводе.

Я то думал оставить это автору чтоб хоть что-то сам подумал. )
Короче с автора тебе пиво.

[puporev]

Ну, извини, что влез.

[Stilet]

Да ниче страшного, автор пусть спасибо скажет.

[sergeyfsd]

Спасибо вам други =)) ещё есть добряки в нашем мире =)