Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.54/13: Рейтинг темы: голосов - 13, средняя оценка - 4.54
1 / 1 / 0
Регистрация: 03.11.2010
Сообщений: 10
1

Кратно ли число одиннадцати, используя признак делимости на 11

03.11.2010, 19:43. Показов 2455. Ответов 8
Метки нет (Все метки)

Надо написать программу на паскале, с использованием функций(процедур) и массивов!

Дано натуральное число P. Проверьте, кратно ли P одиннадцати, используя признак делимости на 11 (знакопеременная сумма его цифр делится на 11).
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.11.2010, 19:43
Ответы с готовыми решениями:

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

Дано натуральное число P. Проверьте, кратно ли число P девяти, используя признак делимости на 9
Дано натуральное число P. Проверьте, кратно ли число P девяти, используя признак делимости на 9.

Дано натуральное число n, проверить, кратно ли оно 11 используя признак делимости на 11
Помогите задачу решить: Дано натуральное число n, проверить, кратно ли оно 11 используя признак...

Дано натуральное число P. Проверьте, кратно ли P трем, используя признак делимости на 3
Дано натуральное число P. Проверьте, кратно ли P трем, ис-пользуя признак делимости на 3. В...

8
Почетный модератор
64065 / 47477 / 32732
Регистрация: 18.05.2008
Сообщений: 115,185
03.11.2010, 20:00 2
Цитата Сообщение от 1010011010 Посмотреть сообщение
и массивов!
Массивы-то с какого боку?

Добавлено через 12 минут
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses crt;
function Krat11(n:longint):boolean;
var s,z:integer;
begin
z:=-1;
while n>0 do
 begin
  z:=-z;
  s:=s+z*(n mod 10);
  n:=n div 10;
 end;
Krat11:=s mod 11=0;
end;
 
var p:longint;
begin
clrscr;
writeln('Кратно ли число 11?');
write('Введите натуральное число P=');
readln(p);
write(Krat11(p));
readln
end.
1
1 / 1 / 0
Регистрация: 03.11.2010
Сообщений: 10
04.11.2010, 00:17  [ТС] 3
там надо было по членно отделить цифры и записать их в массив, и потом из массива все находить! просто проблемма в том что я не могу правильно написать отделения цифр от числа и записать их в массив!

Добавлено через 3 минуты
проверил, работает но немного не так! испытал на 11, написало False!
0
Почетный модератор
64065 / 47477 / 32732
Регистрация: 18.05.2008
Сообщений: 115,185
04.11.2010, 06:46 4
Цитата Сообщение от 1010011010 Посмотреть сообщение
испытал на 11, написало False!
Всегда говорил что АВС это та еще вещь....
Вот в Турбо Паскале
Миниатюры
Кратно ли число одиннадцати, используя признак делимости на 11  
0
Почетный модератор
64065 / 47477 / 32732
Регистрация: 18.05.2008
Сообщений: 115,185
04.11.2010, 07:03 5
Вот Вам в АВС с массивом...
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
var p:longint;
    a:array[1..10] of byte;
    n,s,i:integer;
begin
writeln('Кратно ли число 11?');
write('Введите натуральное число P=');
readln(p);
n:=0;
while p>0 do
 begin
  n:=n+1;
  a[n]:=(p mod 10);
  p:=p div 10;
 end;
s:=0;
for i:=1 to n do
if odd(i) then s:=s+a[i] else s:=s-a[i];
if s mod 11=0 then write('Число кратно 11')
else write('Число не кратно 11');
end.
Добавлено через 8 минут
А ошибка у меня в том, о чем всегда говорю другим, нужно инициировать переменные, не всегда они по умолчанию=0.
Нужно добавить строку.
Pascal
1
2
3
4
5
begin
s:=0;//вот эту
z:=-1;
while n>0 do
 begin
0
1 / 1 / 0
Регистрация: 03.11.2010
Сообщений: 10
04.11.2010, 14:38  [ТС] 6
Pascal
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
uses crt;
var p:longint;
    a:array[1..10] of byte;
    z,n,s,i:real;
    procedure asd(s,z,n:real; p:longint);
    begin
    while p>0 do
    begin
  n:=n+1;
  z:=(p mod 10);
  a[n]:=z;
  p:=p div 10;
   end;
s:=0;
for i:=1 to n do
if odd(i) then s:=s+a[i] else s:=s-a[i];
   end;
   begin
writeln('Кратно ли число 11?');
write('Введите натуральное число P=');
readln(p);
n:=0;
asd (s);
if s mod 11=0 then write('Число кратно 11')
else write('Число не кратно 11');
     end.
вот так она должна была выглядеть, но она не компилируется! и не могу понять в чем дело!(

Добавлено через 1 минуту
ошибка в 11 строчке.
0
Почетный модератор
64065 / 47477 / 32732
Регистрация: 18.05.2008
Сообщений: 115,185
04.11.2010, 14:45 7
Цитата Сообщение от 1010011010 Посмотреть сообщение
вот так она должна была выглядеть,
Ну раз все знаешь, то чего спрашиваешь?
Правда использовать тип real для порядковых переменных наверное в дурдоме учет...
0
1 / 1 / 0
Регистрация: 03.11.2010
Сообщений: 10
06.11.2010, 01:25  [ТС] 8
я же вроде написал,что прога не компилируется.
Не могли бы вы глянуть что в ней не так, я был бы очень рад готовому работующиму варианту!)
0
Почетный модератор
64065 / 47477 / 32732
Регистрация: 18.05.2008
Сообщений: 115,185
06.11.2010, 05:52 9
я был бы очень рад готовому работующиму варианту!)
Ты что, полный идиот? А я что тебе написал в посте номер 5?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.11.2010, 05:52

Проверить, кратно ли р девяти, используя признак делимости на девять
Мне срочно необходимо решение этой задачи пожалуйчта помогите мне... Дано натуральное число p....

Для заданного числа n определите делится ли оно на 9, используя признак делимости
1. для заданного числа n определите делится ли оно на 9, используя признак делимости. 2. провести...

Рекурсия: с использованием признака делимости на 9, проверьте, кратно ли данное натуральное число 9
С помощью признака делимости на 9, проверьте кратно ли данное натуральное число 9. Напишите...

Рекурсия: с помощью признака делимости на 11, проверьте кратно ли заданное натуральное число 11
с помощью признака делимости на 11, проверьте кратно ли заданное натуральное число 11. напишите...


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

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

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