Напишите программу нахождения значений, удовлетворяющих уравнению

@vbuser · Регистрация: 23.09.2012

Студворк — интернет-сервис помощи студентам

I,J,K и L - целые положительные числа, меньше 20. Напишите свою программу нахождения значений, удовлетворяющих уравнению:
I^3+J^3+K^3 = L^3

OldFedor · 07.10.2012, 19:10

VB.NET
1
2
3
4
5
6
7
8
9
Dim i, j, k, l, rez As Integer, rezLn As Decimal
For i = 1 To 20
For j = 1 To 20
For k = 1 To 20
rez = i ^ 3 + j ^ 3 + k ^ 3 : rezLn = CLng(rez)
If rezLn = 3 Then MsgBox("i = " & i & "   " & "j = " & j & "   " & "k = " & k)
Next k
Next j
Next i

Теоретически надо бы еще один IF, который проверяет rezLn в диапазоне [1-20] и
только после этого вывод.
rezLn - это и есть L

Добавлено через 7 минут
Но на таком узком интервале решений будет одно, два.
Очень напоминает теорему Ферма.

@Апострофф · 07.10.2012, 19:55

OldFedor, почему rezLn = 3?

VB.NET
1
2
3
4
5
6
7
8
9
10
11
Dim i, j, k, l As Integer,msg as string
For i = 1 To 20
  For j = 1 To 20
    For k = 1 To 20
      For l = 1 To 20
        If i * i * i + j * j * j + k * k * k = l * l * l Then msg=msg & ("i = " & i & "   " & "j = " & j & "   " & "k = " & k & "   " & "l = " & l) & vbcrlf
      Next l
    Next k
  Next j
Next i
MsgBox (msg)

Может так правильнее будет? И решений не одно - два, а порядка 40

OldFedor · 08.10.2012, 13:50

Вотведь не вниматильный! Тетеря слепая! (Это я)
И мог vbuser с панталыки сбыть.
А ведь красивая идея. А?
И обозначение rezLn выбрал с намеком на натуральный логарифм.
Если множитель у логарифма (вместо rezLn = CLng(rez), д.б. rezLn = Math.Log(rez)) тройка.
То кубический корень из rez и есть ответ. При этом лишний цикл по L исчезает.
Приношу свои извинения за торопливость.
Мне - урок.
А Вам Апострофф - весьма признателен.
Но согласитесь, неординарное могло быть решение.

Добавлено через 10 минут
В догонку.
Я и не стал дописывать, что результат логарифмирования надо разделить на три
и е в эту степень возвести.
Ваше решение в "лоб", для сдающих преподавателю, проще. Сам знаю.

Добавлено через 16 часов 48 минут
Дело принципа. Добил таки! Работает.

VB.NET
1
2
3
4
5
6
7
8
9
10
Dim i, j, k, l, rez As Integer, rezLn As Decimal
For i = 1 To 20
For j = 1 To 20
For k = 1 To 20
rez = i ^ 3 + j ^ 3 + k ^ 3 : rezLn = Math.Log(rez)
rezLn = Math.Exp(rezLn / 3) : rez = Math.Floor(rezLn)
If rezLn = rez Then MsgBox(i & ":" & j & ":" & k & "  L = " & rez)
Next k
Next j
Next i

Добавлено через 21 минуту
Хотя следует добавить, как писал ранее*

VB.NET
1
If rez <= 20 Then' msg

@vbuser · 11.10.2012, 21:09 **[ТС]**

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
   Console.ForegroundColor = ConsoleColor.Yellow
        Console.BackgroundColor = ConsoleColor.DarkBlue
        ' I ^ 3 + J ^ 3 + K ^ 3 = L ^ 3 
        Dim ST% = 3 : Dim SRCH% = 0
        Dim ARR() As Integer = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19}
        For Each L In ARR
            For Each I In ARR
                For Each J In ARR
                    For Each K In ARR
                        If I ^ ST + J ^ ST + K ^ ST Like L ^ ST Then
                            Console.WriteLine(I & "+" & J & "+" & K & "=" & L & "; " & I ^ ST & "+" & J ^ ST & "+" & K ^ ST & "=" & L ^ ST)
                            SRCH += 1
                        End If
                    Next
                Next
            Next
        Next
        Console.WriteLine("количество уравнений = " & SRCH)
        Console.ReadLine()

Новые блоги и статьи Все статьи Все блоги /
Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .
Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .

@vbuser 0 / 0 / 0 Регистрация: 23.09.2012 Сообщений: 26

	Напишите программу нахождения значений, удовлетворяющих уравнению 07.10.2012, 18:41. Показов 961. Ответов 4 Метки нет (Все метки) I,J,K и L - целые положительные числа, меньше 20. Напишите свою программу нахождения значений, удовлетворяющих уравнению: I^3+J^3+K^3 = L^3 0