IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Множество из звонких букв
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 6
Пол: Мужской
Реальное имя: Вованыч

Репутация: -  0  +


Есть множество звонких букв, водим предложение, как найти все эти буквы хотя бы в одном слове?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2





Группа: Пользователи
Сообщений: 6
Пол: Мужской
Реальное имя: Вованыч

Репутация: -  0  +


Цитата(Fil2008 @ 15.02.2008 17:51) *

Есть множество звонких букв, водим предложение, как найти все эти буквы хотя бы в одном слове?

uses crt;
type
chars=set of char;
const
SBykvi: chars=['в','б','г','д','ж','з','л','м','н','р'];
VseBykvi: chars=['а'..'п','р'..'я',',','.'];

var
a,b,c,slovo: chars;
s: char;
i:byte;
procedure Prints(M:chars);
var
i: byte;
net: boolean;
begin
net:=true;
for i:=0 to 255 do
if (chr(i) in M) then
begin
write(chr(i):2);
net:=false;
end;
if net then
write('Їгбв®');
end;

begin
clrscr;
textbackground(white);
textcolor(red);
writeln('‚ўҐ¤ЁвҐ б«®ў , а §¤Ґ«пп § ЇпвЁ¬Ё,   §  Ї®б«Ґ¤­Ґ¬ б«®ў®¬ Ї®бв ўм⥠в®зЄг');
writeln;
textbackground(blue);
textcolor(white);

repeat
S:=readkey;
c:=SBykvi;

if s in Vsebykvi then
begin

if s=',' then
begin
slovo:=[];
end
else
begin
slovo:=slovo+[s];

end;
write(s);
if a=a+slovo then
if c<=a then
a:=c;


until s='.';



prints(A);



readLn;
end.
Почему то не работает?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гость






Ну совесть-то имейте... Поиск для чего на форуме? Множества (и доделываешь под свои нужды)
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4





Группа: Пользователи
Сообщений: 6
Пол: Мужской
Реальное имя: Вованыч

Репутация: -  0  +


Цитата(Fil2008 @ 15.02.2008 17:51) *

Есть множество звонких букв, водим предложение, как найти все эти буквы хотя бы в одном слове?

uses crt;
type
chars=set of char;
const
SBykvi: chars=['в','б','г','д','ж','з','л','м','н','р'];
VseBykvi: chars=['а'..'п','р'..'я',',','.'];

var
a,b,c,slovo: chars;
s: char;
i:byte;
procedure Prints(M:chars);
var
i: byte;
net: boolean;
begin
net:=true;
for i:=0 to 255 do
if (chr(i) in M) then
begin
write(chr(i):2);
net:=false;
end;
if net then
write('Їгбв®');
end;

begin
clrscr;
textbackground(white);
textcolor(red);
writeln('‚ўҐ¤ЁвҐ б«®ў , а §¤Ґ«пп § ЇпвЁ¬Ё,   §  Ї®б«Ґ¤­Ґ¬ б«®ў®¬ Ї®бв ўм⥠в®зЄг');
writeln;
textbackground(blue);
textcolor(white);

repeat
S:=readkey;
c:=SBykvi;

if s in Vsebykvi then
begin

if s=',' then
begin
slovo:=[];
end
else
begin
slovo:=slovo+[s];

end;
write(s);
if a=a+slovo then
if c<=a then
a:=c;


until s='.';



prints(A);



readLn;
end.
Почему то не работает?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Michael_Rybak
*****

Группа: Пользователи
Сообщений: 1 046
Пол: Мужской
Реальное имя: Michael_Rybak

Репутация: -  32  +


 ! 
Пользуемся тегом code.




 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 27.10.2020 17:19
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name