25.03.2010, 17:10
|
|
Познающий
Регистрация: 17.02.2010
Сообщений: 45
Провел на форуме:
195184
Репутация:
47
|
|
Вот исправленная и подправленная версия, думаю поймете что к чему
PHP код:
var
cur_symb, symb_of_end, y, j: char;
mn, v_mnoj, v_mnoj2: set of char;
begin
v_mnoj:=['!'..'.'];
v_mnoj2:=[':'..'?'];
cur_symb:=' ';
mn:=[];
{writeln('Введите символ указывающий на конецстроки.');}
readln(symb_of_end);
{writeln('Введите множество символов.');}
while cur_symb <> symb_of_end do
begin
read(cur_symb);
if (cur_symb in v_mnoj) or (cur_symb in v_mnoj2) then mn:=mn+[cur_symb]
end;
{writeln('В множестве содержатся:');
writeln('знаки препинания:');}
for j:='!' to '.' do
if j in mn then write(j,' ');
for j:=':' to '?' do
if j in mn then write(j,' ');
readln;
readln;
end.
P.S. Добавил еще символы '!' '<' '>' '?' ':' ';'
Последний раз редактировалось Soherox; 25.03.2010 в 17:16..
|
|
|