Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 16.05.2012, 17:40   #1
Artem2233
Новичок
Джуниор
 
Регистрация: 16.05.2012
Сообщений: 2
По умолчанию кто может помочь

Вводится непустая строка из строчных русских букв.Отдельные слова в ней разделены запятыми.Вывести на печать в алфавитном порядке: глухие согласные, которые входят хотя бы в в одно четное слово и хотя бы в одно нечетное слово.(нужно только через множества)
Artem2233 вне форума
Старый 16.05.2012, 17:57   #2
Artem2233
Новичок
Джуниор
 
Регистрация: 16.05.2012
Сообщений: 2
По умолчанию

ну или помогите переделать вот эту под мою:Вводится непустая строка из строчных русских букв.Отдельные слова в ней разделены запятыми.Вывести на печать в алфавитном порядке звонкие согласные которые входят хотя бы в одно нечетное слово и не входят хотя бы в одно четное
USES crt;

CONST
zs : set of char = ['Ў','ў','Ј','¤','¦','§','«','¬','*' ,'а'];


VAR
st : string[79];
d, n, k, i : integer;
sl, mnechet, mchet, vm : set of char;
chet : boolean;
c : char;

BEGIN
clrscr;
st:=' Ў®а®§¤*, Ў®а®**, ¦Ёа*д, ЎҐбᮤҐа¦**ЁҐ, ¦*а*';
writeln('‚ўҐ¤ЁвҐ бва®Єг, а*§¤Ґ«пп б«®ў* §*Їпвл¬Ё');
readln(st);
writeln;
d:=LENGTH(st);
while (d>0) and (st[d]=' ') do
d:=d-1;
if d=0 then
write('ЂЌЋЊЂ‹€џ: бва®Є* Їгбв*п')
else
begin
chet:=true;
mnechet:=[];
mchet:=[];
n:=1;
while n<=d do
begin
while st[n]=' ' do
n:=n+1;
k:=POS(',',COPY(st,n,d-n+1));
if k=0 then
k:=d
else
k:=k+n-1-1;

{

k:=n;
while (k<=d) and (st[k]<>',') do
k:=k+1;
k:=k-1;
}
chet:=not chet;
sl:=[];
for i:=n to k do
sl:=sl+[ st[i] ];
if chet then
mchet:=mchet+(zs-sl)
else
mnechet:=mnechet+(zs*sl);
n:=k+2;
end;
vm:=mchet*mnechet;
writeln('‡‚ЋЌЉ€… ‘Ћѓ‹Ђ‘Ќ›…, ЉЋ’Ћђ›… ‚•Ћ„џ’ •Ћ’џ Ѓ› ‚ Ћ„ЌЋ Ќ…—…’ЌЋ… ‘‹Ћ‚Ћ');
writeln('€ Ќ… ‚•Ћ„џ’ •Ћ’џ Ѓ› ‚ Ћ„ЌЋ —…’ЌЋ…:');
if vm=[] then
write('таких букв нет')
else
for c:='Ў' to 'а' do
if c IN vm then
write(c,' ');
end;

readln;
END.
Artem2233 вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Кто может помочь новичку? klarki HTML и CSS 1 29.03.2012 11:28
Кто может помочь с Фортраном Иван89 Помощь студентам 1 23.11.2011 11:10
Кто может помочь..... teres C++ Builder 1 18.03.2011 17:59
Может кто помочь с заданиями? fatalistika Фриланс 15 30.12.2010 08:52
Кто может помочь с программой codemasters Фриланс 2 28.11.2010 16:41