Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/2: Рейтинг темы: голосов - 2, средняя оценка - 4.50
gundenaf
0 / 0 / 0
Регистрация: 21.10.2013
Сообщений: 4
1

Выбросить из записи числа P цифры 0, оставив прежним порядок остальных цифр

18.01.2014, 23:16. Просмотров 458. Ответов 3
Метки нет (Все метки)

Доброго времени суток. Решил обратиться сюда за помощью, т.к. своих возможностей не хватает, к сожалению.

Задача у меня следующая: разработать алгоритм и программу, реализующую этот алгоритм. При выполнении данного задания необходимо использовать процедуры и функции с параметрами. Дано натуральное P. Выбросить из записи числа P цифры 0, оставив прежним порядок остальных цифр.

Сам смог лишь сделать задание, не используя процедуры и функции. Все попытки применить функции - провалились.

Код программы без функций.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
procedure TForm1.Button1Click(Sender: TObject);
var p, a, i, s: integer;
begin
i:=1;
s:=0;
Label5.Caption:='';
 if Edit1.Text='' then
  begin
   showmessage('Поле ввода - пустое');
   exit;
  end;
p:=StrToInt(Edit1.Text);
if (p<1) or (p>9999999) then
  begin
   showmessage('n должeн быть не меньше 1, нo и не больше 9.999.999');
   exit;
  end;
while p <> 0 do
 begin
  a:=p mod 10;
   if (a<>0) then
    begin
     s:=s+a*i;
     i:=i*10;
    end;
  p:=p div 10;
 end;
Label5.Caption:=Label5.Caption + IntToStr(s)+' ';
end;
end.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.01.2014, 23:16
Ответы с готовыми решениями:

Выбросить из записи числа n цифры 0 и 5, оставив прежним порядок остальных цифр
1. Дано натуральное число n. Выбросить из записи числа n цифры 0 и 5, оставив прежним порядок...

Выбросить из записи числа n цифры 0 и 5, оставив прежним порядок остальных цифр
Всем доброго времени суток. Нужна помощь в написании кода (как сам ни старался, но осознал лишь,...

Из записи числа n выбросить цифры 0 и 5, оставив прежним порядок остальных цифр
Дано натуральное число n. Найти значение числа, полученного следующим образом: из записи числа n...

Выбросить из записи числа n цифры 0 и 5, оставив прежним порядок остальных цифр
Дано натуральное число n. Выбросить из записи числа n цифры 0 и 5, оставив прежним порядок...

Выбросить из записи числа цифры 0 и 5, оставив прежним порядок остальных цифр
1.Дано натуральное число n. Выбросить из записи числа n цифры 0 и 5, оставив прежним порядок...

3
angstrom
2473 / 1849 / 242
Регистрация: 14.09.2012
Сообщений: 5,981
Записей в блоге: 2
18.01.2014, 23:24 2
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
procedure DeleteZero;
var p, a, i, s: integer;
begin
  i := 1;
  s := 0;
  Form1.Label5.Caption := '';
  if Form1.Edit1.Text='' then
  begin
    ShowMessage('Поле ввода - пустое');
    Exit;
  end;
  p := StrToInt(Form1.Edit1.Text);
  if (p < 1) or (p > 9999999) then
  begin
    ShowMessage('n должeн быть не меньше 1, нo и не больше 9.999.999');
    Exit;
  end;
  while p <> 0 do
  begin
    a := p mod 10;
    if (a<>0) then
    begin
      s := s + a * i;
      i := i * 10;
    end;
    p := p div 10;
  end;
  Form1.Label5.Caption:=Label5.Caption + IntToStr(s)+' ';
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  DeleteZero;
end;
1
gundenaf
0 / 0 / 0
Регистрация: 21.10.2013
Сообщений: 4
19.01.2014, 19:22  [ТС] 3
angstrom, спасибо. Можно ли использовать процедуру с параметрами, которые бы шли в скобках после имени процедуры? Т.е.
Код
procedure DeleteZero (параметры);
?
0
angstrom
2473 / 1849 / 242
Регистрация: 14.09.2012
Сообщений: 5,981
Записей в блоге: 2
19.01.2014, 21:47 4
Это как будет нужнее, можно так передать обрабатываемое число или что-нибудь другое.
1
19.01.2014, 21:47
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.01.2014, 21:47

Выбросить из записи числа n цифры 0 и 5, оставив прежним порядок остальных цифр
Здравствуйте! Помогите решить задачку такого типа на C# (нужно пользоваться конструкцией for,...

Выбросить из записи числа цифры от k1 до k2, оставив прежним порядок его остальных цифр.
Дано натуральное число N. Выбросить из записи числа цифры от k1 до k2, оставив прежним порядок его...

Выбросить из записи заданного числа указанные цифры, оставив прежним порядок остальных цифр
Вот условие: Выбросить из записи числа n цифры 0 и 5, оставив прежним порядок остальных цифр. Если...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru