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 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102
|
CLS
REM triqngle
OPTION BASE 1 'Tout les tableaux commence par 1 et non 0
INPUT "n="; n
RANDOMIZE TIMER
DIM a(n, 2)
PRINT
PRINT "------------------------Generateur coordonnées-------------------------------"
PRINT
FOR i = 1 TO n
FOR j = 1 TO 2
a(i, j) = INT(RND * 50)
PRINT a(i, j),
NEXT j
PRINT
NEXT i
PRINT
PRINT "---------------Calcule de la longueur des cotes de triangle--------------------"
PRINT
PRINT w
w = probligne(n)
longligne = 0
DIM ligne(w, 5)
m = 0
FOR i = 1 TO n - 1
FOR j = i + 1 TO n
m = m + 1
ligne(m, 1) = a(i, 1)
ligne(m, 2) = a(i, 2)
ligne(m, 3) = a(j, 1)
ligne(m, 4) = a(j, 2)
longligne = SQR((ligne(m, 3) - ligne(m, 1)) ^ 2 + (ligne(m, 4) - ligne(m, 2)) ^ 2)
ligne(m, 5) = longligne
PRINT ligne(m, 1), ligne(m, 2), ligne(m, 3), ligne(m, 4), ligne(m, 5)
NEXT j
NEXT i
PRINT
PRINT "--------------------Calcule de la surface de triangle -----------------------"
PRINT
't = prob
DIM triangle(100, 4)
DIM o AS INTEGER, p AS INTEGER, q AS INTEGER
h = 0
z = 0
FOR o = 1 TO n - 2
FOR p = o TO n - 1
FOR q = p + 1 TO n
h = h + 1
PRINT ligne(o, 5), ligne(p, 5), ligne(q, 5)
'triangle(h, 1) = ligne(o, 5)
'triangle(h, 2) = ligne(p, 5)
'triangle(h, 3) = ligne(q, 5)
'z = ((triangle(h, 1) + triangle(h, 2) + triangle(h, 3)) / 2)
'PRINT z
'striangle = SQR(z * (z - triangle(h, 1)) * (z - triangle(h, 2)) * (z - triangle(h, 3)))
'triangle(h, 4) = striangle
'PRINT triangle(h, 1), triangle(h, 2), triangle(h, 3), triangle(h, 4)
NEXT q
NEXT p
NEXT o
'FUNCTION probtriangle(n)
'F = 1
'G = 6
'h = 1
'l = n - 3
'FOR i = 1 TO n
' F = F * i
'NEXT i
'FOR i = 1 TO l
' h = h * i
'NEXT i
probtriangle = F / (l * G)
'END FUNCTION
FUNCTION probligne (n)
F = 1
G = 2
h = 1
l = n - 2
FOR i = 1 TO n
F = F * i
NEXT i
FOR i = 1 TO l
h = h * i
NEXT i
probligne = F / (l * G)
END FUNCTION |
Partager