нужно реализовать задачу в Delphi

[Little_girl37]

Из данного натурального числа удалить все цифры А(А вводится с клавиатуры)

[filvika]

Как вариант:

var
    i, n: integer;
    a: char;  //  Одна цифра
    s0, s: string;
begin
    write('n (int) = ');
    readln(n);
    write('a (char) = ');
    readln(a);

    s := IntToStr(n);
    s0 := '';
        for i := 1 to length(s) do
            if (s[i]<>a) then s0 := s0 + s[i];

    n := StrToInt(s0);
    writeln(n);
    readln;
end.

[Вадим Мошев]

Вот Функционал программы

Var st:string;
	A, n, i: word;
//......

{N – Натуральное число}
{A - цифра}

If a not in [0..9] then begin ShowMessage(‘Вы ввели не цифру’); exit end;

St:=intToStr(n);

For i:=1 to length(st) do
		If StrToInt(st[i]) = a then st[i]:=’’;

[GetMax]

Все просто

 
While Pos(Cifra,Chislo) > 0 do
Begin
  Delete(Chislo,Pos(Cifra,Chislo),1)
End;

[VadikV]

program prog;

var
   n : LongInt;         { Введенное число }
   n1 : LongInt;        { Результат }
   d : integer;         { Текущая выделенная цифра числа }
   m : LongInt;         { разряд цифры, помещаемой в результат }
   x : integer;
begin
   Write('Введите число: ');
   ReadLn(n);
   Write('Какую цифру удалять: ');
   ReadLn(x);
   WriteLn;
   WriteLn('Исходное число: ', n);
   n1 := 0;
   m := 1;
   while n > 0 do begin { Цикл пока в числе есть цифры }
      d := n mod 10;    { Выделяем правую цифру из числа }
      n := n div 10;    { Удаляем из числа выделенную цифру }
      if d <> x then begin  { Если не запрещенная цифра }
         if m = 1
         then n1 := d
         else n1 := n1 + d * m;
         m := m * 10;
      end;
   end;
   WriteLn('     Результат: ', n1);
   ReadLn;
end.

[Serge_Bliznykov]

... then st[i]:=’’;

Вадим Мошев, ошибка! такой код совершенно справедливо не скомпилируется. Нельзя символу присвоить строку (даже и пустую!)

GetMax, отлично!

p.s. не удивлюсь, если автору топика преподаватель потребует это сделать БЕЗ использования строковых функций (ну и соответственно, без преобразования числа в строку)


Добавлено
p.p.s. Пока писал пост, господин VadikV уже дал решение и без использования строк. Отлично!

[Вадим Мошев]

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

Вадим Мошев, ошибка! такой код совершенно справедливо не скомпилируется. Нельзя символу присвоить строку (даже и пустую!)

Да, действительно, не скомпилировалось, написали ошибку "Несоответствие типов". Ну тогда, пустоту в апострофах заменим на chr(0), то есть напишем

a[i] := chr(0)

Вот теперь компилируется

[a9N2k]

Сообщение от Вадим Мошев

Да, действительно, не скомпилировалось, написали ошибку "Несоответствие типов". Ну тогда, пустоту в апострофах заменим на chr(0), то есть напишем

a[i] := chr(0)

Вот теперь компилируется

Теперь то Вы меня поняли?
http://programmersforum.ru/showpost....9&postcount=10

[Вадим Мошев]

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

Теперь то Вы меня поняли?
http://programmersforum.ru/showpost....9&postcount=10

Не всё. Объясните, пожалуйста, мне вот это:

не надо песен...
хоть в Turbo Pascal, хоть в Pascal ABC, хоть в Delphi - #32 - это и есть CHAR и приводить его к типу CHAR - бессмысленно!
Так что, мой Вам совет - избавляйтесь от бессмысленных привычек...

Для символа "#" (нашего любимого символа ) я знаю только одно применение - это обработка нажат клавиш в Турбо паскале 7.0.
То есть, например:

case keyPressed of
#13: //ля-ля-ля
#8: //ой-нанананана... :d

Но объясните мне, что в выше написанном имелось в виду?

[Serge_Bliznykov]

a[i] := chr(0)

угу. Вы ещё туда #255 запишите!
замаскировать символ - это неправильно решение проблемы.
Почему?
Ну хотя бы потому что, попробуйте напечатать количество символов в результирующем числе! Ещё один цикл напишете?!

Повторюсь, но если уж использовать строки, то написать эффективный код в пару строк - смотри пост #4 (с) GetMax

Но объясните мне, что в выше написанном имелось в виду?

ох, оффтопим мы здесь...
1) #xx - это обычный символ, заданный кодом. Использовать можно в любой версии Паскаля.
Как использовать - да как угодно.
Например,
WriteLn(#9'Тут'#9'Таблица'#13#10#9' Задана');

или, в вышеприведённом Вами куске кода, вместо вызова функции можно написать:
a[i] := #0;
можно, но не нужно! почему - я уже сказал выше!


теперь о бессмысленности использования char(#32)
Ну так почему Вы не используете такой код в Вашем стиле??! :/ :

var st : string;
  i : integer;
begin
  st := '123456789';
  for i := integer(0) to integer(length(st)) do
     if boolean(i>integer(4)) then st[i] := char('A');
  Writeln(string(st));
end.

данный код компилируется и, разумеется, работает...
Теперь аналогия ясна?