Страница 1 из 1
Математика целых чисел
Добавлено: 09 янв 2009, 23:13
PeaceDuqe
Помогите пожалуйста решить ету вот задачку:
Проверить утверждение, что разность любого натурального числа и суммы его цифр кратна 9, для всех чисел, лежащих между заданными m и n.
П.С. сори, темку отдельную создать не смог, вот и пишу тута...
Re: Математика целых чисел
Добавлено: 10 янв 2009, 16:48
Хыиуду
1000a+100b+10c+d-a-b-c-d=999a+99b+9c+0. Утверждение верно
Re: Математика целых чисел
Добавлено: 10 янв 2009, 17:14
PeaceDuqe
на Visual basic нуно написать... подскажите какие и сколько циклов нуно, штоб проверить утверждение
Re: Математика целых чисел
Добавлено: 14 янв 2009, 12:39
Хыиуду
Странно, вообще обычно перед написанием программы требуется поработать мозгом и оптимизировать алгоритм. В вашем случае алгоритм оптимизируется до вырожденного состояния
print "Утверждение верно"
Re: Математика целых чисел
Добавлено: 14 янв 2009, 23:45
PeaceDuqe
Код: Выделить всё
Private Sub Command1_Click()
Dim m As Integer, n As Integer
m = Text1.Text
n = text2.text
p = 1
For x = m To x <= n
s = 0
y=x
Do while y > 0
t = у Mod 10
s = s + t
y=(y-t)/10
loop
L = (x - s) Mod 9
If L <> 0 Then p = 0
End If
Next x
If p <> 0 Then MsgBox ("Утверждение верно")
Else: MsgBox ("Утверждение неверно")
Enв if
End Sub
хы) чтото вроде етого получилось
Re: Математика целых чисел
Добавлено: 14 янв 2009, 23:46
PeaceDuqe
Код: Выделить всё
Private Sub Command1_Click()
Dim m As Integer, n As Integer
m = Text1.Text
n = text2.text
p = 1
For x = m To n
s = 0
y=x
Do while y > 0
t = у Mod 10
s = s + t
y=(y-t)/10
loop
L = (x - s) Mod 9
If L <> 0 Then p = 0
End If
Next x
If p <> 0 Then MsgBox ("Утверждение верно")
Else
MsgBox ("Утверждение неверно")
End if
End Sub
хы) чтото вроде етого получилось
П.С. с бэйсиком впервые пересекся, хз какие там апираторы и особенности)
Re: Математика целых чисел
Добавлено: 15 янв 2009, 00:18
Хыиуду
Можно перевести число в строку, вычесть из кода каждого символа строки код нуля, а полученные разности отнять от исходного числа. Если в итоге получится число, кратное девяти (а оно получится) - вывести "Утверждение верно".
Re: Математика целых чисел
Добавлено: 15 янв 2009, 03:15
PeaceDuqe
я тоже так хотел сделать, но хз... возня всякая с типом числа (строка - цифра) меня пугает)) намужу чтонить и результата никакого...((
Re: Математика целых чисел
Добавлено: 15 янв 2009, 05:08
serqei35
Есть неплохая книга по математическим основам программирования, советую почитать.
Скачать её можнр здесь:
http://webprogrammer.wallst.ru/others1.html