Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Sleepwalker_
0 / 0 / 1
Регистрация: 12.10.2016
Сообщений: 10
#1

Проверить кратность числа 11-ти - Delphi

21.11.2016, 22:18. Просмотров 416. Ответов 3
Метки нет (Все метки)

Дано натуральное число Р. Проверьте, кратно ли Р одиннадцати, используя признак делимости на 11 (Знакопеременная сумма его чисел делится на 11)
Чет не получается, что-то с формулами мучу
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
var
  Form1: TForm1;
  n, crat:integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 if n=0 then
 begin
  crat:=1;
 end;
  if n<0 then
  begin
   crat:=0;
  end;
  begin
   crat:=crat(n-11);
  end;
begin
 n:=StrToInt(Edit1.text);
  if crat(n)=1 then
 ShowMessage('Chislo n kratno 11')
  else
 ShowMessage('Chislo n ne kratno 11');
  exit
end;
 
end;
 
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.11.2016, 22:18
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Проверить кратность числа 11-ти (Delphi):

Кратность чисел
У меня вот такая задача: Составить программу, которая определяет, является ли...

Кратность массива
Вычислить в массиве A(N) суммы всех чисел,кратных 7

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

Проверить, являются ли заданные числа четными
Даны целые числа а и b. 1. Являются ли эти числа четными; вывести на экран...

Проверить корректность введения дробного числа в Edit
Здравствуйте. Нужно проверить корректность введённого пользователем в Edit...

Сложить два числа, проверить корректность ввода
Есть задача сложить два числа, при этом проверять корректны ли исходные данные...

3
NIKOLAYY
819 / 717 / 339
Регистрация: 22.09.2012
Сообщений: 4,994
21.11.2016, 22:29 #2
Задача простая а ты много лишнего нагородил, держи:

Delphi
1
2
3
4
5
6
7
8
9
10
var
  a, b: Integer;
begin
  a := 11;
  b := 33;
  if b mod a = 0 then
    ShowMessage('a кратное b')
  else
    ShowMessage('a НЕ кратное b')
end;
0
Sleepwalker_
0 / 0 / 1
Регистрация: 12.10.2016
Сообщений: 10
21.11.2016, 22:34  [ТС] #3
По такой схеме у меня асе получилось, но дело в том, что код нужно написать не просто с проверкой на кратность, а по правилу деления на 11. Типа делится ли число 2453 на 11? Если сложить нечетные числа и чётные числа и они будут равны, знчт делится на 11
(2+5=4+3)
Как-то так
0
NIKOLAYY
819 / 717 / 339
Регистрация: 22.09.2012
Сообщений: 4,994
22.11.2016, 01:27 #4
Цитата Сообщение от Sleepwalker_ Посмотреть сообщение
Если сложить нечетные числа и чётные числа и они будут равны, знчт делится на 11
(2+5=4+3)
Аа вон оно че.. На пробуй.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var
  str: string;
  i, s, chet, nechet: Integer;
begin
  s := StrToInt(Edit1.Text); //сюда пишем число
  chet := 0;
  nechet := 0;
 
  for i := 1 to Length(Edit1.Text) do
    if i mod 2 = 0 then
      chet := chet + StrToInt(IntToStr(s)[i])
    else
      nechet := nechet + StrToInt(IntToStr(s)[i]);
 
  if chet = nechet then
    ShowMessage(Edit1.Text + ' делится на 11')
  else
    ShowMessage(Edit1.Text + ' НЕ делится на 11')
end;
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.11.2016, 01:27
Привет! Вот еще темы с решениями:

Проверить, могут ли числа x, y, z быть сторонами треугольника
Положительные числа x, y, z могут быть сторонами треугольника, если большее из...

Проверить, равна ли сумма цифр трехзначного числа девяти
Учусь в университете, 2 курс, началось знакомство и работа с языками...

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

Проверить признак деления на 3 на примере заданного трехзначного числа
Деление на 3. Как известно, число делится на 3 тогда и только тогда, когда...


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

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

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