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

[Shkiper2009]

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

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


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

[GreenBear]

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

[GreenBear]

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

[Shkiper2009]

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

[Shkiper2009]

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

[Shkiper2009]

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

[GreenBear]

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

[Shkiper2009]

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

[Shkiper2009]

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

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

[TRX.new]

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

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

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

[Shkiper2009]

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

[JnK]

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

var
ch : Char ;
begin
ReadLn (ch) ;
case ch of
'n','N' : WriteLn ('Нет' );
'y','Y' : WriteLn ('Да')
end
end.
:D
1. Создаешь массив с гласными строчными буквами
2. введеный символ в цикле сравниваешь с массивом
3. если найдено, выводишь да, если не найдено, выводишь нет.

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

[TRX.new]

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


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.