Лаба7: Удалить все буквы "а" из строки (Паскаль)

[Владан]

Задали произвольную строку, выполнить с ней следующие действия. Внимание! Не использовать дополнительную строку и встроенные функции. Удалить все буквы "а" из строки.
в чем моя ошибка ??? подскажите

uses
  SysUtils,math,windows;
var
  a:string;
  c:
  i,b:integer;

begin
  setconsoleCP(1251);
  setconsoleoutputCP(1251);
  Writeln('Введіть рядок');
  readln(a);
  b:=length(a);
  i:=1;
  While i<=b do
  begin
  if c='a' then
  delete (a,i,1);
  i:=i-1;
  b:=length(a);
end;
Writeln(b);
i:=i-1;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Poma][a]

i:=i-1

Надо i := i + 1

И насколько я помню цикл while в отличии от for каждый раз вычисляет границу цикла, так что выкинем b и будет использовать только Length(s).
Или идти циклом for с конца, тогда вообще не будет заморочек с длиной строки (пример много на форуме, насколько помню for i := Length(s) downto 1 do делал Серж)

[Serge_Bliznykov]

согласен с Poma][a, во всех случаях, когда нужен цикл и в цикле удаляются элементы, лучше делать обратный цикл от последнего элемента к первому:

for i:=Length(a) downto 1 do
  if a[i]='a' then Delete(a,i,1);

Это ВЕСЬ цикл обработки, фактически - вся программа за исключение описания переменных и ввода/вывода..


Но есть и ещё одно замечание по программе...

Сообщение от Владан

  delete (a,i,1);

Сообщение от Владан

Не использовать дополнительную строку и встроенные функции.

Возможно, я Вас расстрою, но Delete() является встроенной функцией...
Впрочем, попробуйте сдать задание с этой функцией, потому как в противном случае прийдётся изменять (уменьшать) длину строки - а это можно сделать или хакерскими методами, либо, опять же, встроенными функциями...

[Stilet]

Предлагаю такое сжатие строки:

k:=1;
for i:=1 to Length(a) do  if c[i]<>'a' then begin c[k]:=c[i];inc(k);end;
for i:=k to Length(a) do c[i]:=' ';

[Serge_Bliznykov]

Отлично, Белик Виталий, садитесь, зачёт!

[Stilet]

садитесь

Товаришь судья, я же ничего не украл Меня подставили!!!

[Poma][a]

Красиво
Ток несколько вопросов :
А зачем Length(a), если наша строка c ? (Наверное, просто описка)
И зачем последний цикл восстанавливает длину строки?

[NinaSSS]

вот тебе код
#var l:string; i,ll:integer;
begin
readln(l);
ll:=length(l);
for i:=1 to ll do begin
if l[i]='а' then delete(l,i,1);end;
writeln('novaa stroka ',l);end.#

[Poma][a]

Люблю цитировать Сержа :

Возможно, я Вас расстрою, но Delete() является встроенной функцией...

[Serge_Bliznykov]

NinaSSS, во-первых, для Delete правильный код я уже опубликовал выше пост #3 (цикл должен быть обратный от конца строки к началу, т.к. Вы в цикле удаляете элементы, следущий элемент будет сдвигаться!) Ваш код вообще не рабочий!

во-вторых, Ромаха прав, Delete встроенная функция

в-третитьих, Stilet привел пример кода БЕЗ использования встроенных функций.

в-четвёртных, код нужно оформлять тегами!