Строчные буквы ABS

Среда программирования: ABS Pascal

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


За сегодняшний день это уже мой второй косяк , потому что в паскале вообще не разбераюсь, так что прошу у вас помощи.
Заранее спасибо.

 

http://www.programmon.ru/TurboPascal/3.html
первая ссылка гугеля.

 

интернет сейчас - это не интернет вчера, где могли написать программу, если кто-нибудь попросит.
google.com -> паскаль строчная буква.

 

блин а тебе трудно сюда ее скинутЬ!!!!!!!!?????????????

 

Я В ПАСКАЛЕ 0000000 люди если вы нашли то киньте сюда ее

 

или напишите ктонибудь?? Greeeen-ов дам

 

так прочитай ты статью, ебаный насос! там все написано уже за тебя!

 

дак мля я уже половину прочитал немогу понять где она!!!

 

спасибо нашол

var
ch : Char ;
begin
ReadLn (ch) ;
case ch of
'n','N' : WriteLn ('Нет' );
'y','Y' : WriteLn ('Да')
end
end.

 

Ты точно это искал?

 

ну просто потом за место англ букв заменить руские и написать что эта буква прописной гласной

 

1. Создаешь массив с гласными строчными буквами
2. введеный символ в цикле сравниваешь с массивом
3. если найдено, выводишь да, если не найдено, выводишь нет.

P.s. Если голова на плечах. То в соседней теме (созданой тобой) есть код, который надо чуток переделать.

 

Держи вообщем, английский алфавит я надеюсь на русский поменять сможешь...

PHP:

Program aBc;
Uses crt;
type Letters = set of 'a'..'z';
Const geng : Letters = ['a', 'e', 'i', 'o', 'u', 'y'];
Var str1 : string;
    pos : integer;
Begin
    clrscr;
    writeln('Enter some string: ');
        read(str1);
        writeln('Pos about? (1-',length(str1),')');
        read(pos);
        pos:=abs(pos);
        if (pos<=length(str1)) and (str1[pos] in geng) then
        writeln ('vowel small case!')      
    else 
        writeln('something wrong... bye!');
End.