ALGORITHME Struct_Ptoint
VAR :
Structure Point
A : Réel
B : Réel
Finstructure
x,y : Point
Procedure Milieu( vide )
Xm, Ym : Réel
Xm <-- (x.B + x.A)/2
Ym <-- (y.B + y.B)/2
Ecrire ("le Milieu entre l'axe des abscisses et l'axe des ordonnée est au
point : ", Xm, Ym)
FinProcedure
Procedure Distance( vide )
temp1, temp2, résult : réel
temp1 <-- (x.B-x.A)^2
temp2 <-- (y.B-y.A)^2
résult <-- sqrt (temp1+ temp2)
Ecrire ("la Distance entre l'axe des abscisses et l'axe des ordonnée est :
", résult)
FinProcedure
BEBUT
Ecrire("Donner la valeur minimale d'une abscisse pour A : ")
Lire(x.A)
Ecrire("Donner la valeur maximale d'une ordonnée pour A : ")
Lire(y.A)
Ecrire("Donner la valeur minimale d'une abscisse pour B : ")
Lire(x.B)
Ecrire("Donner la valeur maximale d'une ordonnée pour B : ")
Lire(y.B)
Milieu( )
Distance( )
Fin
Salut à tous
j'aimerais bien avoir sa conversion en c et merci pour votre aides!!!