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

[Poma][a]

Господи, Серж, Вы так не пугайте. Я то думал что нам такую подсветку синтаксиса забобахали, аж инфаркт чуть не пришел...
Хвала небесам, успел прочитать что это Вы так выделили, а то кто знает, может одним безграмотным школьником стало бы меньше...

[NinaSSS]

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

[Serge_Bliznykov]

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

я запускал её. она не работает. я привёл пример строки, для которой Ваш код не работает.
более того, в Delphi ваш код вообще выдаёт ошибку при выполнении!

ОК. Ладно. Давайте так, если мой предыдущий пост оставил у Вас какие-то сомнения или недопонимание, давайте закончим обсуждение Вашего кода на страницах данной темы..

[Владан]

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

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

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

вообщем у меня в окне выбивает количество букв в строке , а не новую строку уже без символов 'a' ???!

[Mad_Cat]

а вы на мои вопросы то ответьте--> исправьте --> и все будет нормательно

uses
  SysUtils;
var
  c:string;
  k,i:integer;
begin
  Writeln('Input string:');
  readln(c);
  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]:=' ';
  Writeln(c);
  readln;
end.

[Владан]

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

а вы на мои вопросы то ответьте--> исправьте --> и все будет нормательно

uses
  SysUtils;
var
  c:string;
  k,i:integer;
begin
  Writeln('Input string:');
  readln(c);
  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]:=' ';
  Writeln(c);
  readln;
end.

много ошибок

[ViktorR]

Хотя и в хвост ушедшему поезду, но могу добавить, что строка в Паскале - массив с нулевым байтом, в котором хранится ее длинна.
Т.е. можно не затирать строку пробелами, а сразу обрезать через:

c[0] := char(k-1); {char - операция приведения типа}

На предмет встроенной функции:
- встроенная функция для преобразования в символ - chr(x: Byte): Char;

Вроде так тоже можно ...

[Poma][a]

Люблю цитировать Сержа (Слегка подправил) :

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

И даже если на это закрыть глаза, то всё равно не работает...
Введем
asd
получим
sdd

[Stilet]

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

Че так? chr() это функция, а Char() это приведение типов.

[Poma][a]

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

Или я ошибаюсь?