Составьте программу вычисления суммы номеров мест, на которых в слове 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 23:41

[volvo]

Хитрый какой... То есть, для того, чтобы текст показывался в консоли нормально, ты догадался вызвать Rus, а то, что пользователь вводит ответ другой кодировке - не догадался? Либо делай обратное преобразование полученного от пользователя ответа, и потом, как ты делал - сравнивай посимвольно, либо так:

{ ...  }
var
  alpha: string;

begin
  write (rus('введите текст - '));
  readln (s);
  summa:=0;
  alpha := rus('АЕИОУЫЮЭЯаеиоуыюэя');
  for i:=1 to Length(s) do
    if Pos(s[ i ], alpha) > 0 then summa:=summa+i;
  writeln (rus('текст-" '),s,' "');
  writeln (rus('сумма номеров='),summa);
  readln;
end.

Понимаешь, что изменилось?

[marwell]

Хитрый какой... То есть, для того, чтобы текст показывался в консоли нормально, ты догадался вызвать Rus, а то, что пользователь вводит ответ другой кодировке - не догадался? Либо делай обратное преобразование полученного от пользователя ответа, и потом, как ты делал - сравнивай посимвольно, либо так:

{ ...  }
var
  alpha: string;

begin
  write (rus('введите текст - '));
  readln (s);
  summa:=0;
  alpha := rus('АЕИОУЫЮЭЯаеиоуыюэя');
  for i:=1 to Length(s) do
    if Pos(s[ i ], alpha) > 0 then summa:=summa+i;
  writeln (rus('текст-" '),s,' "');
  writeln (rus('сумма номеров='),summa);
  readln;
end.

Понимаешь, что изменилось?

понял! в моем варианте программа никак не могла найти заданные символы в веденной строке... не догодался еще раз использовать rus... спасибо

Сообщение отредактировано: marwell - 28.03.2010 16:17