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

> Правила раздела!

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

 
 Ответить  Открыть новую тему 
> В чём секрет?
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 17

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


Посмотрите пожайлуста!
Данная прога выводит на экран только глухие согласные, которые есть во 2 слове текста!
Вопрос после кода:
Код
  var s,l:string;
  i,w:byte;
 m:set of char;
   begin
    writeln('введите строку');
    readln(s);
       w:=pos(' ',s);
       l:=copy(s,w,pos(' ',s));
       m:=['ц', 'к', 'ш', 'х', 'ф', 'п'];
   for i:=1 to length(l) do
   if l[i] in m then
   writeln(l[i]);
   end.
 Вопрос: Как сделать так чтобы во всей строчке если введется 2 пробела прога делала бы из них 1 . Например: после 1 слова введено 2 пробела из за этого не выведутся все согласные глухие.
Или может можно придумать условие?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Новичок
*

Группа: Пользователи
Сообщений: 42

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


Удаляем пробелы:

Код
function DeleteBlanks(var a:string):string;
var
 i:integer;
begin
 for i:=1 to length(a)-1 do
   if (a[i]=' ') and (a[i+1]=' ') then
     Delete(a,i,1);
 DeleteBlanks:=a;
end;
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Четыре квадратика
****

Группа: Пользователи
Сообщений: 579
Пол: Мужской

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


Удаляем кратные пробелы (два-три-много подряд)

function DelSpaces(var s:string);
begin
 while pos(<ДваПробела>,s)>0 do
    delete(s,pos(<ДваПробела>,s),1)
end;


--------------------
Закон добровольного труда Зимерги:
Люди всегда согласны сделать работу, когда необходимость в этом уже отпала
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 




- Текстовая версия 28.04.2017 15:11
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"