Pascal. на подсчет букв.

[Quiz]

Помогите пожалуйста!

Программа, которая считает, сколько различных гласных букв употребляется в написании слова Х более 1 раза.
т.е программа проверяет слово, находит гласную, ищет дальше, если находит еще такую же букву. то к сумме +1. и тд..

[Sazary]

Как вариант:
В слове должы быть только английские буквы.

uses crt;
const mn = ['A','E','Y','U','I','O'];
var
s,mns : string;
mncnt : array[1..6] of byte;
i,k,res,len : integer;
begin
clrscr;
writeln('Vvedite slovo: ');
readln(s);
mns := 'AEYUIO';
len:= length(s);
for i:=1 to 6 do
  mncnt[i] := 0;
for i:=1 to len do
  if upcase(s[i]) in mn then
    for k:=0 to 6 do
     if upcase(s[i]) = mns[k] then
       inc(mncnt[k]);
res := 0;
for i:=1 to 6 do
 if (mncnt[i]>1) then inc(res);

writeln('Result: ',res,' bukv');
readln;
end.

[Askar_g]

SAZARY, чет не работает твоя прога

[Askar_g]

uses crt;
const mn = ['A','E','Y','U','I','O'];
var
s,mns : string;
mncnt : array[1..6] of byte;
i,k,res,len : integer;
begin
clrscr;
writeln('Vvedite slovo: ');
readln(s);
mns := 'AEYUIO';
len:= length(s);

for i:=1 to 6 do
mncnt[i] := 0;

for i:=1 to len do
if upcase(s[i]) in mn then
for k:=0 to 6 do
if upcase(s[i]) = mns[k] then
inc(mncnt[k]);
res := 0;
for i:=1 to 6 do
writeln(mns[i],'=',mncnt[i]);

readln;
end.

не забудь добавить отзыв ))

[Neymexa]

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

Как вариант:
В слове должы быть только английские буквы.

uses crt;
const mn = ['A','E','Y','U','I','O'];
var
s,mns : string;
mncnt : array[1..6] of byte;
i,k,res,len : integer;
begin
clrscr;
writeln('Vvedite slovo: ');
readln(s);
mns := 'AEYUIO';
len:= length(s);
for i:=1 to 6 do
  mncnt[i] := 0;
for i:=1 to len do
  if upcase(s[i]) in mn then
    for k:=0 to 6 do
     if upcase(s[i]) = mns[k] then
       inc(mncnt[k]);
res := 0;
for i:=1 to 6 do
 if (mncnt[i]>1) then inc(res);

writeln('Result: ',res,' bukv');
readln;
end.

Эта прога походу переводит из нижнего регистра в вверхний.
По крайней мере ф-ия upcase это делает

[Sazary]

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

SAZARY, чет не работает твоя прога

И что же в ней не работает?

ВОТ ПРАВИЛЬНОЕ РЕШЕНИЕ(ПЕРЕПРАВЛЕН КОД ОТ SAZARY)

И это вы называете правильным решением?
Вы задание читали?

Программа, которая считает, сколько различных гласных букв употребляется в написании слова Х более 1 раза

Не нужно выводить сколько раз встречается каждая гласная.

не забудь добавить отзыв ))

... за сделанную мной программу?

Neymexa

Эта прога походу переводит из нижнего регистра в вверхний.

Запустите программу и увидите, что она делает.

--------
Скрин с результатом работы:

[Askar_g]

Работает но выводит неправильный резалт.
Вот как он должен выглядеть
------>Screen12.jpg<-------

[Sazary]

Askar_g Вы мой пост прочитали? Читайте задание:

Программа, которая считает, сколько различных гласных букв употребляется в написании слова Х более 1 раза.
т.е программа проверяет слово, находит гласную, ищет дальше, если находит еще такую же букву. то к сумме +1. и тд..

Какое слово не понятно?
Нужно вывести одно число.


Кстати, даже если отбросить само задание, то "ваш" вариант от моего ничем не отличается (по логике работы). Или вы считаете, что приписав пару строчек, уже можно называть его своим?

[Askar_g]

Sazary давай правильно или нет будет решать автор вопроса а не ты!!!

и еще я не говорил что это моё

ВОТ ПРАВИЛЬНОЕ РЕШЕНИЕ(ПЕРЕПРАВЛЕН КОД ОТ SAZARY)

[Sazary]

Askar_g
Во-первых:

ВОТ ПРАВИЛЬНОЕ РЕШЕНИЕ

Это вы так не решаете кто прав?
А во-вторых, с каких пор мы с Вами на "ты"?

Собственно, пошел оффтоп. Продолжать не вижу смысла, раз вы не можете даже перечитать задание.