Как удалить элемент в строке?

[kris14]

Здравствуйте, задание было такое:
В строке удалить символ «двоеточие» ( : ) и подсчитать количество замен.
Я сделала программу, она работает, но я сделала так, чтобы программа просто скрыла двоеточие, а не удалила, не подскажите, как все же удалить? Заранее спасибо за помощь !

program p1; 
 
var s:string[30]; 
 n,i:integer; 
 begin 
 writeln('введите текст'); 
 readln(s); 
 n:=0; 
 for i:=1 to length(s) do 
 begin 
 if s[i]=':' then 
 s[i]:=' '; 
 writeln(''); 
 writeln(s); 
 if s[i]=' ' then n:=n+1; 
 
 write('количество замен = ', n) 
 end; 
end.

[Serge_Bliznykov]

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

не подскажите, как все же удалить?

если не запрещено использовать стандартные функции, то это легко делается через процедуру Delete():

program p1; 
 
var 
  s:string; 
  n,i:integer; 
begin 
    writeln('введите текст'); 
    readln(s); 
    n:=0; 
    for i:=length(s) downto 1  do 
       if s[i]=':' then begin
          Inc(n); 
          Delete(s, i, 1);
       end;
 
   writeLn('количество замен = ', n);
   writeLn('строка после удаления: ', s)
end.

[kris14]

Спасибо большое! А если без неё?)

[Serge_Bliznykov]

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

Спасибо большое! А если без неё?)

два варианта.
1) использовать дополнительную строчку, куда переписывать все символы, кроме ':'

2) реализовать процедуру удаления, рассматривая строчку как массив данных.
для этого нужно сделать цикл и в нём переписывать все символы, которые стоят после удаляемого на его место.
Кроме того, будет небольшая проблема с уменьшением длины строки. Тут уже зависит от компилятора Паскаля. В некоторых длина строки хранится в нулевом байте и достаточно его изменить. В некоторых можно для этого использовать функцию SetLength().
Ну и ещё можно длину строки не трогать, но тогда написать свою процедуру вывода строки на экран.
Тут всё зависит от поставленной задачи и ограничений.

Ну и последнее. Задачи, где что-то запрещено использовать - всегда ущербны. Они придуманы, чтобы чему-то научить, но часто, для их выполнения приходится чесать правое ухо левой рукой через спину - это криво и неудобно.

[kris14]

Спасибо огромное!