ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
12.05.2010, 21:59
|
|
Познающий
Регистрация: 18.08.2009
Сообщений: 33
Провел на форуме:
192049
Репутация:
-10
|
|
ну просто потом за место англ букв заменить руские и написать что эта буква прописной гласной
|
|
|
12.05.2010, 22:03
|
|
Участник форума
Регистрация: 30.03.2007
Сообщений: 121
Провел на форуме:
188563
Репутация:
52
|
|
Сообщение от Shkiper2009
спасибо нашол
var
ch : Char ;
begin
ReadLn (ch) ;
case ch of
'n','N' : WriteLn ('Нет' );
'y','Y' : WriteLn ('Да')
end
end.
1. Создаешь массив с гласными строчными буквами
2. введеный символ в цикле сравниваешь с массивом
3. если найдено, выводишь да, если не найдено, выводишь нет.
P.s. Если голова на плечах. То в соседней теме (созданой тобой) есть код, который надо чуток переделать.
|
|
|
|
12.05.2010, 22:07
|
|
Участник форума
Регистрация: 27.04.2009
Сообщений: 189
Провел на форуме:
1141766
Репутация:
69
|
|
Держи вообщем, английский алфавит я надеюсь на русский поменять сможешь...
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.
Последний раз редактировалось TRX.new; 12.05.2010 в 22:11..
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
