Les Struction

eldorplus Messages postés 1 Date d'inscription lundi 19 mai 2008 Statut Membre Dernière intervention 18 janvier 2011 - 18 janv. 2011 à 00:46
BunoCS Messages postés 15475 Date d'inscription lundi 11 juillet 2005 Statut Modérateur Dernière intervention 23 avril 2024 - 18 janv. 2011 à 09:13
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!!!

2 réponses

BunoCS Messages postés 15475 Date d'inscription lundi 11 juillet 2005 Statut Modérateur Dernière intervention 23 avril 2024 103
18 janv. 2011 à 09:13
Désolé, nous ne sommes pas là pour faire les exercices des autres.
Avances un peu, montre nous du code et dis nous où tu bloques.

@+
Buno
----------------------------------------
L'urgent est fait, l'impossible est en cours. Pour les miracles, prévoir un délai...
Rejoignez mon réseau professionnel sur Viadeo
0
BunoCS Messages postés 15475 Date d'inscription lundi 11 juillet 2005 Statut Modérateur Dernière intervention 23 avril 2024 103
18 janv. 2011 à 09:13
En passant, je ne connais pas de "struction"...

@+
Buno
----------------------------------------
L'urgent est fait, l'impossible est en cours. Pour les miracles, prévoir un délai...
Rejoignez mon réseau professionnel sur Viadeo
0
Rejoignez-nous