المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : محتاج مساعدة عاجلة ربي يحفظكم


عزف الكمان
2014-02-22, 14:12
33333333333333333333333333333333333333333333333333 333333333333333333333333333333333333333333333333

-asma-
2014-02-22, 17:28
salut,
c'est la solution de ce exercice:
les 2 procedures essentiel w lazem tzidhom procedure de création de tableau
et le programme principal
type

code_postal =enregistrement de
ville :chaine ;
code : chaine ;
willaya : entier ;
finenregistrement ;


N :entier ;
Code_postal T[n] ; c ,v : chaine ;
Procedure rech_code() ;
Var trv :boolean ;
Debut
Trv<-faux ;
Ecrire(‘entrer le nom de ville’) ; lire(v) ;
Pour i <- 1 à n faire
Si(T[i].ville=v)
Debut
Trv<-vrai ;
ecrire(‘code postal de cette ville est :’,T[i].code) ;
fin ;
si( !trv) ecrire(‘ce ville n existe pas’) ;
fin ;
procedure rech_ville() ;
Var trv :boolean ;
Debut
Trv<-faux ;
Ecrire(‘entrer le code de ville’) ; lire(c) ;
Pour i <- 1 à n faire
Si(T[i].code=c)
Debut
Trv<-vrai ;
Ecrire(‘ ce code est de la ville:’,T[i].ville) ;
fin ;
si( !trv) ecrire(‘ce code n existe pas’) ;
fin ;
b tawfi9
fi amen allah...