Убрать двойные пробелы, а где одиночные - поставить вместо "*"

@YniRus · Регистрация: 13.12.2011

Студворк — интернет-сервис помощи студентам

нужно составить программу, где двойной пробел заменяется одиночным, а там где уже стоит одиночный пробел поставить "*". первая часть программы у меня есть. можете помочь со второй?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
var q: string;
var i,dlina: integer;
begin
 readln(q);
 for i:=1 to Length(q) do
 dlina:=dlina+1;
 i:=0;
 for i:=1 to Length(q) do
   begin
    if (q[i]=' ') and (q[i+1]=' ') then
    Delete(q,i,1);
     end;
   end;
 writeln(q);
end.

@Tbit · 06.04.2012, 18:21

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses crt;
var q: string;
var i: integer;
begin
  readln(q);
  i:=1;
  while i<Length(q) do
  begin
    if (q[i]<>' ') and (q[i+1]=' ') and (q[i+2]<>' ')
    then q[i+1]:='*'
    else
    begin
      if (q[i]=' ') and (q[i+1]=' ')
      then
      begin
        Delete(q,i+1,1);
        inc(i);
      end
      else inc(i);
    end;
  end;
 writeln(q);
end.

Вроде все, если будут вопросы пиши.

@YniRus · 06.04.2012, 18:35 **[ТС]**

Pascal
1
2
3
4
5
6
begin
Delete(q,i+1,1);
 inc(i);
 end
 else inc(i);
end;

что за inc и зачем он нужен?

@Tbit · 06.04.2012, 18:40

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

что за inc и зачем он нужен?

просто увеличивает переменную i на 1
можно написать
i:=i+1;

@YniRus · 06.04.2012, 18:46 **[ТС]**

ясно. спасиб) я вообще через gotoxy делал)))

Новые блоги и статьи Все статьи Все блоги /
Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/

@YniRus 8 / 8 / 4 Регистрация: 13.12.2011 Сообщений: 124
	06.04.2012, 18:46 [ТС]
	ясно. спасиб) я вообще через gotoxy делал))) 0