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

УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ

Скрыть

		ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
Строчные буквы ABS

Страница 2 из 2

Опции темы

Поиск в этой теме

Опции просмотра

#11

12.05.2010, 21:59

Shkiper2009

Познающий

Регистрация: 18.08.2009

Сообщений: 33

С нами: 8805322

Репутация: -10

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

#12

12.05.2010, 22:03

JnK

Участник форума

Регистрация: 30.03.2007

Сообщений: 121

С нами: 10060964

Репутация: 52

Цитата:

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

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

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

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

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

#13

12.05.2010, 22:07

TRX.new

Участник форума

Регистрация: 27.04.2009

Сообщений: 189

С нами: 8968720

Репутация: 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..

Страница 2 из 2

« Предыдущая тема | Следующая тема »

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
как посимвольно обработать и заменить буквы в строке utf-8?	Дикс	PHP	3	09.04.2010 21:35
Регистр первой буквы вашего имени.	Cthulchu	Болталка	48	20.02.2010 17:47
Приобрету скрипт для рандома текста: синонимами, заменяющими буквы русского текста на	writtengen	Freelance - О Работе	7	26.05.2009 12:27

Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)

Быстрый переход

Внести депозит

Депозит создан

Вывести депозит

Создать сделку

Мои сделки

Сделка

ESCROW ADMIN PANEL