Удалить из строкового значения все вхождения заданного символа. Delphi

[Saka]

Задача такая:

Удалить из строкового значения все вхождения заданного
символа.

Нельзя: в задаче не использовать функции и процедуры для выполнения операций над строкой, а рассматривать строку как массив символов

[ОДИНОЧЕСТВО В СЕТИ]

m:=length(s);
  for i:=1 to Length(s) do
  if s[i]=c then begin
  for j:=i to m-1 do
       s[j]:=s[j+1];
       m:=m-1;
    end;//где s-строковое значение, а с-заданный символ 

for i:=1 to m do 
write(s[i]);

[Serge_Bliznykov]

s[i]:=''

нет.
Так нельзя.
Нельзя символу (а каждый элемент строки - это символ,
т.к. строка это по сути array[0..255] of char) присвоить пустую строчку!

p.s. я когда увидел такой код, я просто обалдел!
Если это сработало, это было просто гениально!

Saka,
если допускается, то самый простой способ решения данной задачи - использовать дополнительную (временную) строчку, куда и переносить все элементы исходной строки, кроме равных символу C
если же дополнительную строчку нельзя использовать,
тогда чуть сложнее:
надо в цикле идти по строке, а если текущий элемент строки совпал с символом C, то сдвигать все последущие (до конца строки) символы на его место.

[shelest]

const n=255;
var
C: array [1..n] of char;
i,m:integer;
a:char;


begin
writeln ('vvedite kolichestvo elementov massiva ');
readln (m);
 for i:=1 to m do
begin
readln (C[i]);
end;
writeln ('vvedite element');// заданный элемент который будет удаляться из массива
readln (a);
for  i:=1 to m do
begin
if  c[i]=a then c[i]:=' ';
end;
for i:=1 to m do Write(c[i]:3);
writeln;
readln
end.

[Serge_Bliznykov]

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

if  c[i]=a then c[i]:=' ';

shelest, Вас не смущает, что это НЕ УДАЛЕНИЕ символа, а замена его на пробел?..

[Utkin]

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

нет.
Так нельзя.
Нельзя символу (а каждый элемент строки - это символ,
т.к. строка это по сути array[0..255] of char) присвоить пустую строчку!

Строка в Дельфи это по сути указатель на строку, а не строка. И если явно не объявлено, то размер строки зависит от задачи - либо 255 символов, либо последовательность символов длиной до 4Гб. Поэтому если перед нами указатель на строку, то s[i]:='' использовать можно, поскольку в Дельфи строка это поток байтов, а не строка оканчивающаяся нулем, иными словами строка может содержать любые символы от 0 до 255 (в отличие от С).

[Saka]

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

const n=255;
var
C: array [1..n] of char;
i,m:integer;
a:char;


begin
writeln ('vvedite kolichestvo elementov massiva ');
readln (m);
 for i:=1 to m do
begin
readln (C[i]);
end;
writeln ('vvedite element');// заданный элемент который будет удаляться из массива
readln (a);
for  i:=1 to m do
begin
if  c[i]=a then c[i]:=' ';
end;
for i:=1 to m do Write(c[i]:3);
writeln;
readln
end.

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

shelest, Вас не смущает, что это НЕ УДАЛЕНИЕ символа, а замена его на пробел?..

сделайте так чтобы удалялось, пожалуйста))

[Serge_Bliznykov]

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

s[i]:='' использовать можно

нет, нельзя. Неужели трудно запустить Delphi и проверить?!!
Это выражение выдаёт ошибку на этапе компиляции.

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

сделайте так чтобы удалялось, пожалуйста))

Saka, я предложил два варианта решения.
Первый (через дополнительную строчку) устраивает?

[Saka]

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

нет, нельзя. Неужели трудно запустить Delphi и проверить?!!
Это выражение выдаёт ошибку на этапе компиляции.



Saka, я предложил два варианта решения.
Первый (через дополнительную строчку) устраивает?

Абсолютно))

[Serge_Bliznykov]

var s, s2 : string;
  i : integer;
  c : char;
begin
  WriteLn('VVedite stroku: ');
  Readln(s);
  WriteLn('VVedite udalayemyj simvol: ');
  Readln(c);
  s2 := '';
  for i:=1 to length(s) do
    if s[i] <> c then s2 := s2 + s[i];

  WriteLn(' Resultat: ',s2);
  Readln;
end.