Составьте программу вычисления суммы номеров мест, на которых в слове S стоят гласные буквы., Составьте программу вычисления суммы номеров мест, на которых в слове Опции

[marwell]

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

 function Rus(mes: string):string;
 var i: integer;
 begin
  for i:=1 to length(mes) do
    case mes [i] of
      'А'..'п': mes[i]:=chr(Ord (mes [i])-64);
      'р'..'я': mes[i]:=chr(ord (mes[i])-16);
      end;
      rus:=mes;
      end;

var s:string;
    i,summa:integer;
begin
write (rus('введите текст - '));
readln (s);
summa:=0;
for i:=1 to length (s) do
case s[i] of
'а': summa:=summa+1;
'е': summa:=summa+1;
'и': summa:=summa+1;
'о': summa:=summa+1;
'у': summa:=summa+1;
'ы': summa:=summa+1;
'ю': summa:=summa+1;
'э': summa:=summa+1;
'я': summa:=summa+1;
end;
writeln (rus('текст-" '),s,' "');
writeln (rus('сумма номеров='),summa);
readln;
end.

Но программа выдает 0. Помогите разобраться

Добавлено через 5 мин.
ой, только сейчас понял, что я написал case вместе с for-ом вот дурак

Сообщение отредактировано: marwell - 27.03.2010 19:41

[marwell]

не понимаю, в чем проблема, но программа все равно не хочет считать сумму номеров

 function Rus(mes: string):string;
 var i: integer;
 begin
  for i:=1 to length(mes) do
    case mes [i] of
      'А'..'п': mes[i]:=chr(Ord (mes [i])-64);
      'р'..'я': mes[i]:=chr(ord (mes[i])-16);
      end;
      rus:=mes;
      end;
var s:string;
    i,summa:integer;
begin
write (rus('введите текст - '));
readln (s);
summa:=0;
  for i:=1 to Length(s) do
    if s[i] in ['А','Е','И','О','У','Ы','Ю','Э','Я','а','е','и','о','у','ы','ю','э','я'] then
      summa:=summa+i;
writeln (rus('текст-" '),s,' "');
writeln (rus('сумма номеров='),summa);
readln;
end. 

Выводит 0