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

[Stilet]

Наверное, просто описка

Угадал. Описка.

И зачем последний цикл восстанавливает длину строки?

Ну это не восстановление, я бы это выравниванием назвал. Я то по факту, сжав строку, мусор не выкидывал - функции то запрещены, так что пришлось просто занопить его пробелами.

[Poma][a]

Наконец-то понял! Этим Вы выбрасываете остатки от 1 строки (затираете их пробелами)

[NinaSSS]

А вы запустите эту прогу и поймете, что она работает

[Poma][a]

А вы запустите эту прогу и поймете, что она работает

Придите в ресторан закажите блюдо - лосось приготовленный на медленном огне с использованием вегетарианской технологии для .....
Какова будет Ваша реакция если Вам кинут на тарелку живую кильку со словами : "Её тоже есть можно"

[Владан]

Сообщение от 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]:=' ';

спасибо , а что такое с ?
с:char; ????

[Mad_Cat]

спасибо , а что такое с ?

там

Угадал. Описка.

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

вот так должно быть И

c:string;

[Владан]

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

там

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

вот так должно быть И

c:string;

спасибо , это получается у нас две строки 'a' и 'c' ?

[Владан]

uses
  SysUtils,
  math,
  windows;

var
  a:string;
  c:string;
  k,i,b:integer;

begin
  setconsoleCP(1251);
  setconsoleoutputCP(1251);
  Writeln('Введите строку');
  readln(a);
  b:=length(a);
  k:=1;
  for i:=1 to Length(c) do
  if c[i]<>'a' then
  begin c[k]:=c[i];inc(k);
  end;
  for i:=k to Length(C) do c[i]:=' ';
  b:=length(a);
  i:=i+1;
  Writeln(b);
end.

вот я вписую строку(после нажатия F9) и окно пропадает.

[Mad_Cat]

//........
Writeln(b);
Readln;
end.

b:=length(a);

эт зачем?

 i:=i+1;

и это?
и зачем вам вторая строка?

[Serge_Bliznykov]

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

А вы запустите эту прогу и поймете, что она работает

Да Вы что?! Правда, работает?
Ну проверьте для строки aa1aa2aaaa:

var l:string; i,ll:integer;
begin
  { readln(l); }
  l := 'aa1aa2aaaa';
  ll:=length(l);
  for i:=1 to ll do begin
    if l[i]='a' then delete(l,i,1);
  end;
  writeln('novaa stroka ',l);
  readln
end.

выделил цветом, чтобы ни у кого не возникло желание пользоваться этим некорректным кодом.

Но то, что программа некорректно обрабатывает строку, это ещё полбеды.
В программе есть более существенный баг. Только он не так явно проявляется. Если Вы запустите программу под нормальным компилятором (например, в Delphi) то получите ошибку ERangeError! Смотрите, у Вас в ll длина строки (ну, пусть будет, например, 10), если в строке есть буквы, то Вы их из строки удаляете. так? значит длина строки что делает? Правильно, уменьшается. А переменная ll - не изменяется! Поэтому, когда удали одну букву, l[10] - это обращение к НЕСУЩЕСТВУЮЩЕМУ символу строки. (ТурбоПаскаль, в силу того, что строка без указания длины == array[0..255] of char - соответственно игнорирует выход за длину строки - ему важно, чтобы не было написано l[256] или больше...
Поэтому, Вы свою ошибку и не видите.. Но она там есть!

NinaSSS, успехов в программировании!