Aide exo de maths ! >>> C'est pas fini !!

→ **MyCalcs** profile · by **Yak** » 06 Nov 2007, 13:05

oui perso je pencherais pour un systeme de quatre d'equations à quatre inconnues... Car là il manque des donnés il me semble (meme avis que charognard).
Suffit que tu trouve un contre exemple (donc deux ages possibles) et c'est bon.

→ **MyCalcs** profile · by **charognard** » 06 Nov 2007, 13:16

A,B,C,D,N appartiennent a N et > 0
AxBxCxD=126
A+B+C+D=N
Min(A,B,C,D) [aux trois autres]
et Pour N identique le [nombre de solution pour A,B,C et D] 1

→ **MyCalcs** profile · by **ProgVal** » 06 Nov 2007, 13:18

Pour tout trouver:

Code: Select all: {}→resulti resulti→resultj resulti→resultk resulti→resultl For i,1,126/4 For j,1,i For k,1,j For l,1,k If k=l or i*j*k*l≠164 Cycle i→resulti[dim(resulti)+1] j→resultj[dim(resulti)] k→resultk[dim(resulti)] l→resultl[dim(resulti)] EndFor EndFor EndFor EndFor

lol le code de bourin...

→ **MyCalcs** profile · by **charognard** » 06 Nov 2007, 14:09

ProgVal wrote:Pour tout trouver:

Code: Select all
{}→resulti resulti→resultj resulti→resultk resulti→resultl For i,1,126/4 For j,1,i For k,1,j For l,1,k If j=k or i*j*k*l≠164 Cycle i→resulti[dim(resulti)+1] j→resultj[dim(resulti)] k→resultk[dim(resulti)] l→resultl[dim(resulti)] EndFor EndFor EndFor EndFor

lol le code de bourin...

et en plus faux !!!

Code: Select all: Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a, b, c, d As ULong For a = 1 To 6 For b = 2 To 9 For c = 2 To 9 For d = 2 To 21 If a * b * c * d = 126 Then MsgBox(a " " b " " c " " d) End If Next Next Next Next End Sub End Class