VPF::целочисленная арифметика - Форум программистов

koljan

Дата 5.6.2006, 23:56 (ссылка)

(нет голосов)

Загрузка ...

VIP

Профиль
Группа: Участник
Сообщений: 430
Регистрация: 18.12.2005
Где: г.Архангельск

Репутация: 1
Всего: 1

составить программу удаления из десятичной записи числа N единиц, сохранив порядок следования оставшихся цифр. Сформировать и напечатать полученное число.

не понятно мне что с числом надо сделать

--------------------

Мы Вас отмежуем

skyboy

Дата 5.6.2006, 23:58 (ссылка)

(нет голосов)

Загрузка ...

неОпытный

Профиль
Группа: Модератор
Сообщений: 9820
Регистрация: 18.5.2006
Где: Днепропетровск

Репутация: 5
Всего: 260

523111569 -> 523569.
Что действительно непонятно - с чем работать: с числом или со строкой?

koljan

Дата 6.6.2006, 00:03 (ссылка)

(нет голосов)

Загрузка ...

VIP

Профиль
Группа: Участник
Сообщений: 430
Регистрация: 18.12.2005
Где: г.Архангельск

Репутация: 1
Всего: 1

Цитата(skyboy @ 5.6.2006, 23:58

)

Что действительно непонятно - с чем работать: с числом или со строкой?

а мне кажется преподу будет по барабану главное чтобы задача была решена

спасибо за помощь

--------------------

Мы Вас отмежуем

Romikgy

Дата 6.6.2006, 08:42 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 9
Всего: 146

Язык какой?

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

MAKCim

Дата 6.6.2006, 10:41 (ссылка)

(нет голосов)

Загрузка ...

Воін дZэна

Профиль
Группа: Экс. модератор
Сообщений: 5644
Регистрация: 10.12.2005
Где: Менск, РБ

Репутация: 6
Всего: 207

Код


size_t get(size_t number)
{
    size_t num=0, t=1;
    while (number)
    {
        size_t p=number%10;
        if (p!=1)
        {
            num+=p*t;
            t*=10;
        }
        number/=10;
    }
    return num;
}

Добавлено @ 10:45

Код


string get(const string& obj)
{
    string str;
    for (string::const_iterator i=obj.begin(); i!=obj.end(); ++i)
        if ((*i)!='1') str+=*i;
    return str;
}

--------------------

Ах, у елі, ах, у ёлкі, ах, у елі злыя волкі ©

koljan

Дата 7.6.2006, 16:37 (ссылка)

(нет голосов)

Загрузка ...

VIP

Профиль
Группа: Участник
Сообщений: 430
Регистрация: 18.12.2005
Где: г.Архангельск

Репутация: 1
Всего: 1

delphi
я сделал так

Код


var
chislo:integer;
str:string;
i:byte;
begin
write('Vvedite chislo- ');
readln(chislo);
str:=inttostr(chislo);
while pos('1',str)<>0 do
for i:=0 to length(str) do
   begin
     if str[i]='1' then
       begin
         delete(str,i,1);
         //insert('X',str,i);            //вместо единицы пишу Х
       end;
   end;

writeln(str);
readln
end.

--------------------

Мы Вас отмежуем

koljan

Дата 8.6.2006, 20:17 (ссылка)

(нет голосов)

Загрузка ...

VIP

Профиль
Группа: Участник
Сообщений: 430
Регистрация: 18.12.2005
Где: г.Архангельск

Репутация: 1
Всего: 1

сегодня выяснил что надо делать не так

Цитата(skyboy @ 5.6.2006, 23:58

)

523111569 -> 523569

а так 523111569->5231569 (при n=2)

Код


program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
label exit;
var
chislo,n:integer;
str,strTmp:string;
i,ch:byte;
begin
ch:=0;
write('Vvedite chislo- ');
readln(chislo);
str:=inttostr(chislo);
   if pos('1',str)=0 then
      begin
         writeln('v chisle net ediniz');
         goto exit;
      end;
write('vvedite n- '); readln(n);
for i:=length(str) downto 1 do
   if str[i]='1' then  if
      ch<=n-1 then
      begin
         delete(str,i,1);
         inc(ch);
      end;

writeln(str);
exit:
readln;

end.

--------------------

Мы Вас отмежуем

Pete

Дата 9.6.2006, 21:43 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 318
Регистрация: 5.1.2006
Где: Москва

Репутация: 7
Всего: 12

А кто вам сказал, что единицы надо удалять именно с конца/начала?
Условий явно не достаточно...

--------------------

Совет учиться на ошибках других бесполезен; научиться чему-либо можно только на собственных ошибках. (Бернард Шоу)
Не откладывай на завтра то, что можешь сделать сегодня. (Пословица)
А теперь выпишем точное значение числа пи... (Препод)
Жахни, Пендальф! © Гоблин

koljan

Дата 11.6.2006, 17:26 (ссылка)

(нет голосов)

Загрузка ...

VIP

Профиль
Группа: Участник
Сообщений: 430
Регистрация: 18.12.2005
Где: г.Архангельск

Репутация: 1
Всего: 1

Цитата(Pete @ 9.6.2006, 21:43

)

А кто вам сказал, что единицы надо удалять именно с конца/начала?
Условий явно не достаточно

преподша

--------------------

Мы Вас отмежуем

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »