Discussion :

[Sid ali]

Salut aux lecteurs
Alors moi je cherche un programme ou un algorithme qui me donne toute les solutions possible de A et B de cette expression :
"A²+B<100"

Merci

[M.Dlb]

Instruction while

[Eric Sigoillot]

Ce sont des maths ça

Tu as essayé quoi pour le moment ?

++

[Tuxico]

une petite piste pour qu'il te reste un peu a chercher quand même

quand :

a vaut 1, b peut varier de 1 à 99
a vaut 2, b peut varier de 1 à 96
a vaut 3, b peut varier de 1 à 91
....etc


donc quand a vaut x, b = 100 - sqrt(x) (100 - x au carré)

[Tuxico]

allez encore un petit coup de pouce

donc

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
while((sqrt(a) + b) < (100))
x := 100 - sqrt(a);
a := a + 1;
b := tab[1..x]
 
...

il manques l'affichage et la déclaration mais bon

[Sid ali]

J'ai trouvé la solution je vous la laisse pour toute personne qui a en besoin

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Program TPN1;
uses crt;
Var A,B,C:integer;
 
{A*A+2B<100}
 
Begin
clrscr;
For B:= 0 to 49
Do
    Begin
    For A:=0 to 9
    Do
    Begin
    C:= A*A+2*B;
         If C < 100
         Then
         Begin
         Writeln ('[',A,'-',B,'] ',C);
         readln;
         End;
    End;
End;
Readln;
Readln;
 
End.

[Abderrahman]

plus facile:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
program test;
var
a,b:integer;
Begin
for a:=0 to 100 do
 for b:= 0 to 100 do
  if (sqr(a) + b < 100) then
  writeln(a,' ',b);
End.