Строки

[Walter]

День добрый. Помогите с написанием программы. А задание следующее:
Даётся какое то количество символов, и после первой буквы А, надо определить. Верно ли, что среди этих символов больше гласных латинских букв, чем согласных. Спс заранее

[Walter]

Ну помогите кто может, я не думаю что эт программа настолько сложная для програмистов, а для нас начинающих, совсем не сладко...
Вот тут насидел немного и вот, что у меня получилось, правда не запускаеться, но мож опытный глаз подскажет чё тут не так

procedure TForm1.Button1Click(Sender: TObject);
var s1:string;
    i,count:integer;
begin
s1:=Edit1.Text;
i:=0;
count:=0;
  for i:=1 to length(s1) do
    begin
      if (pos(s1[i],'AEIOUYaeiouy')<>0) then
    begin
    if (pos(s1[i-1], 'BCDFGHJKLMPRSTVWXZbcdfghjklmnprstvwxz')<>0)
        or (pos(s1[i=1], 'BCDFGHJKLMPRSTVWXZbcdfghjklmnprstvwxz')<>0)
        or (pos(s1[i+1], 'BCDFGHJKLMPRSTVWXZbcdfghjklmnprstvwxz')<>0) then
  count:=count+1;
  end;
  end;
    if i<0 then 
  ShowMessage='Glasnih boljshe';
  else
    if i=0 then
  ShowMessage='Ravno';
  else
    if i>0 then
  ShowMessage='Soglasnih boljshe';
        
end;

end.

[6AZblJlb]

вот вроде так как я понял, но это не после первой 'A',а это в общем....

procedure TForm1.Button1Click(Sender: TObject);

var s1:string;
    i,c1,c2,c3:integer;
begin
s1:=Edit1.Text;
i:=0;
c1:=0;c2:=0;c3:=0;
  for i:=1 to length(s1) do
    begin
      if (pos(s1[i],'AEIOUYaeiouy')<>0) then
       inc(c1);
        if(pos(s1[i], 'BCDFGHJKLMPRSTVWXZbcdfghjklmnprstvwxz')<>0) then
        inc(c3);

  end;
    if c1>c3 then
 label1.Caption:='Шалсных больше';

    if c1=c3 then
  label1.Caption:='Ravno' ;

    if c1<c3 then
 label1.Caption:='Soglasnih boljshe' ;


end;

end.

[puporev]

Немного по другому.

const gl=['A','E','I','O','U','Y','a','e','i','o','u','y'];
      sgl=['B','C','D','F','G','H','J','K','L','M','P','R','S','T','V','W',
      'X','Z','b','c','d','f','g','h','j','k','l','m','n','p','r','s','t','v','w','x','z'];
var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
    i,k:integer;
begin
    s:=edit1.Text;
    if pos('A',s)=0 then
       begin
         ShowMessage('Буквы А нет!');
         exit;
       end
     else
       begin
         k:=0;
         for i:=pos('A',s)+1 to length(s) do
            begin
              if s[i] in gl then k:=k+1;
              if s[i] in sgl then k:=k-1;
            end;
        end;
     if k>0 then ShowMessage('Гласных больше!')
     else if k<0 then  ShowMessage('Согласных больше!')
     else if k=0  then  ShowMessage('Поровну!')
end;

end.

[vovk]

красиво но зачем согласные вообще описаны?
можно же их просто учитывать ка другие, запятые и пробелы в примере неп преводить смешно

[puporev]

Даётся какое то количество символов

Можешь ржать до икотки, но здесь не написано что в тексте только буквы.

[vovk]

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

[puporev]

А что знаки препинания и цифры непрописные символы? Или их тоже отнести к согласным. Короче напиши свой вариант, а потом флудить будем, или иди спи дальше.

[StarWorm]

Вовк ты только критикуешь, а ам ничего не делаешь!!!

[Walter]

Мне, чёт вечером в голову пришло, что тут вообще не надо искать, все 3 варианта, тип больше, меньше или равно... Тут же вроде спрашиваеться, верно ли? Ну я так понимаю через True,False?
Чтото у меня не так пошло, выдаёт ошибку

    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject); тут
  private
    { Private declarations }
  public
    { Public declarations }
  end;
const gl=['A','E','I','O','U','Y','a','e','i','o','u','y'];
      sgl=['B','C','D','F','G','H','J','K','L','M','P','R','S','T','V','W',
      'X','Z','b','c','d','f','g','h','j','k','l','m','n','p','r','s','t','v','w','x','z'];

var
  Form1: TForm1;

implementation